paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 14:18:17 +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 if HandleAllocated then
begin begin
FreeIconHandles; FreeIconHandles;
if not (BorderStyle in [bsDialog, bsNone]) then // bsNone as workaround for #41189 if (Self = Application.MainForm) or // main form must have icon anyway
TWSCustomFormClass(WidgetSetClass).SetIcon(Self, SmallIconHandle, BigIconHandle) not (BorderStyle in [bsDialog, bsNone]) then // bsNone as workaround for #41189
else TWSCustomFormClass(WidgetSetClass).SetIcon(Self, SmallIconHandle, BigIconHandle)
TWSCustomFormClass(WidgetSetClass).SetIcon(Self, 0, 0); else
TWSCustomFormClass(WidgetSetClass).SetIcon(Self, 0, 0);
end; end;
end; end;