From ccb4169a92e3f12c9f13331d408524317e2040bc Mon Sep 17 00:00:00 2001
From: michl <michl@lazarus-ide.org>
Date: Sun, 14 Mar 2021 21:51:30 +0000
Subject: [PATCH] AnchorDocking: Use default close button, so it scaled in
 HighDPI, issue #35806

git-svn-id: trunk@64812 -
---
 components/anchordocking/anchordocking.pas | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/components/anchordocking/anchordocking.pas b/components/anchordocking/anchordocking.pas
index 02da5441b4..da0670f275 100644
--- a/components/anchordocking/anchordocking.pas
+++ b/components/anchordocking/anchordocking.pas
@@ -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