Changeset 49 for trunk/Forms

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.

Location:

trunk/Forms

Files:

• UFormNew.lfm (modified) (1 diff)
• UFormNew.lrj (modified) (1 diff)
• UFormNew.pas (modified) (4 diffs)

trunk/Forms/UFormNew.lfm

@@ -78 +78 @@
     TabOrder = 4
   end
+  object Label2: TLabel
+    Left = 16
+    Height = 26
+    Top = 125
+    Width = 75
+    Caption = 'Tile skin:'
+    ParentColor = False
+  end
+  object ComboBoxSkin: TComboBox
+    Left = 173
+    Height = 38
+    Top = 120
+    Width = 262
+    ItemHeight = 0
+    Items.Strings = (
+      ''
+    )
+    Style = csDropDownList
+    TabOrder = 5
+  end
 end

trunk/Forms/UFormNew.lrj

@@ -5 +5 @@
 {"hash":1339,"name":"tformnew.buttonok.caption","sourcebytes":[79,75],"value":"OK"},
 {"hash":260260820,"name":"tformnew.checkboxundoenabled.caption","sourcebytes":[85,110,100,111,32,101,110,97,98,108,101,100],"value":"Undo enabled"},
-{"hash":146862089,"name":"tformnew.checkboxrecordhistory.caption","sourcebytes":[82,101,99,111,114,100,32,109,111,118,101,115,32,104,105,115,116,111,114,121],"value":"Record moves history"}
+{"hash":146862089,"name":"tformnew.checkboxrecordhistory.caption","sourcebytes":[82,101,99,111,114,100,32,109,111,118,101,115,32,104,105,115,116,111,114,121],"value":"Record moves history"},
+{"hash":125677626,"name":"tformnew.label2.caption","sourcebytes":[84,105,108,101,32,115,107,105,110,58],"value":"Tile skin:"}
 ]}

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;