Changeset 77 for trunk/UEngine.pas

Timestamp:

May 19, 2021, 11:30:41 AM (3 years ago)

Author:

chronos

Message:

• Added: Control icons for Pause, Play and Fast forward.
• Modified: Image buttons changed to custom TImage control with Enabled property supported.

File:

• trunk/UEngine.pas (modified) (22 diffs)

trunk/UEngine.pas

@@ -9 +9 @@
   {$IFDEF Darwin}MacOSAll, CocoaAll, CocoaUtils,{$ENDIF}
   Classes, SysUtils, Graphics, Controls, ExtCtrls, Math, DateUtils,
-  UMetaCanvas, fgl, UMenu;
+  UMetaCanvas, fgl, UMenu, UControls;
 
 type
@@ -278 +278 @@
     FDarkMode: Boolean;
     FOnDarkModeChange: TNotifyEvent;
+    FState: TGameState;
     LastMousePos: TPoint;
     LastFocusedStation: TMapStation;
@@ -294 +295 @@
     MenuGame: TMenu;
     LastState: TGameState;
+    TimePerSecond: TDateTime;
     function GetServedDaysCount: Integer;
     procedure ResizeView;
@@ -315 +317 @@
     procedure SetDarkMode(AValue: Boolean);
     procedure InitColors;
+    procedure SetState(AValue: TGameState);
     procedure TrainMovement;
     function GetUnusedLine: TMetroLine;
@@ -325 +328 @@
     procedure MenuItemGameRestart(Sender: TObject);
     procedure MenuItemBack(Sender: TObject);
+    procedure ButtonPlay(Sender: TObject);
+    procedure ButtonPause(Sender: TObject);
+    procedure ButtonFastForward(Sender: TObject);
     procedure ButtonBackClick(Sender: TObject);
     procedure DarkModeChanged(Sender: TObject);
     procedure LanguageChanged(Sender: TObject);
     procedure FullScreenChanged(Sender: TObject);
+    procedure UpdateInterface;
   public
     Colors: TColors;
@@ -343 +350 @@
     TrackStationUp: TTrackPoint;
     ServedPassengerCount: Integer;
-    State: TGameState;
     RedrawPending: Boolean;
-    ButtonBack: TMenuItemImage;
+    ButtonBack: TImage;
     ImagePassenger: TImage;
     ImageLocomotive: TImage;
+    ImagePlay: TImage;
+    ImagePause: TImage;
+    ImageFastForward: TImage;
     HighestServedPassengerCount: Integer;
     HighestServedDaysCount: Integer;
@@ -365 +374 @@
     property Time: TDateTime read FTime;
     property DarkMode: Boolean read FDarkMode write SetDarkMode;
+    property State: TGameState read FState write SetState;
     property ServedDaysCount: Integer read GetServedDaysCount;
     property OnDarkModeChange: TNotifyEvent read FOnDarkModeChange
@@ -386 +396 @@
   ImageLocomotiveName = 'Images/Locomotive.png';
   ImageLeftArrowName = 'Images/Left arrow.png';
+  ImagePlayName = 'Images/Play.png';
+  ImagePauseName = 'Images/Pause.png';
+  ImageFastForwardName = 'Images/Fast forward.png';
   TrainPassengerCount = 6;
   StationMinDistance = 100;
@@ -395 +408 @@
   EndStationLength = 50;
   ShowDistances = False;
-  TimePerSecond = 60 * OneMinute;
+  TimePerSecondNormal = 60 * OneMinute;
+  TimePerSecondFast = 2 * TimePerSecondNormal;
   NewStationPeriod = 1;
   NewShapePeriod = 10;
@@ -1692 +1706 @@
     MenuItemBackgroundSelected := $f7bC61;
   end;
+end;
+
+procedure TEngine.SetState(AValue: TGameState);
+begin
+  if FState = AValue then Exit;
+  FState := AValue;
+  UpdateInterface;
 end;
 
@@ -1949 +1970 @@
 end;
 
