Changeset 89 for trunk/Packages/Common/StopWatch.pas

Timestamp:

Jun 7, 2024, 4:35:46 PM (3 months ago)

Author:

chronos

Message:

• Added: Allow to select color palette in new game dialog.
• Fixed: Use scrollboxes in options dialogs.

File:

• trunk/Packages/Common/StopWatch.pas (modified) (4 diffs)

trunk/Packages/Common/StopWatch.pas

@@ -13 +13 @@
   TStopWatch = class
   private
-    fFrequency : TLargeInteger;
-    fIsRunning: Boolean;
-    fIsHighResolution: Boolean;
-    fStartCount, fStopCount : TLargeInteger;
-    procedure SetTickStamp(var lInt : TLargeInteger) ;
+    FFrequency: TLargeInteger;
+    FIsRunning: Boolean;
+    FIsHighResolution: Boolean;
+    FStartCount, fStopCount: TLargeInteger;
+    procedure SetTickStamp(var Value: TLargeInteger);
     function GetElapsedTicks: TLargeInteger;
     function GetElapsedMiliseconds: TLargeInteger;
     function GetElapsed: string;
   public
-    constructor Create(const startOnCreate : Boolean = False) ;
+    constructor Create(const StartOnCreate: Boolean = False) ;
     procedure Start;
     procedure Stop;
-    property IsHighResolution : Boolean read fIsHighResolution;
-    property ElapsedTicks : TLargeInteger read GetElapsedTicks;
-    property ElapsedMiliseconds : TLargeInteger read GetElapsedMiliseconds;
-    property Elapsed : string read GetElapsed;
-    property IsRunning : Boolean read fIsRunning;
+    property IsHighResolution: Boolean read FIsHighResolution;
+    property ElapsedTicks: TLargeInteger read GetElapsedTicks;
+    property ElapsedMiliseconds: TLargeInteger read GetElapsedMiliseconds;
+    property Elapsed: string read GetElapsed;
+    property IsRunning: Boolean read FIsRunning;
   end;
 
@@ -35 +35 @@
 implementation
 
-constructor TStopWatch.Create(const startOnCreate : boolean = false) ;
+constructor TStopWatch.Create(const StartOnCreate: Boolean = False);
 begin
-  inherited Create;
-
-  fIsRunning := False;
+  FIsRunning := False;
 
   {$IFDEF WINDOWS}
   fIsHighResolution := QueryPerformanceFrequency(fFrequency) ;
   {$ELSE}
-  fIsHighResolution := False;
+  FIsHighResolution := False;
   {$ENDIF}
-  if NOT fIsHighResolution then fFrequency := MSecsPerSec;
+  if NOT FIsHighResolution then FFrequency := MSecsPerSec;
 
   if StartOnCreate then Start;
@@ -53 +51 @@
 function TStopWatch.GetElapsedTicks: TLargeInteger;
 begin
-  Result := fStopCount - fStartCount;
+  Result := FStopCount - FStartCount;
 end;
 
-procedure TStopWatch.SetTickStamp(var lInt : TLargeInteger) ;
+procedure TStopWatch.SetTickStamp(var Value: TLargeInteger);
 begin
-  if fIsHighResolution then
+  if FIsHighResolution then
     {$IFDEF Windows}
     QueryPerformanceCounter(lInt)
@@ -64 +62 @@
     {$ENDIF}
   else
-    lInt := MilliSecondOf(Now) ;
+    Value := MilliSecondOf(Now);
 end;
 
 function TStopWatch.GetElapsed: string;
 var
-  dt: TDateTime;
+  Elapsed: TDateTime;
 begin
-  dt := ElapsedMiliseconds / MSecsPerSec / SecsPerDay;
-  result := Format('%d days, %s', [Trunc(dt), FormatDateTime('hh:nn:ss.z', Frac(dt))]) ;
+  Elapsed := ElapsedMiliseconds / MSecsPerSec / SecsPerDay;
+  Result := Format('%d days, %s', [Trunc(Elapsed), FormatDateTime('hh:nn:ss.z', Frac(Elapsed))]) ;
 end;
 
 function TStopWatch.GetElapsedMiliseconds: TLargeInteger;
 begin
-  Result := (MSecsPerSec * (fStopCount - fStartCount)) div fFrequency;
+  Result := (MSecsPerSec * (fStopCount - FStartCount)) div FFrequency;
 end;
 
 procedure TStopWatch.Start;
 begin
-  SetTickStamp(fStartCount);
-  fIsRunning := True;
+  SetTickStamp(FStartCount);
+  FIsRunning := True;
 end;
 
 procedure TStopWatch.Stop;
 begin
-  SetTickStamp(fStopCount);
-  fIsRunning := False;
+  SetTickStamp(FStopCount);
+  FIsRunning := False;
 end;