paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 12:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

AnchorDocking: Enable normal CloseButton icon only for Win32, other widgetsets can't handle it. Related to revision 64812 #ccb4169a92, Issue #35806

Browse Source 
git-svn-id: trunk@64830 -
This commit is contained in:
michl 2021-03-17 20:33:59 +00:00
parent 51dce4deb3
commit 965b69876b
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/anchordocking/anchordocking.pas
View File

@ -6547,15 +6547,15 @@ function WindowPart: TThemedWindow;
// no check states available
Result := twCloseButtonNormal;
if not IsEnabled then
Result := twCloseButtonDisabled
Result := {$IFDEF LCLWIN32}twCloseButtonDisabled{$ELSE}twSmallCloseButtonDisabled{$ENDIF}
else
if FState in [bsDown, bsExclusive] then
Result := twCloseButtonPushed
Result := {$IFDEF LCLWIN32}twCloseButtonPushed{$ELSE}twSmallCloseButtonPushed{$ENDIF}
else
if FState = bsHot then
Result := twCloseButtonHot
Result := {$IFDEF LCLWIN32}twCloseButtonHot{$ELSE}twSmallCloseButtonHot{$ENDIF}
else
Result := twCloseButtonNormal;
Result := {$IFDEF LCLWIN32}twCloseButtonNormal;{$ELSE}twSmallCloseButtonNormal;{$ENDIF}
end;
begin