Changeset 49 for trunk/Forms/UFormNew.pas

Timestamp:

Nov 3, 2019, 11:45:03 AM (5 years ago)

Author:

chronos

Message:

• Added: Support for selectable skins of tiles. Tile values are now representing normal sequence of numbers. If power of two is selected, values are recalculated for rendering and score.

File:

• trunk/Forms/UFormNew.pas (modified) (4 diffs)

trunk/Forms/UFormNew.pas

@@ -19 +19 @@
     CheckBoxUndoEnabled: TCheckBox;
     ComboBoxSize: TComboBox;
+    ComboBoxSkin: TComboBox;
     Label1: TLabel;
+    Label2: TLabel;
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -43 +45 @@
 
 procedure TFormNew.FormCreate(Sender: TObject);
+var
+  I: TTileSkin;
 begin
   Core.Translator1.TranslateComponentRecursive(Self);
+  ComboBoxSkin.Items.Clear;
+  for I := Low(SkinText) to High(SkinText) do
+    ComboBoxSkin.Items.Add(SkinText[I]);
 end;
 
@@ -62 +69 @@
   CheckBoxUndoEnabled.Checked := Game.UndoEnabled;
   CheckBoxRecordHistory.Checked := Game.RecordHistory;
+  ComboBoxSkin.ItemIndex := Integer(Game.Skin);
 end;
 
@@ -69 +77 @@
   Game.UndoEnabled := CheckBoxUndoEnabled.Checked;
   Game.RecordHistory := CheckBoxRecordHistory.Checked;
+  Game.Skin := TTileSkin(ComboBoxSkin.ItemIndex);
 end;