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

Timestamp:

Apr 24, 2024, 11:19:11 AM (7 months ago)

Author:

chronos

Message:

• Added: TButtonG class as a button class component referencing TGraphicSet item.
• Modified: Code cleanup.

File:

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

trunk/Packages/CevoComponents/DrawDlg.pas

@@ -132 +132 @@
   MousePos2: TPoint;
 {$IFDEF UNIX}
-  MousePosNew: TPoint;
   NewFormPos: TPoint;
 {$ENDIF}
@@ -149 +148 @@
       MoveMousePos := ClientToScreen(Point(X, Y));
       MoveFormPos := Point(Left, Top);
-      MousePosNew := Mouse.CursorPos;
       // Activate move only if mouse position was not changed during inherited call
       if (MousePos1.X = MousePos2.X) and (MousePos1.Y = MousePos2.Y) then begin