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

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

Browse Source
This commit is contained in:
wp_xyz 2024-04-16 11:15:13 +02:00
parent 3ad25b1afc
commit 755dea7b4d
1 changed files with 1 additions and 1 deletions

2
lcl/include/comboex.inc
View File

@ -396,7 +396,7 @@ begin { do not call inherited ! }
then aImgPoint.X:=ARect.Left+aIndent then aImgPoint.X:=ARect.Left+aIndent
else aImgPoint.X:=ARect.Right-aIndent-ImagesSize.cx; else aImgPoint.X:=ARect.Right-aIndent-ImagesSize.cx;
aImgPoint.Y:=(ARect.Bottom+ARect.Top-ImagesSize.cy) div 2; 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; end;
inc(aIndent, ImagesSize.cx+2*cItemIndent); inc(aIndent, ImagesSize.cx+2*cItemIndent);
end; end;