Changeset 17 for trunk/ScreenTools.pas

Timestamp:

Jan 8, 2017, 11:21:02 AM (7 years ago)

Author:

chronos

Message:

• Fixed: Build under Linux.

File:

• trunk/ScreenTools.pas (modified) (6 diffs)

trunk/ScreenTools.pas

@@ -5 +5 @@
 
 uses
-  Windows, StringTables,
+  StringTables,
   LCLIntf, LCLType, LMessages, Messages, SysUtils, Classes, Graphics, Controls,
   Forms, Menus;
@@ -16 +16 @@
   end;
 
+{$IFDEF WINDOWS}
 function ChangeResolution(x, y, bpp, freq: integer): boolean;
+{$ENDIF}
 procedure RestoreResolution;
 function Play(Item: string; Index: integer = -1): boolean;
@@ -192 +194 @@
 
 var
+  {$IFDEF WINDOWS}
   StartResolution: TDeviceMode;
+  {$ENDIF}
   ResolutionChanged: boolean;
 
@@ -198 +202 @@
   GammaLUT: array [0 .. 255] of Byte;
 
+{$IFDEF WINDOWS}
 function ChangeResolution(x, y, bpp, freq: integer): boolean;
 var
@@ -213 +218 @@
     ResolutionChanged := true;
 end;
+{$ENDIF}
 
 procedure RestoreResolution;
 begin
+  {$IFDEF WINDOWS}
   if ResolutionChanged then
     ChangeDisplaySettings(StartResolution, 0);
+  {$ENDIF}
   ResolutionChanged := false;
 end;
@@ -1476 +1484 @@
 end;
 
+{$IFDEF WINDOWS}
 EnumDisplaySettings(nil, $FFFFFFFF, StartResolution);
+{$ENDIF}
 ResolutionChanged := false;