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

DockedFormEditor: Check for WidgetSet LCLWin32 and LCLWin64. Issue #39222.

Browse Source 
git-svn-id: trunk@65448 -
This commit is contained in:
michl 2021-07-14 07:48:41 +00:00
parent a3f05509f0
commit 531d436ce1
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/dockedformeditor/source/dockeddesignform.pas
View File

@ -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).

2
components/dockedformeditor/source/dockedformaccesses.pas
View File

@ -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}