Changeset 617 for trunk/Packages/CevoComponents/DrawDlg.pas

Timestamp:

Sep 15, 2024, 1:31:30 PM (2 months ago)

Author:

chronos

Message:

• Fixed: City screen rename right mouse click didn't work on Windows due to window title are. Change to behave the same way as on Linux.
• Fixed: Allow full screen switching in editor and movie mode.
• Modified: Precalculate scaling coefficients also for from native values conversions for faster speed.

File:

• trunk/Packages/CevoComponents/DrawDlg.pas (modified) (5 diffs)

trunk/Packages/CevoComponents/DrawDlg.pas

@@ -25 +25 @@
     procedure InitButtons;
     procedure OnEraseBkgnd(var Msg: TMessage); message WM_ERASEBKGND;
-    procedure OnHitTest(var Msg: TMessage); message WM_NCHITTEST;
     procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
       override;
@@ -92 +91 @@
 end;
 
-procedure TDrawDlg.OnHitTest(var Msg: TMessage);
-var
-  I: integer;
-  ControlBounds: TRect;
-  Pos: TPoint;
-begin
-  if BorderStyle <> TBorderStyle.bsNone then
-    inherited
-  else
-  begin
-    Pos := Point(ScaleFromNative(Integer(Msg.LParam and $ffff)),
-      ScaleFromNative(Integer((Msg.LParam shr 16) and $ffff)));
-    if Pos.Y >= Top + TitleHeight then
-      Msg.Result := HTCLIENT
-    else
-    begin
-      for I := 0 to ControlCount - 1 do
-        if Controls[I].Visible then
-        begin
-          ControlBounds := Controls[I].BoundsRect;
-          if (Pos.X >= Left + ControlBounds.Left) and
-            (Pos.X < Left + ControlBounds.Right) and
-            (Pos.Y >= Top + ControlBounds.Top) and
-            (Pos.Y < Top + ControlBounds.Bottom) then
-          begin
-            Msg.result := HTCLIENT;
-            Exit;
-          end;
-        end;
-      Msg.Result := HTCAPTION;
-    end;
-  end;
-end;
-
 procedure TDrawDlg.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
   Y: Integer);
@@ -131 +96 @@
   MousePos1: TPoint;
   MousePos2: TPoint;
-{$IFDEF UNIX}
   NewFormPos: TPoint;
-{$ENDIF}
 begin
   MousePos1 := Mouse.CursorPos;
   inherited;
   MousePos2 := Mouse.CursorPos;
-  {$IFDEF UNIX}
-  // Only if client is not doing own mouse move handling
   if not Assigned(OnMouseDown) or not Assigned(OnMouseMove) or not Assigned(OnMouseUp) then begin
-    // HitTest is not supported under Linux GTK2 so use form inside move mechanizm
     NewFormPos := ScreenToClient(Mouse.CursorPos);
     if (NewFormPos.X >= 0) and (NewFormPos.X < Width) and
@@ -154 +114 @@
     end else MoveActive := False;
   end;
-  {$ENDIF}
 end;
 
@@ -163 +122 @@
   inherited;
   if MoveActive then begin
-    MousePos := ClientToScreen(Point(X, Y));
+    MousePos := Mouse.CursorPos;
     SetBounds(MoveFormPos.X + MousePos.X - MoveMousePos.X,
-      MoveFormPos.Y + MousePos.Y - MoveMousePos.Y,
-      Width, Height);
+      MoveFormPos.Y + MousePos.Y - MoveMousePos.Y, Width, Height);
   end;
 end;