Changeset 89 for trunk/Forms/FormNew.pas

Timestamp:

Jun 7, 2024, 4:35:46 PM (3 months ago)

Author:

chronos

Message:

• Added: Allow to select color palette in new game dialog.
• Fixed: Use scrollboxes in options dialogs.

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
@@ -31 +34 @@
 {$R *.lfm}
 
-uses
-  Core;
-
 { TFormNew }
 
 procedure TFormNew.FormCreate(Sender: TObject);
 var
-  I: TTileSkin;
+  TileSkin: TTileSkin;
+  ColorPalette: TColorPalette;
 begin
   ComboBoxSkin.Items.BeginUpdate;
   try
     ComboBoxSkin.Items.Clear;
-    for I := Low(SkinText) to High(SkinText) do
-      ComboBoxSkin.Items.Add(SkinText[I]);
+    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;
@@ -56 +66 @@
   CheckBoxRecordHistory.Checked := Game.RecordHistory;
   ComboBoxSkin.ItemIndex := Integer(Game.Skin);
+  ComboBoxColorPalette.ItemIndex := Integer(Game.ColorPalette);
 end;
 
@@ -64 +75 @@
   Game.RecordHistory := CheckBoxRecordHistory.Checked;
   Game.Skin := TTileSkin(ComboBoxSkin.ItemIndex);
+  Game.ColorPalette := TColorPalette(ComboBoxColorPalette.ItemIndex);
 end;