Changeset 64 for trunk/UMenu.pas

Timestamp:

Nov 26, 2020, 4:58:02 PM (3 years ago)

Author:

chronos

Message:

• Added: Support for dark mode.
• Added: Top left back button to exit from game to game menu. Allow to restart game and continue with playing.
• Added: Support for Escape key for exiting game and menu.

File:

• trunk/UMenu.pas (modified) (11 diffs)

trunk/UMenu.pas

@@ -14 +14 @@
 
   TMenuItem = class
+    BackgroundColor: TColor;
+    BackgroundSelectedColor: TColor;
     Kind: TMenuItemKind;
     Text: string;
     Bounds: TRect;
     Selected: Boolean;
+    FontSize: Integer;
+    FontColor: Integer;
+    Enabled: Boolean;
     procedure Paint(Canvas: TCanvas; P: TPoint); virtual;
+    function GetOutputText: string; virtual;
+    constructor Create;
   end;
 
@@ -43 +50 @@
     destructor Destroy; override;
     procedure Paint(Canvas: TCanvas; P: TPoint); override;
+    function GetOutputText: string; override;
     property OnChanged: TNotifyEvent read FOnChanged write FOnChanged;
   end;
@@ -66 +74 @@
 
   TMenu = class
+  private
+    FOnExit: TNotifyEvent;
+  public
     Items: TMenuItems;
     Parent: TMenu;
@@ -73 +84 @@
     constructor Create;
     destructor Destroy; override;
+    property OnExit: TNotifyEvent read FOnExit write FOnExit;
   end;
 
@@ -87 +99 @@
   SAutomatic = 'Automatic';
   SFullScreen = 'Full screen';
+  SContinue = 'Continue';
+  SRestart = 'Try again';
 
 
@@ -95 +109 @@
 procedure TMenuItemButton.Paint(Canvas: TCanvas; P: TPoint);
 begin
-  if Selected then Canvas.Brush.Color := $e78C31
-    else Canvas.Brush.Color := $f7bC61;
+  if Selected then Canvas.Brush.Color := BackgroundSelectedColor
+    else Canvas.Brush.Color := BackgroundColor;
+  if Canvas.Brush.Color = clNone then Canvas.Brush.Style := bsClear
+    else Canvas.Brush.Style := bsSolid;
   Bounds := Classes.Bounds(P.X, P.Y, Canvas.TextWidth(Text), Canvas.TextHeight(Text));
   Canvas.TextOut(P.X, P.Y, Text);
@@ -109 +125 @@
   OutputText := Text;
   if Checked then OutputText := '✓' + OutputText;
-  if Selected then Canvas.Brush.Color := $e78C31
-    else Canvas.Brush.Color := $f7bC61;
+  if Selected then Canvas.Brush.Color := BackgroundSelectedColor
+    else Canvas.Brush.Color := BackgroundColor;
+  if Canvas.Brush.Color = clNone then Canvas.Brush.Style := bsClear
+    else Canvas.Brush.Style := bsSolid;
   Bounds := Classes.Bounds(P.X, P.Y, Canvas.TextWidth(OutputText), Canvas.TextHeight(OutputText));
   Canvas.TextOut(P.X, P.Y, OutputText);
@@ -121 +139 @@
 end;
 
+function TMenuItem.GetOutputText: string;
+begin
+  Result := Text;
+end;
+
+constructor TMenuItem.Create;
+begin
+  Enabled := True;
+  FontSize := 40;
+  FontColor := clWhite;
+end;
+
 { TMenuItemComboBox }
 
@@ -135 +165 @@
 
 procedure TMenuItemComboBox.Paint(Canvas: TCanvas; P: TPoint);
-var
-  OutputText: string;
-begin
-  if Selected then Canvas.Brush.Color := $e78C31
-    else Canvas.Brush.Color := $f7bC61;
-  OutputText := Text + ': ' + States[Index];
-  Bounds := Classes.Bounds(P.X, P.Y, Canvas.TextWidth(OutputText), Canvas.TextHeight(OutputText));
-  Canvas.TextOut(P.X, P.Y, OutputText);
+begin
+  if Selected then Canvas.Brush.Color := BackgroundSelectedColor
+    else Canvas.Brush.Color := BackgroundColor;
+  if Canvas.Brush.Color = clNone then Canvas.Brush.Style := bsClear
+    else Canvas.Brush.Style := bsSolid;
+  Bounds := Classes.Bounds(P.X, P.Y, Canvas.TextWidth(GetOutputText), Canvas.TextHeight(GetOutputText));
+  Canvas.TextOut(P.X, P.Y, GetOutputText);
+end;
+
+function TMenuItemComboBox.GetOutputText: string;
+begin
+  Result := Text + ': ' + States[Index];
 end;
 
@@ -152 +186 @@
 begin
   for I := 0 to Items.Count - 1 do begin
-    Items[I].Selected := Items[I].Bounds.Contains(Position);
+    if Items[I].Enabled then
+      Items[I].Selected := Items[I].Bounds.Contains(Position);
   end;
 end;
@@ -187 +222 @@
   Y: Integer;
   LineHeight: Integer;
+  TotalWidth: Integer;
+  TotalHeight: Integer;
 begin
   with Canvas do begin
-    X := Width div 3;
-    Y := Height div 5;
-
-    // Title
-    Font.Size := 60;
-    Font.Color := clBlack;
-    Font.Style := [fsBold];
-    Brush.Style := bsClear;
-    TextOut(X, Y, SBigMetro);
-    LineHeight := Round(TextHeight('I') * 1.1);
-    Inc(Y, LineHeight);
-
-    // Menu items
-    Font.Size := 40;
-    Font.Color := clWhite;
+    TotalWidth := 0;
+    TotalHeight := 0;
+
+    // Calculate total dimensions for centering
     Font.Style := [fsBold];
     Brush.Style := bsSolid;
-    LineHeight := Round(TextHeight('I') * 1.1);
     for I := 0 to Items.Count - 1 do begin
+      Font.Size := Items[I].FontSize;
+      if TotalWidth < TextWidth(Items[I].GetOutputText) then
+        TotalWidth := TextWidth(Items[I].GetOutputText);
+      LineHeight := Round(TextHeight('I') * 1.1);
+      TotalHeight := TotalHeight + LineHeight;
+    end;
+
+    X := (Width - TotalWidth) div 2;
+    Y := (Height - TotalHeight) div 2;
+
+    // Menu items
+    Font.Style := [fsBold];
+    Brush.Style := bsSolid;
+    for I := 0 to Items.Count - 1 do begin
+      Font.Size := Items[I].FontSize;
+      Font.Color := Items[I].FontColor;
       Items[I].Paint(Canvas, Point(X, Y));
+      LineHeight := Round(TextHeight('I') * 1.1);
       Inc(Y, LineHeight);
     end;