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

DockedFormEditor: Remove invalid widgetset LCLWin64

Browse Source
This commit is contained in:
michl 2021-10-09 19:05:07 +02:00
parent 11191cc81c
commit 4204b2bd71
4 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/dockedformeditor/source/dockedanchordesigner.pas
View File

@ -149,7 +149,7 @@ begin
if not (Shift = [ssLeft]) and not (Shift = [ssCtrl, ssLeft]) then Exit;
GetCursorPos(FMousePos);
Include(FState, asMouseDown);
{$IF Defined(LCLWin32) or Defined(LCLWin64)}
{$IFDEF LCLWin32}
SetCapture(TWinControl(Sender).Handle);
{$ENDIF}
end;
@ -227,7 +227,7 @@ begin
UndoAdd;
Screen.Cursor := crDefault;
{$IF Defined(LCLWin32) or Defined(LCLWin64)}
{$IFDEF LCLWin32}
ReleaseCapture;
{$ENDIF}
@ -257,7 +257,7 @@ begin
if not (Shift = [ssLeft]) and not (Shift = [ssCtrl, ssLeft]) then Exit;
GetCursorPos(FMousePos);
Include(FState, asMouseDown);
{$IF Defined(LCLWin32) or Defined(LCLWin64)}
{$IFDEF LCLWin32}
SetCapture(TWinControl(Sender).Handle);
{$ENDIF}
end;
@ -371,7 +371,7 @@ begin
UndoAdd;
Screen.Cursor := crDefault;
{$IF Defined(LCLWin32) or Defined(LCLWin64)}
{$IFDEF LCLWin32}
ReleaseCapture;
{$ENDIF}
@ -1011,7 +1011,7 @@ begin
FreeAndNil(FPreviousControl);
end;
Screen.Cursor := crDefault;
{$IF Defined(LCLWin32) or Defined(LCLWin64)}
{$IFDEF LCLWin32}
if asMouseDown in State then
ReleaseCapture;
{$ENDIF}

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

@ -121,7 +121,7 @@ begin
end;
case Msg.msg of
{$IF Defined(LCLWin32) or Defined(LCLWin64)}
{$IFDEF LCLWin32}
// we need to correct ActiveEditor to right form
// this code works correctly on Windows platform
// (is necessery for selecting controls after form resizing).

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

@ -135,7 +135,7 @@ end;
function TFormAccess.ClientOffset: TPoint;
begin
Result := Point(0, 0);
{$IF Defined(LCLWin32) or Defined(LCLWin64)}
{$IFDEF LCLWin32}
Result.X := GetSystemMetrics(SM_CXSIZEFRAME);
Result.Y := GetSystemMetrics(SM_CYSIZEFRAME) + GetSystemMetrics(SM_CYCAPTION);
{$ENDIF}
@ -224,7 +224,7 @@ var
i: Integer;
begin
Result := False;
// {$IF DEFINED(LCLWin32) OR DEFINED(LCLWin64) OR DEFINED(LCLGtk2) OR DEFINED(LCLQt) OR DEFINED(LCLQt5)}
// {$IF DEFINED(LCLWin32) OR DEFINED(LCLGtk2) OR DEFINED(LCLQt) OR DEFINED(LCLQt5)}
{$IF DEFINED(LCLQt) OR DEFINED(LCLQt5)}
// Menu is already shown in designer
Exit;

4
components/dockedformeditor/source/dockedresizecontrol.pas
View File

@ -314,7 +314,7 @@ begin
FResizing := True;
BeginFormSizeUpdate(Sender);
{$IF Defined(LCLWin32) or Defined(LCLWin64)}
{$IFDEF LCLWin32}
SetCapture(TWinControl(Sender).Handle);
{$ENDIF}
GetCursorPos(FOldMousePos);
@ -346,7 +346,7 @@ begin
ClientChangeBounds(nil);
Screen.Cursor := crDefault;
{$IF Defined(LCLWin32) or Defined(LCLWin64)}
{$IFDEF LCLWin32}
ReleaseCapture;
{$ENDIF}