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

LCL: task dialog: more image positioning fixes

Browse Source
This commit is contained in:
Ondrej Pokorny 2022-09-28 17:04:04 +02:00
parent 8629548a7b
commit 0a3a47d7ae
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

@ -884,7 +884,9 @@ begin
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.Stretch := True;
Image.StretchOutEnabled := False;
Image.Proportional := True; Image.Proportional := True;
Image.Center := True;
X := Image.Width+IconBorder*2; X := Image.Width+IconBorder*2;
Y := Image.Top; Y := Image.Top;
if aEmulateClassicStyle then if aEmulateClassicStyle then
@ -1080,7 +1082,9 @@ begin
Image.ImageWidth := 16; Image.ImageWidth := 16;
Image.ImageIndex := GetDialogImages.DialogIndexes[LCL_FOOTERIMAGES[aFooterIcon]]; Image.ImageIndex := GetDialogImages.DialogIndexes[LCL_FOOTERIMAGES[aFooterIcon]];
Image.Stretch := True; Image.Stretch := True;
Image.StretchOutEnabled := False;
Image.Proportional := True; Image.Proportional := True;
Image.Center := 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