+procedure TEngine.ButtonPlay(Sender: TObject);
+begin
+  TimePerSecond := TimePerSecondNormal;
+  if State = gsPaused then State := gsRunning;
+  UpdateInterface;
+end;
+
+procedure TEngine.ButtonPause(Sender: TObject);
+begin
+  if State = gsRunning then State := gsPaused;
+  UpdateInterface;
+end;
+
+procedure TEngine.ButtonFastForward(Sender: TObject);
+begin
+  TimePerSecond := TimePerSecondFast;
+  if State = gsPaused then State := gsRunning;
+  UpdateInterface;
+end;
+
 procedure TEngine.MenuItemGameContinue(Sender: TObject);
 begin
@@ -1989 +2030 @@
   FormMain.FullScreen := TMenuItemCheckBox(Sender).Checked;
   FormMain.PersistentForm1.SetFullScreen(FormMain.FullScreen);
+end;
+
+procedure TEngine.UpdateInterface;
+begin
+  ImagePlay.Enabled := not ((State = gsRunning) and (TimePerSecond = TimePerSecondNormal));
+  ImageFastForward.Enabled := not ((State = gsRunning) and (TimePerSecond = TimePerSecondFast));
+  ImagePause.Enabled := FState = gsRunning; //not (State = gsPaused);
 end;
 
@@ -2095 +2143 @@
   Angle: Double;
   Text: string;
-  Text2: string;
   I: Integer;
+  Y: Integer;
 const
   ClockSize = 20;
@@ -2115 +2163 @@
       ClockCenter.Y + Round(Sin(Angle) * ClockSize * 0.9));
   end;
+  Y := ClockCenter.Y + ScaleY(5, 96);
 
   Canvas.Font.Color := Colors.Text;
   Text := FormatDateTime('ddd', Time + 2);
-  Canvas.TextOut(ClockCenter.X - ClockSize - Canvas.TextWidth(Text) - 10, ClockCenter.Y -
-    Canvas.TextHeight(Text) div 2, Text);
-
-  Text2 := SDay + ' ' + IntToStr(Trunc(Time));
-  Canvas.TextOut(ClockCenter.X - ClockSize - Canvas.TextWidth(Text) - 10, ClockCenter.Y -
-    Canvas.TextHeight(Text2) div 2 + Trunc(Canvas.TextHeight(Text) * 1.1), Text2);
+  Canvas.TextOut(ClockCenter.X - ClockSize - Canvas.TextWidth(Text) - 10,
+    Y - Canvas.TextHeight(Text) div 2, Text);
+  Y := Y + Canvas.TextHeight(Text)  + ScaleY(5, 96);
+
+  Text := SDay + ' ' + IntToStr(Trunc(Time));
+  Canvas.TextOut(ClockCenter.X - ClockSize - Canvas.TextWidth(Text) - 10,
+    Y - Canvas.TextHeight(Text) div 2, Text);
+  Y := Y + Canvas.TextHeight(Text)  + ScaleY(5, 96);
+
+  ImagePause.Canvas := Canvas;
+  ImagePause.Bounds := Bounds(CanvasSize.X - ScaleX(20 + 10, 96), Y, ScaleX(20, 96), ScaleY(20, 96));
+  ImagePause.Paint;
+  Y := Y + ImagePause.Bounds.Height + ScaleY(5, 96);
+
+  ImagePlay.Canvas := Canvas;
+  ImagePlay.Bounds := Bounds(CanvasSize.X - ScaleX(20 + 10, 96) , Y, ScaleX(20, 96), ScaleY(20, 96));
+  ImagePlay.Paint;
+  Y := Y + ImagePlay.Bounds.Height + ScaleY(5, 96);
+
+  ImageFastForward.Canvas := Canvas;
+  ImageFastForward.Bounds := Bounds(CanvasSize.X - ScaleX(20 + 10, 96) , Y, ScaleX(20, 96), ScaleY(20, 96));
+  ImageFastForward.Paint;
+  Y := Y + ImageFastForward.Bounds.Height + ScaleY(5, 96);
 end;
 
