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

AnchorDocking: Use default close button, so it scaled in HighDPI, issue #35806

Browse Source 
git-svn-id: trunk@64812 -
This commit is contained in:
michl 2021-03-14 21:51:30 +00:00
parent 2c5911c6d3
commit ccb4169a92
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/anchordocking/anchordocking.pas
View File

@ -6569,17 +6569,17 @@ function TAnchorDockCloseButton.GetDrawDetails: TThemedElementDetails;
function WindowPart: TThemedWindow;
begin
// no check states available
Result := twSmallCloseButtonNormal;
Result := twCloseButtonNormal;
if not IsEnabled then
Result := twSmallCloseButtonDisabled
Result := twCloseButtonDisabled
else
if FState in [bsDown, bsExclusive] then
Result := twSmallCloseButtonPushed
Result := twCloseButtonPushed
else
if FState = bsHot then
Result := twSmallCloseButtonHot
Result := twCloseButtonHot
else
Result := twSmallCloseButtonNormal;
Result := twCloseButtonNormal;
end;
begin