You've already forked lazarus-ccr
RxFPC:fix scaling
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6813 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@ -123,7 +123,8 @@ begin
|
|||||||
ASize:=StrToIntDef(Result, -1);
|
ASize:=StrToIntDef(Result, -1);
|
||||||
if ASize>-1 then
|
if ASize>-1 then
|
||||||
begin
|
begin
|
||||||
ASize1 := MulDiv(ASize, Screen.PixelsPerInch, 96);
|
//ASize1 := MulDiv(ASize, Screen.PixelsPerInch, 96);
|
||||||
|
ASize1 := MulDiv(ASize, 96, Screen.PixelsPerInch);
|
||||||
Result := IntToStr(ASize1);
|
Result := IntToStr(ASize1);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
Reference in New Issue
Block a user