From 531d436ce19128fa64d3532f7494e31f6ae9a767 Mon Sep 17 00:00:00 2001
From: michl <michl@lazarus-ide.org>
Date: Wed, 14 Jul 2021 07:48:41 +0000
Subject: [PATCH] DockedFormEditor: Check for WidgetSet LCLWin32 and LCLWin64.
 Issue #39222.

git-svn-id: trunk@65448 -
---
 components/dockedformeditor/source/dockeddesignform.pas   | 2 +-
 components/dockedformeditor/source/dockedformaccesses.pas | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/components/dockedformeditor/source/dockeddesignform.pas b/components/dockedformeditor/source/dockeddesignform.pas
index ab4bd854d6..85e76a1b5a 100644
--- a/components/dockedformeditor/source/dockeddesignform.pas
+++ b/components/dockedformeditor/source/dockeddesignform.pas
@@ -121,7 +121,7 @@ begin
   end;
 
   case Msg.msg of
-    {$IFDEF Win32}
+    {$IF Defined(LCLWin32) or Defined(LCLWin64)}
     // we need to correct ActiveEditor to right form
     // this code works correctly on Windows platform
     // (is necessery for selecting controls after form resizing).
diff --git a/components/dockedformeditor/source/dockedformaccesses.pas b/components/dockedformeditor/source/dockedformaccesses.pas
index 4736cc613b..bc8620ebfa 100644
--- a/components/dockedformeditor/source/dockedformaccesses.pas
+++ b/components/dockedformeditor/source/dockedformaccesses.pas
@@ -135,7 +135,7 @@ end;
 function TFormAccess.ClientOffset: TPoint;
 begin
   Result := Point(0, 0);
-  {$IFDEF Win32}
+  {$IF Defined(LCLWin32) or Defined(LCLWin64)}
   Result.X := GetSystemMetrics(SM_CXSIZEFRAME);
   Result.Y := GetSystemMetrics(SM_CYSIZEFRAME) + GetSystemMetrics(SM_CYCAPTION);
   {$ENDIF}