From 8629548a7ba6f2b10e18504cd709c1630bc826e9 Mon Sep 17 00:00:00 2001
From: Ondrej Pokorny <lazarus@kluug.net>
Date: Wed, 28 Sep 2022 16:50:24 +0200
Subject: [PATCH] LCL: taskbar: always stretch images

---
 lcl/lcltaskdialog.pas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lcl/lcltaskdialog.pas b/lcl/lcltaskdialog.pas
index c1a93da433..a6846f19a4 100644
--- a/lcl/lcltaskdialog.pas
+++ b/lcl/lcltaskdialog.pas
@@ -883,6 +883,8 @@ begin
       Image.Images := GetDialogImages;
       Image.ImageIndex := GetDialogImages.DialogIndexes[LCL_IMAGES[aDialogIcon]];
       Image.SetBounds(IconBorder,IconBorder, 32, 32);
+      Image.Stretch := True;
+      Image.Proportional := True;
       X := Image.Width+IconBorder*2;
       Y := Image.Top;
       if aEmulateClassicStyle then
@@ -1077,6 +1079,8 @@ begin
         Image.Images := GetDialogImages;
         Image.ImageWidth := 16;
         Image.ImageIndex := GetDialogImages.DialogIndexes[LCL_FOOTERIMAGES[aFooterIcon]];
+        Image.Stretch := True;
+        Image.Proportional := True;
         Image.SetBounds(24,Y,16,16);
         X := 40+Image.Width;
       end else