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

LCL/TComboboxEx: Draw scaled icons. Issue #40905, patch by foxpas.

Browse Source 
(cherry picked from commit 755dea7b4d)
This commit is contained in:
wp_xyz 2024-04-16 11:15:13 +02:00 committed by Maxim Ganetsky
parent ab1bf5dbc1
commit 49a4819d96
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/comboex.inc
View File

@ -396,7 +396,7 @@ begin { do not call inherited ! }
then aImgPoint.X:=ARect.Left+aIndent
else aImgPoint.X:=ARect.Right-aIndent-ImagesSize.cx;
aImgPoint.Y:=(ARect.Bottom+ARect.Top-ImagesSize.cy) div 2;
ThemeServices.DrawIcon(Canvas, aDetail, aImgPoint, Images, aItemIndex);
Images.DrawForPPI(Canvas, aImgPoint.X, aImgPoint.Y, aItemIndex, 0, Font.PixelsPerInch, GetCanvasScaleFactor, aEnabled)
end;
inc(aIndent, ImagesSize.cx+2*cItemIndent);
end;