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

LCL: taskbar: always stretch images

Browse Source
This commit is contained in:
Ondrej Pokorny 2022-09-28 16:50:24 +02:00
parent 5114a458e5
commit 8629548a7b
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/lcltaskdialog.pas
View File

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