Changeset 100 for trunk/UMenu.pas

Timestamp:

Sep 28, 2022, 7:14:22 PM (20 months ago)

Author:

chronos

Message:

• Added: New game mode carrier where user needs to play existing cities and gradually unlock them by reaching exprected transported number of passengers.

File:

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

trunk/UMenu.pas

@@ -14 +14 @@
     BackgroundColor: TColor;
     BackgroundSelectedColor: TColor;
+    TextColor: TColor;
+    TextDisabledColor: TColor;
     Kind: TMenuItemKind;
     Text: string;
     Selected: Boolean;
-    FontSize: Integer;
-    FontColor: Integer;
+    TextSize: Integer;
     function GetOutputText: string; virtual;
     constructor Create; override;
@@ -125 +126 @@
 begin
   Enabled := True;
-  FontSize := 40;
-  FontColor := clWhite;
+  TextSize := 40;
+  TextColor := clWhite;
+  TextDisabledColor := clSilver;
 end;
 
@@ -180 +182 @@
     if Items[I].Bounds.Contains(Position) then begin
       if (Items[I] is TMenuItemButton) then begin
-        if Assigned(TMenuItemButton(Items[I]).OnClick) then
-          TMenuItemButton(Items[I]).OnClick(Items[I]);
+        TMenuItemButton(Items[I]).MouseUp(Position);
       end else
       if (Items[I] is TMenuItemCheckBox) then begin
@@ -215 +216 @@
     Brush.Style := bsSolid;
     for I := 0 to Items.Count - 1 do begin
-      Font.Size := Items[I].FontSize;
+      Font.Size := Items[I].TextSize;
       if TotalWidth < TextWidth(Items[I].GetOutputText) then
         TotalWidth := TextWidth(Items[I].GetOutputText);
@@ -229 +230 @@
     Brush.Style := bsSolid;
     for I := 0 to Items.Count - 1 do begin
-      Font.Size := Items[I].FontSize;
-      Font.Color := Items[I].FontColor;
+      Font.Size := Items[I].TextSize;
+      if Items[I].Enabled then Font.Color := Items[I].TextColor
+        else Font.Color := Items[I].TextDisabledColor;
       Items[I].Bounds.Left := X;
       Items[I].Bounds.Top := Y;