paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 15:37:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Fix disappearing taskbar icon when FormStyle is fsNone or fsDialog. Patch by Iluha Companets, issue #41189.

Browse Source
This commit is contained in:
wp_xyz 2024-10-29 22:32:30 +01:00
parent db6685cd02
commit 01640ee298
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/include/customform.inc
View File

@ -222,10 +222,11 @@ begin
if HandleAllocated then
begin
FreeIconHandles;
if not (BorderStyle in [bsDialog, bsNone]) then // bsNone as workaround for #41189
TWSCustomFormClass(WidgetSetClass).SetIcon(Self, SmallIconHandle, BigIconHandle)
else
TWSCustomFormClass(WidgetSetClass).SetIcon(Self, 0, 0);
if (Self = Application.MainForm) or // main form must have icon anyway
not (BorderStyle in [bsDialog, bsNone]) then // bsNone as workaround for #41189
TWSCustomFormClass(WidgetSetClass).SetIcon(Self, SmallIconHandle, BigIconHandle)
else
TWSCustomFormClass(WidgetSetClass).SetIcon(Self, 0, 0);
end;
end;