mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Don't scale Left,Top

Browse source
This commit is contained in:
Alexander Koblov 2017-03-26 17:12:27 +00:00
commit 4cacb2bddf
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/uclassesex.pas
View file

@ -127,8 +127,7 @@ begin
Form := TCustomForm(Self.Owner);
if (Form.DesignTimePPI <> FPixelsPerInch) then
begin
if StrEnds(Ident, '_Left') or StrEnds(Ident, '_Width') or
StrEnds(Ident, '_Top') or StrEnds(Ident, '_Height') then
if StrEnds(Ident, '_Width') or StrEnds(Ident, '_Height') then
begin
if TryStrToInt(Result, Value) then
begin