Changeset 205 for trunk/Packages

Timestamp:

May 8, 2020, 4:54:17 PM (5 years ago)

Author:

chronos

Message:

• Fixed: Removed various code compilation warnings and hints.

Location:

trunk/Packages/CevoComponents

Files:

• DrawDlg.pas (modified) (2 diffs)
• ScreenTools.pas (modified) (1 diff)
• Sound.pas (modified) (1 diff)

trunk/Packages/CevoComponents/DrawDlg.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Forms, LCLIntf, LCLType, LMessages, Messages, Graphics,
-  Controls, ButtonBase, ButtonA, ButtonB, Area, ScreenTools;
+  Classes, SysUtils, Forms, LCLIntf, LCLType, {$IFDEF LINUX}LMessages,{$ENDIF}
+  Messages, Graphics, Controls, ButtonBase, ButtonA, ButtonB, Area, ScreenTools;
 
 type
@@ -119 +119 @@
 procedure TDrawDlg.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
   Y: Integer);
+{$IFDEF LINUX}
 var
   MousePosNew: TPoint;
   NewFormPos: TPoint;
+{$ENDIF}
 begin
   inherited;

trunk/Packages/CevoComponents/ScreenTools.pas

@@ -208 +208 @@
 
 uses
-  Directories, Sound, Registry, PixelPointer;
+  Directories, Sound, PixelPointer;
 
 var

trunk/Packages/CevoComponents/Sound.pas

@@ -4 +4 @@
 
 uses
-  Messages, SysUtils, Classes, Graphics, Controls, Forms, fgl, FileUtil,
+  SysUtils, Classes, Graphics, Controls, Forms, fgl, FileUtil,
   StringTables, Directories
   {$IFDEF WINDOWS}, MMSystem, Windows{$ENDIF}
-  {$IFDEF LINUX}, Process, AsyncProcess{$ENDIF};
+  {$IFDEF LINUX}, Messages, Process, AsyncProcess{$ENDIF};
 
 type