Changeset 83 for trunk/Engine.pas

Timestamp:

May 17, 2024, 4:52:24 PM (6 months ago)

Author:

chronos

Message:

• Modified: Use F10 as exit according to the original game.
• Modified: Better menu items drawing.

File:

• trunk/Engine.pas (modified) (7 diffs)

trunk/Engine.pas

@@ -207 +207 @@
     FBitmap: TBitmap;
     FBitmapLock: TCriticalSection;
+    FOnClose: TNotifyEvent;
     FOnGameEnd: TNotifyEvent;
     FRedrawPending: Boolean;
@@ -232 +233 @@
     procedure DrawMap;
     procedure SetState(AValue: TGameState);
+    procedure ShowMenuItem(Key, Text: string; X, Y: Integer; Canvas: TCanvas);
     function TextOutWordWrap(Canvas: TCanvas; X, Y: Integer; Text: string; Width: Integer): Integer;
   public
@@ -264 +266 @@
     property State: TGameState read FState write SetState;
     property OnGameEnd: TNotifyEvent read FOnGameEnd write FOnGameEnd;
+    property OnClose: TNotifyEvent read FOnClose write FOnClose;
   end;
 
@@ -1611 +1614 @@
 end;
 
+procedure TEngine.ShowMenuItem(Key, Text: string; X, Y: Integer; Canvas: TCanvas);
+begin
+  Canvas.TextOut(X, Y, '<' + Key + '>');
+  Canvas.TextOut(X + 140, Y, Text);
+end;
+
 procedure TEngine.DrawMenu;
 var
@@ -1644 +1653 @@
     Font.Color := clPurple;
     Font.Size := 20;
-    Text := '<F1>  ' + SStartGame;
-    TextOut((MenuWidth - TextWidth(Text)) div 2, Bitmap.Height div 10 * 4, Text);
-    Text := '<F2>  ' + SInstructions;
-    TextOut((MenuWidth - TextWidth(Text)) div 2, Bitmap.Height div 10 * 4 + 40, Text);
-    Text := '<F3>  ' + SInformation;
-    TextOut((MenuWidth - TextWidth(Text)) div 2, Bitmap.Height div 10 * 4 + 80, Text);
-    Text := '<Alt+F4>  ' + SExit;
-    TextOut((MenuWidth - TextWidth(Text)) div 2, Bitmap.Height div 10 * 4 + 120, Text);
+
+    ShowMenuItem('F1', SStartGame, MenuWidth div 2 - 180, Bitmap.Height div 10 * 4, Bitmap.Canvas);
+    ShowMenuItem('F2', SInstructions, MenuWidth div 2 - 180, Bitmap.Height div 10 * 4 + 40, Bitmap.Canvas);
+    ShowMenuItem('F3', SInformation, MenuWidth div 2 - 180, Bitmap.Height div 10 * 4 + 80, Bitmap.Canvas);
+    ShowMenuItem('F10', SExit, MenuWidth div 2 - 180, Bitmap.Height div 10 * 4 + 120, Bitmap.Canvas);
 
     Font.Color := clDarkGreen;
@@ -1947 +1953 @@
   KeyF3 = 114;
   KeyF4 = 115;
+  KeyF10 = 121;
   KeyEsc = 27;
 var
@@ -1963 +1970 @@
     if Key = KeyF3 then begin
       State := gsInformation;
+    end else
+    if Key = KeyF10 then begin
+      if Assigned(FOnClose) then FOnClose(Self);
     end;
   end else