@@ -2394 +2460 @@
   Text := IntToStr(Trains.GetUnusedCount);
   Canvas.Draw(CanvasSize.X div 2 - Length(LineColors) div 2 * LineColorsDist - 100,
-    CanvasSize.Y - LineColorsDist - ImageLocomotive.Picture.Bitmap.Height div 2, ImageLocomotive.Picture.Bitmap);
+    CanvasSize.Y - LineColorsDist - ImageLocomotive.Bitmap.Height div 2, ImageLocomotive.Bitmap);
   Canvas.Brush.Style := bsClear;
   Canvas.Font.Size := 14;
@@ -2403 +2469 @@
   // Status interface
   Text := IntToStr(ServedPassengerCount);
-  Canvas.Draw(CanvasSize.X - 50, CanvasSize.Y - 60, ImagePassenger.Picture.Bitmap);
+  Canvas.Draw(CanvasSize.X - 50, CanvasSize.Y - 60, ImagePassenger.Bitmap);
   Canvas.Brush.Style := bsClear;
   Canvas.Font.Size := 14;
@@ -2415 +2481 @@
   Canvas.Font.Size := 40;
   Canvas.Font.Color := Colors.Text;
-  ButtonBack.Paint(Canvas, Point(10, 10));
+  ButtonBack.Canvas := Canvas;
+  ButtonBack.Bounds.Left := 10;
+  ButtonBack.Bounds.Top := 10;
+  ButtonBack.Paint;
 
   // Show train grabbed by mouse
@@ -2441 +2510 @@
   if State = gsRunning then begin
     FTime := FTime + (Now - LastTickTime) / OneSecond * TimePerSecond;
-    Redraw; // Redraw on every because engine time is changed so clock should be redrawn
+    Redraw; // Redraw on every tick because engine time is changed so clock should be redrawn
 
   // Add new trains
@@ -2593 +2662 @@
       end;
 
+      // Pause button
+      if ImagePause.Bounds.Contains(Position) then begin
+        if Assigned(ImagePause.OnClick) then
+          ImagePause.OnClick(ImagePause);
+      end;
+
+      // Play button
+      if ImagePlay.Bounds.Contains(Position) then begin
+        if Assigned(ImagePlay.OnClick) then
+          ImagePlay.OnClick(ImagePlay);
+      end;
+
+      // Fast forward button
+      if ImageFastForward.Bounds.Contains(Position) then begin
+        if Assigned(ImageFastForward.OnClick) then
+          ImageFastForward.OnClick(ImageFastForward);
+      end;
+
       // Place selected train if focused track
       if Assigned(SelectedTrain) then begin
@@ -2792 +2879 @@
 constructor TEngine.Create;
 begin
-  ButtonBack := TMenuItemImage.Create;
+  TimePerSecond := TimePerSecondNormal;
+  ButtonBack := TImage.Create;
   ButtonBack.OnClick := ButtonBackClick;
-  ButtonBack.BackgroundColor := clNone;
   ButtonBack.Bounds := Bounds(0, 0, ScaleX(80, 96), ScaleY(80, 96));
   MenuMain := TMenu.Create;
@@ -2810 +2897 @@
   View := TView.Create;
   Trains := TMetroTrains.Create;
-  ImagePassenger := TImage.Create(nil);
-  ImageLocomotive := TImage.Create(nil);
+  ImagePassenger := TImage.Create;
+  ImageLocomotive := TImage.Create;
+  ImagePlay := TImage.Create;
+  ImagePlay.OnClick := ButtonPlay;
+  ImagePause := TImage.Create;
+  ImagePause.OnClick := ButtonPause;
+  ImageFastForward := TImage.Create;
+  ImageFastForward.OnClick := ButtonFastForward;
   //if FileExists(ImagePassengerName) then
   //  ImagePassenger.Picture.LoadFromFile(ImagePassengerName);
@@ -2824 +2917 @@
   FreeAndNil(MetaCanvas);
   FreeAndNil(Trains);
+  FreeAndNil(ImagePlay);
+  FreeAndNil(ImageFastForward);
+  FreeAndNil(ImagePause);
   FreeAndNil(ImageLocomotive);
   FreeAndNil(ImagePassenger);