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

Timestamp:

Apr 25, 2022, 6:01:01 PM (3 years ago)

Author:

chronos

Message:

• Modified: Do not use explicit mode delphi directive as it is already set in project.
• Modified: Use UNIX instead of LINUX for conditional code to work also on FreeBSD.

File:

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

trunk/Packages/CevoComponents/DrawDlg.pas

@@ -1 +1 @@
 unit DrawDlg;
 
-{$mode delphi}{$H+}
-
 interface
 
 uses
-  Classes, SysUtils, Forms, LCLIntf, LCLType, {$IFDEF LINUX}LMessages,{$ENDIF}
+  Classes, SysUtils, Forms, LCLIntf, LCLType, {$IFDEF UNIX}LMessages,{$ENDIF}
   Messages, Graphics, Controls, ButtonBase, ButtonA, ButtonB, Area, ScreenTools
   {$IFDEF LCLGTK2}, Gtk2Globals{$ENDIF};
@@ -76 +74 @@
   MoveActive := False;
   AddHandlerOnVisibleChanged(VisibleChangedHandler);
-  {$IFDEF LINUX}
+  {$IFDEF UNIX}
   OnDeactivate := DoDeactivate;
   {$ENDIF}
@@ -131 +129 @@
   MousePos1: TPoint;
   MousePos2: TPoint;
-{$IFDEF LINUX}
+{$IFDEF UNIX}
   MousePosNew: TPoint;
   NewFormPos: TPoint;
@@ -139 +137 @@
   inherited;
   MousePos2 := Mouse.CursorPos;
-  {$IFDEF LINUX}
+  {$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