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

Merged revision(s) 65448 #531d436ce1 from trunk:

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

git-svn-id: branches/fixes_2_2@65451 -
This commit is contained in:
maxim 2021-07-14 20:50:22 +00:00
parent 818acbe9bf
commit 477277baf2
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; end;
case Msg.msg of case Msg.msg of
{$IFDEF Win32} {$IF Defined(LCLWin32) or Defined(LCLWin64)}
// we need to correct ActiveEditor to right form // we need to correct ActiveEditor to right form
// this code works correctly on Windows platform // this code works correctly on Windows platform
// (is necessery for selecting controls after form resizing). // (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; function TFormAccess.ClientOffset: TPoint;
begin begin
Result := Point(0, 0); Result := Point(0, 0);
{$IFDEF Win32} {$IF Defined(LCLWin32) or Defined(LCLWin64)}
Result.X := GetSystemMetrics(SM_CXSIZEFRAME); Result.X := GetSystemMetrics(SM_CXSIZEFRAME);
Result.Y := GetSystemMetrics(SM_CYSIZEFRAME) + GetSystemMetrics(SM_CYCAPTION); Result.Y := GetSystemMetrics(SM_CYSIZEFRAME) + GetSystemMetrics(SM_CYCAPTION);
{$ENDIF} {$ENDIF}