Changeset 188
- Timestamp:
- Apr 22, 2018, 2:10:24 PM (7 years ago)
- Location:
- trunk/Forms
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormPlayer.lfm
r183 r188 9 9 Constraints.MinHeight = 344 10 10 Constraints.MinWidth = 522 11 DesignTimePPI = 12012 11 OnClose = FormClose 12 OnCreate = FormCreate 13 13 OnShow = FormShow 14 14 Position = poMainFormCenter 15 LCLVersion = '1.8.0. 6'15 LCLVersion = '1.8.0.4' 16 16 object Label1: TLabel 17 17 Left = 24 18 Height = 2 018 Height = 26 19 19 Top = 27 20 Width = 4320 Width = 56 21 21 Caption = 'Name:' 22 22 ParentColor = False … … 24 24 object EditName: TEdit 25 25 Left = 168 26 Height = 2826 Height = 36 27 27 Top = 27 28 28 Width = 339 … … 53 53 object ComboBoxMode: TComboBox 54 54 Left = 168 55 Height = 2855 Height = 36 56 56 Top = 72 57 57 Width = 339 58 58 Anchors = [akTop, akLeft, akRight] 59 ItemHeight = 2059 ItemHeight = 0 60 60 ItemIndex = 0 61 61 Items.Strings = ( … … 70 70 object Label2: TLabel 71 71 Left = 24 72 Height = 2 072 Height = 26 73 73 Top = 72 74 Width = 4274 Width = 53 75 75 Caption = 'Mode:' 76 76 ParentColor = False … … 78 78 object Label3: TLabel 79 79 Left = 24 80 Height = 2 080 Height = 26 81 81 Top = 128 82 Width = 3982 Width = 50 83 83 Caption = 'Color:' 84 84 ParentColor = False … … 86 86 object ColorBox1: TColorBox 87 87 Left = 168 88 Height = 2688 Height = 40 89 89 Top = 120 90 90 Width = 339 … … 96 96 object Label4: TLabel 97 97 Left = 24 98 Height = 2 098 Height = 26 99 99 Top = 168 100 Width = 74100 Width = 98 101 101 Caption = 'Agressivity:' 102 102 ParentColor = False … … 104 104 object ComboBoxAgressivity: TComboBox 105 105 Left = 168 106 Height = 28106 Height = 40 107 107 Top = 168 108 108 Width = 339 109 109 Anchors = [akTop, akLeft, akRight] 110 ItemHeight = 20110 ItemHeight = 0 111 111 Items.Strings = ( 112 112 'Low' … … 120 120 object CheckBoxDefensive: TCheckBox 121 121 Left = 24 122 Height = 24122 Height = 30 123 123 Top = 208 124 Width = 89124 Width = 107 125 125 Caption = 'Defensive' 126 126 TabOrder = 6 … … 128 128 object Label5: TLabel 129 129 Left = 24 130 Height = 2 0130 Height = 26 131 131 Top = 248 132 Width = 69132 Width = 94 133 133 Caption = 'Start units:' 134 134 ParentColor = False … … 136 136 object SpinEditStartUnits: TSpinEdit 137 137 Left = 224 138 Height = 28138 Height = 36 139 139 Top = 240 140 140 Width = 112 -
trunk/Forms/UFormPlayer.pas
r183 r188 29 29 procedure ComboBoxModeChange(Sender: TObject); 30 30 procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); 31 procedure FormCreate(Sender: TObject); 31 32 procedure FormShow(Sender: TObject); 32 33 private … … 68 69 end; 69 70 71 procedure TFormPlayer.FormCreate(Sender: TObject); 72 begin 73 Translate; 74 end; 75 70 76 procedure TFormPlayer.FormShow(Sender: TObject); 71 77 begin 72 78 Core.PersistentForm.Load(Self); 73 Translate;74 79 UpdateInterface; 75 80 end;
Note:
See TracChangeset
for help on using the changeset viewer.