Changeset 465 for branches/highdpi/Platform.pas

Timestamp:

Nov 30, 2023, 10:16:14 PM (6 months ago)

Author:

chronos

Message:

• Modified: Updated high dpi branch from trunk.
• Modified: Use generics.collections instead of fgl.
• Modified: Compile with Delphi syntax.

File:

• branches/highdpi/Platform.pas (modified) (5 diffs)

branches/highdpi/Platform.pas

@@ -1 +1 @@
 unit Platform;
-
-{$mode delphi}{$H+}
 
 interface
 
 uses
-  {$IFDEF Windows}Windows,{$ENDIF}
-  {$IFDEF Linux}Unix,{$ENDIF}
+  {$IFDEF WINDOWS}Windows,{$ENDIF}
+  {$IFDEF UNIX}Unix,{$ENDIF}
   Classes, SysUtils, DateUtils, SyncObjs;
 
 function NowPrecise: TDateTime;
 
+
 implementation
 
-{$IFDEF Windows}
+{$IFDEF WINDOWS}
 var
   PerformanceFrequency: Int64;
@@ -24 +23 @@
 function NowPrecise: TDateTime;
 var
-  {$IFDEF Linux}T: TimeVal;{$ENDIF}
-  {$IFDEF Windows}TimerValue: Int64;{$ENDIF}
+  {$IFDEF UNIX}T: TimeVal;{$ENDIF}
+  {$IFDEF WINDOWS}TimerValue: Int64;{$ENDIF}
 begin
 //  Result := Now;
   //try
     //NowPreciseLock.Acquire;
-    {$IFDEF Windows}
+    {$IFDEF WINDOWS}
     QueryPerformanceCounter(TimerValue);
     //Result := Int64(TimeStampToMSecs(DateTimeToTimeStamp(Now)) * 1000) // an alternative Win32 timebase
@@ -36 +35 @@
     {$ENDIF}
 
-    {$IFDEF Linux}
+    {$IFDEF UNIX}
     fpgettimeofday(@t, nil);
      // Build a 64 bit microsecond tick from the seconds and microsecond longints
@@ -51 +50 @@
 initialization
 
-{$IFDEF Windows}
+{$IFDEF WINDOWS}
 QueryPerformanceFrequency(PerformanceFrequency);
 {$ENDIF}
@@ -62 +61 @@
 end.
 
+