Changeset 103 for trunk/Forms/FormMain.pas

Timestamp:

Dec 9, 2024, 3:04:44 PM (13 days ago)

Author:

chronos

Message:

• Modified: Tile skin and color palette setting moved from new game dialog to menu. It can be now set during gameplay.

File:

• trunk/Forms/FormMain.pas (modified) (6 diffs)

trunk/Forms/FormMain.pas

@@ -28 +28 @@
     MenuItem5: TMenuItem;
     MenuItem6: TMenuItem;
+    MenuItemColorPalette: TMenuItem;
+    MenuItemTileSkin: TMenuItem;
     MenuItemFullScreen: TMenuItem;
     MenuItemMovesHistory: TMenuItem;
@@ -58 +60 @@
     MoveBuffer: array of TMoveDirection;
     MoveBufferLock: TCriticalSection;
+    procedure MenuItemTileSkinClick(Sender: TObject);
+    procedure MenuItemColorPaletteClick(Sender: TObject);
     procedure AddToMoveBuffer(Direction: TMoveDirection);
     procedure ProcessMoveBuffer;
@@ -179 +183 @@
 
 procedure TFormMain.FormCreate(Sender: TObject);
+var
+  TileSkin: TTileSkin;
+  ColorPalette: TColorPalette;
+  MenuItem: TMenuItem;
 begin
   MoveBufferLock := TCriticalSection.Create;
@@ -186 +194 @@
   MoveThread.Start;
   ControlStyle := ControlStyle + [csOpaque];
+
+  for TileSkin := Low(SkinText) to High(SkinText) do begin
+    MenuItem := TMenuItem.Create(MenuItemTileSkin);
+    MenuItem.RadioItem := True;
+    MenuItem.AutoCheck := True;
+    MenuItem.Tag := Integer(TileSkin);
+    MenuItem.Caption := SkinText[TileSkin];
+    MenuItem.OnClick := MenuItemTileSkinClick;
+    MenuItemTileSkin.Add(MenuItem);
+  end;
+
+  for ColorPalette := Low(ColorPaletteText) to High(ColorPaletteText) do begin
+    MenuItem := TMenuItem.Create(MenuItemColorPalette);
+    MenuItem.RadioItem := True;
+    MenuItem.AutoCheck := True;
+    MenuItem.Tag := Integer(ColorPalette);
+    MenuItem.Caption := ColorPaletteText[ColorPalette];
+    MenuItem.OnClick := MenuItemColorPaletteClick;
+    MenuItemColorPalette.Add(MenuItem);
+  end;
 end;
 
@@ -221 +249 @@
 begin
   // Do nothing
+end;
+
+procedure TFormMain.MenuItemTileSkinClick(Sender: TObject);
+begin
+  Core.Core.Game.Skin := TTileSkin(TMenuItem(Sender).Tag);
+end;
+
+procedure TFormMain.MenuItemColorPaletteClick(Sender: TObject);
+begin
+  Core.Core.Game.ColorPalette := TColorPalette(TMenuItem(Sender).Tag);
 end;
 
@@ -277 +315 @@
     end;
   MenuItemTools.Visible := ToolsVisible;
+  MenuItemTileSkin.Items[Integer(Core.Core.Game.Skin)].Checked := True;
+  MenuItemColorPalette.Items[Integer(Core.Core.Game.ColorPalette)].Checked := True;
 end;