Changeset 103 for trunk/Forms/FormNew.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/FormNew.pas (modified) (4 diffs)

trunk/Forms/FormNew.pas

@@ -16 +16 @@
     CheckBoxRecordHistory: TCheckBox;
     CheckBoxUndoEnabled: TCheckBox;
-    ComboBoxColorPalette: TComboBox;
     ComboBoxSize: TComboBox;
-    ComboBoxSkin: TComboBox;
     Label1: TLabel;
-    Label2: TLabel;
-    Label3: TLabel;
     ScrollBox1: TScrollBox;
-    procedure FormCreate(Sender: TObject);
   public
     procedure Load(Game: TGame);
@@ -35 +30 @@
 
 { TFormNew }
-
-procedure TFormNew.FormCreate(Sender: TObject);
-var
-  TileSkin: TTileSkin;
-  ColorPalette: TColorPalette;
-begin
-  ComboBoxSkin.Items.BeginUpdate;
-  try
-    ComboBoxSkin.Items.Clear;
-    for TileSkin := Low(SkinText) to High(SkinText) do
-      ComboBoxSkin.Items.Add(SkinText[TileSkin]);
-  finally
-    ComboBoxSkin.Items.EndUpdate;
-  end;
-
-  ComboBoxColorPalette.Items.BeginUpdate;
-  try
-    ComboBoxColorPalette.Items.Clear;
-    for ColorPalette := Low(ColorPaletteText) to High(ColorPaletteText) do
-      ComboBoxColorPalette.Items.Add(ColorPaletteText[ColorPalette]);
-  finally
-    ComboBoxColorPalette.Items.EndUpdate;
-  end;
-end;
-
 procedure TFormNew.Load(Game: TGame);
 begin
@@ -65 +35 @@
   CheckBoxUndoEnabled.Checked := Game.UndoEnabled;
   CheckBoxRecordHistory.Checked := Game.RecordHistory;
-  ComboBoxSkin.ItemIndex := Integer(Game.Skin);
-  ComboBoxColorPalette.ItemIndex := Integer(Game.ColorPalette);
 end;
 
@@ -74 +42 @@
   Game.UndoEnabled := CheckBoxUndoEnabled.Checked;
   Game.RecordHistory := CheckBoxRecordHistory.Checked;
-  Game.Skin := TTileSkin(ComboBoxSkin.ItemIndex);
-  Game.ColorPalette := TColorPalette(ComboBoxColorPalette.ItemIndex);
 end;