paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 05:18:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: combobox, listbox: assign Font.PixelsPerInch to Canvas for custom draw events.

Browse Source 
git-svn-id: trunk@54914 -
This commit is contained in:
ondrej 2017-05-14 08:43:35 +00:00
parent 575c84d642
commit 3f56e69dc6
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/customcombobox.inc
View File

@ -1015,7 +1015,10 @@ begin
begin
FCanvas.Handle := DC;
if Font<>nil then
begin
FCanvas.Font := Font;
FCanvas.Font.PixelsPerInch := Font.PixelsPerInch;
end;
if Brush<>nil then
FCanvas.Brush := Brush;
if (ItemID <> UINT(-1)) and (odSelected in ItemState) then

3
lcl/include/customlistbox.inc
View File

@ -271,7 +271,10 @@ begin
begin
FCanvas.Handle := DC;
if Assigned(Font) then
begin
FCanvas.Font := Font;
FCanvas.Font.PixelsPerInch := Font.PixelsPerInch;
end;
if Assigned(Brush) then
FCanvas.Brush := Brush;
if (ItemID <> UINT(-1)) and (odSelected in ItemState) then