paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-17 01:01:01 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: customcontrol, graphiccontrol: High-DPI: assign PixelsPerInch to Canvas.Font

Browse Source 
git-svn-id: trunk@54225 -
This commit is contained in:
ondrej 2017-02-21 14:00:23 +00:00
parent d6983d5300
commit 6f5693f5ff
2 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/customcontrol.inc
View File

@ -75,7 +75,13 @@ end;
procedure TCustomControl.FontChanged(Sender: TObject); procedure TCustomControl.FontChanged(Sender: TObject);
begin begin
Canvas.Font.BeginUpdate;
try
Canvas.Font.PixelsPerInch := Font.PixelsPerInch;
Canvas.Font := Font; Canvas.Font := Font;
finally
Canvas.Font.EndUpdate;
end;
inherited FontChanged(Sender); inherited FontChanged(Sender);
end; end;

6
lcl/include/graphiccontrol.inc
View File

@ -73,7 +73,13 @@ end;
procedure TGraphicControl.FontChanged(Sender: TObject); procedure TGraphicControl.FontChanged(Sender: TObject);
begin begin
Canvas.Font.BeginUpdate;
try
Canvas.Font.PixelsPerInch := Font.PixelsPerInch;
Canvas.Font := Font; Canvas.Font := Font;
finally
Canvas.Font.EndUpdate;
end;
inherited FontChanged(Sender); inherited FontChanged(Sender);
end; end;