From 755dea7b4d569d238369a3b102700c6f0bfd31c8 Mon Sep 17 00:00:00 2001
From: wp_xyz <wp_xxyyzzz@gmx.net>
Date: Tue, 16 Apr 2024 11:15:13 +0200
Subject: [PATCH] LCL/TComboboxEx: Draw scaled icons. Issue #40905, patch by
 foxpas.

---
 lcl/include/comboex.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/include/comboex.inc b/lcl/include/comboex.inc
index 9822fd829c..283f5387fd 100644
--- a/lcl/include/comboex.inc
+++ b/lcl/include/comboex.inc
@@ -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;