Changeset 243 for trunk/Forms/UFormNew.pas

Timestamp:

Sep 21, 2018, 2:09:10 PM (6 years ago)

Author:

chronos

Message:

• Added: Support for color themes.
• Added: Remember dimensions for more forms.

File:

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

trunk/Forms/UFormNew.pas

@@ -15 +15 @@
 
   TFormNew = class(TForm)
+    ActionList1: TActionList;
+    APlayerAdd: TAction;
+    APlayerModify: TAction;
+    APlayerRemove: TAction;
+    AServerAdd: TAction;
     AServerModify: TAction;
-    AServerAdd: TAction;
     AServerRemove: TAction;
-    APlayerAdd: TAction;
-    APlayerRemove: TAction;
-    APlayerModify: TAction;
-    ActionList1: TActionList;
     Button1: TButton;
     Button2: TButton;
@@ -32 +32 @@
     ButtonPlayerRemove: TButton;
     CheckBoxBridges: TCheckBox;
+    CheckBoxCity: TCheckBox;
+    CheckBoxCyclicMap: TCheckBox;
     CheckBoxFogOfWar: TCheckBox;
-    CheckBoxCity: TCheckBox;
     CheckBoxSymetricMap: TCheckBox;
-    CheckBoxCyclicMap: TCheckBox;
     CheckBoxVoid: TCheckBox;
     ComboBoxGridType: TComboBox;
     ComboBoxMapShape: TComboBox;
     ComboBoxWinObjective: TComboBox;
+    EditImageFile: TEdit;
     EditServerAddress: TEdit;
-    EditImageFile: TEdit;
     Label1: TLabel;
     Label10: TLabel;
@@ -67 +67 @@
     PageControl1: TPageControl;
     PageControl2: TPageControl;
+    Panel1: TPanel;
+    Panel2: TPanel;
+    Panel3: TPanel;
+    Panel4: TPanel;
     PanelButtons: TPanel;
     PanelChat: TPanel;
     PopupMenuPlayers: TPopupMenu;
     PopupMenuServers: TPopupMenu;
+    RadioButtonModeLocal: TRadioButton;
+    RadioButtonModeNetworkClient: TRadioButton;
     RadioButtonModeNetworkServer: TRadioButton;
-    RadioButtonModeNetworkClient: TRadioButton;
-    RadioButtonModeLocal: TRadioButton;
     RadioGroupGrowAmount: TRadioGroup;
     RadioGroupGrowCells: TRadioGroup;
-    SpinEditMaxPower: TSpinEdit;
-    SpinEditServerPort: TSpinEdit;
     SpinEditCityPercent: TSpinEdit;
     SpinEditMapSizeX: TSpinEdit;
     SpinEditMapSizeY: TSpinEdit;
+    SpinEditMaxPower: TSpinEdit;
     SpinEditNeutralUnits: TSpinEdit;
+    SpinEditServerPort: TSpinEdit;
     SpinEditSpecialCells: TSpinEdit;
     SpinEditTurns: TSpinEdit;
     SpinEditVoidPercent: TSpinEdit;
     Splitter1: TSplitter;
+    TabSheetCaptureCells: TTabSheet;
+    TabSheetCaptureCities: TTabSheet;
+    TabSheetDefeatEnemies: TTabSheet;
     TabSheetPlayers: TTabSheet;
     TabSheetMap: TTabSheet;
     TabSheetRules: TTabSheet;
+    TabSheetMode: TTabSheet;
     TabSheetStayAliveTurns: TTabSheet;
-    TabSheetCaptureCells: TTabSheet;
-    TabSheetDefeatEnemies: TTabSheet;
-    TabSheetCaptureCities: TTabSheet;
-    TabSheetMode: TTabSheet;
     TrackBarSizeX: TTrackBar;
     TrackBarSizeY: TTrackBar;
@@ -341 +345 @@
 begin
   Core.PersistentForm.Load(Self);
+  Core.ThemeManager1.UseTheme(Self);
   ReloadView;
   //Height := Trunc(1.5 * Height);