Changeset 99
- Timestamp:
- Dec 26, 2014, 3:04:52 PM (10 years ago)
- Location:
- trunk
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormSettings.lfm
r98 r99 1 1 object FormSettings: TFormSettings 2 Left = 9172 Left = 404 3 3 Height = 563 4 Top = 1905 Width = 7 844 Top = 338 5 Width = 700 6 6 ActiveControl = ButtonOk 7 7 Caption = 'Settings' 8 8 ClientHeight = 563 9 ClientWidth = 784 9 ClientWidth = 700 10 OnCreate = FormCreate 11 OnShow = FormShow 10 12 Position = poMainFormCenter 11 13 LCLVersion = '1.3' 12 14 object ButtonOk: TButton 13 Left = 67415 Left = 590 14 16 Height = 25 15 Top = 5 1117 Top = 520 16 18 Width = 75 19 Anchors = [akRight, akBottom] 17 20 Caption = 'Ok' 18 21 ModalResult = 1 … … 20 23 end 21 24 object ButtonCancel: TButton 22 Left = 55225 Left = 468 23 26 Height = 25 24 Top = 5 1127 Top = 520 25 28 Width = 75 29 Anchors = [akRight, akBottom] 26 30 Caption = 'Cancel' 27 31 ModalResult = 2 28 32 TabOrder = 1 29 33 end 30 object Label1: TLabel 31 Left = 20 32 Height = 22 33 Top = 26 34 Width = 85 35 Caption = 'Language:' 36 ParentColor = False 37 end 38 object ComboBoxLanguage: TComboBox 39 Left = 178 40 Height = 34 41 Top = 24 42 Width = 196 43 ItemHeight = 0 44 Style = csDropDownList 34 object PageControl1: TPageControl 35 Left = 4 36 Height = 500 37 Top = 4 38 Width = 692 39 ActivePage = TabSheetDebug 40 Align = alTop 41 Anchors = [akTop, akLeft, akRight, akBottom] 42 BorderSpacing.Around = 4 43 TabIndex = 1 45 44 TabOrder = 2 46 end 47 object CheckBoxDevelMode: TCheckBox 48 Left = 16 49 Height = 27 50 Top = 80 51 Width = 752 52 Anchors = [akTop, akLeft, akRight] 53 AutoSize = False 54 Caption = 'Developer mode' 55 TabOrder = 3 56 end 57 object SpinEditAnimSpeed: TSpinEdit 58 Left = 224 59 Height = 32 60 Top = 120 61 Width = 122 62 TabOrder = 4 63 end 64 object Label2: TLabel 65 Left = 19 66 Height = 22 67 Top = 126 68 Width = 145 69 Caption = 'Animation speed:' 70 ParentColor = False 71 end 72 object Label3: TLabel 73 Left = 360 74 Height = 22 75 Top = 130 76 Width = 15 77 Caption = '%' 78 ParentColor = False 79 end 80 object CheckBox1: TCheckBox 81 Left = 16 82 Height = 27 83 Top = 160 84 Width = 752 85 Anchors = [akTop, akLeft, akRight] 86 AutoSize = False 87 Caption = 'Autosave game on each turn' 88 TabOrder = 5 45 object TabSheetGeneral: TTabSheet 46 Caption = 'General' 47 ClientHeight = 460 48 ClientWidth = 686 49 object Label2: TLabel 50 Left = 27 51 Height = 22 52 Top = 78 53 Width = 145 54 Caption = 'Animation speed:' 55 ParentColor = False 56 end 57 object SpinEditAnimSpeed: TSpinEdit 58 Left = 232 59 Height = 32 60 Top = 72 61 Width = 122 62 TabOrder = 0 63 end 64 object Label3: TLabel 65 Left = 368 66 Height = 22 67 Top = 82 68 Width = 15 69 Caption = '%' 70 ParentColor = False 71 end 72 object CheckBox1: TCheckBox 73 Left = 8 74 Height = 27 75 Top = 112 76 Width = 732 77 Anchors = [akTop, akLeft, akRight] 78 AutoSize = False 79 Caption = 'Autosave game on each turn' 80 TabOrder = 1 81 end 82 object Label1: TLabel 83 Left = 20 84 Height = 22 85 Top = 26 86 Width = 85 87 Caption = 'Language:' 88 ParentColor = False 89 end 90 object ComboBoxLanguage: TComboBox 91 Left = 178 92 Height = 34 93 Top = 24 94 Width = 196 95 ItemHeight = 0 96 Style = csDropDownList 97 TabOrder = 2 98 end 99 end 100 object TabSheetDebug: TTabSheet 101 Caption = 'Debug' 102 ClientHeight = 460 103 ClientWidth = 686 104 object CheckBoxDevelMode: TCheckBox 105 Left = 16 106 Height = 27 107 Top = 136 108 Width = 660 109 Anchors = [akTop, akLeft, akRight] 110 AutoSize = False 111 Caption = 'Developer mode' 112 TabOrder = 0 113 end 114 object Label4: TLabel 115 Left = 14 116 Height = 22 117 Top = 67 118 Width = 33 119 Caption = 'DPI:' 120 ParentColor = False 121 end 122 object SpinEditX: TSpinEdit 123 Left = 104 124 Height = 32 125 Top = 64 126 Width = 96 127 MaxValue = 500 128 MinValue = 20 129 TabOrder = 1 130 Value = 50 131 end 132 object SpinEditY: TSpinEdit 133 Left = 232 134 Height = 32 135 Top = 64 136 Width = 90 137 MaxValue = 500 138 MinValue = 20 139 TabOrder = 2 140 Value = 20 141 end 142 object Label5: TLabel 143 Left = 208 144 Height = 22 145 Top = 67 146 Width = 9 147 Caption = 'x' 148 ParentColor = False 149 end 150 object CheckBox2: TCheckBox 151 Left = 16 152 Height = 24 153 Top = 32 154 Width = 656 155 Anchors = [akTop, akLeft, akRight] 156 AutoSize = False 157 Caption = 'Automatic DPI' 158 OnChange = CheckBox2Change 159 TabOrder = 3 160 end 161 end 89 162 end 90 163 end -
trunk/Forms/UFormSettings.lrt
r77 r99 2 2 TFORMSETTINGS.BUTTONOK.CAPTION=Ok 3 3 TFORMSETTINGS.BUTTONCANCEL.CAPTION=Cancel 4 TFORMSETTINGS.LABEL1.CAPTION=Language: 5 TFORMSETTINGS.CHECKBOXDEVELMODE.CAPTION=Developer mode 4 TFORMSETTINGS.TABSHEETGENERAL.CAPTION=General 6 5 TFORMSETTINGS.LABEL2.CAPTION=Animation speed: 7 6 TFORMSETTINGS.LABEL3.CAPTION=% 8 7 TFORMSETTINGS.CHECKBOX1.CAPTION=Autosave game on each turn 8 TFORMSETTINGS.LABEL1.CAPTION=Language: 9 TFORMSETTINGS.TABSHEETDEBUG.CAPTION=Debug 10 TFORMSETTINGS.CHECKBOXDEVELMODE.CAPTION=Developer mode 11 TFORMSETTINGS.LABEL4.CAPTION=DPI: 12 TFORMSETTINGS.LABEL5.CAPTION=x 13 TFORMSETTINGS.CHECKBOX2.CAPTION=Automatic DPI -
trunk/Forms/UFormSettings.pas
r97 r99 7 7 uses 8 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 9 Spin ;9 Spin, ComCtrls; 10 10 11 11 type … … 17 17 ButtonCancel: TButton; 18 18 CheckBox1: TCheckBox; 19 CheckBox2: TCheckBox; 19 20 CheckBoxDevelMode: TCheckBox; 20 21 ComboBoxLanguage: TComboBox; … … 22 23 Label2: TLabel; 23 24 Label3: TLabel; 25 Label4: TLabel; 26 Label5: TLabel; 27 PageControl1: TPageControl; 28 SpinEditX: TSpinEdit; 29 SpinEditY: TSpinEdit; 24 30 SpinEditAnimSpeed: TSpinEdit; 31 TabSheetGeneral: TTabSheet; 32 TabSheetDebug: TTabSheet; 33 procedure CheckBox2Change(Sender: TObject); 34 procedure FormCreate(Sender: TObject); 35 procedure FormShow(Sender: TObject); 25 36 private 26 37 { private declarations } … … 42 53 { TFormSettings } 43 54 55 procedure TFormSettings.CheckBox2Change(Sender: TObject); 56 begin 57 SpinEditX.Enabled := not CheckBox2.Checked; 58 SpinEditY.Enabled := not CheckBox2.Checked; 59 end; 60 61 procedure TFormSettings.FormCreate(Sender: TObject); 62 begin 63 PageControl1.TabIndex := 0; 64 end; 65 66 procedure TFormSettings.FormShow(Sender: TObject); 67 begin 68 69 end; 70 44 71 procedure TFormSettings.Load; 45 72 begin … … 49 76 CheckBoxDevelMode.Checked := Core.DevelMode; 50 77 SpinEditAnimSpeed.Value := Core.AnimationSpeed; 78 CheckBox2.Checked := Core.ScaleDPI1.AutoDetect; 79 SpinEditX.Value := Core.ScaleDPI1.DPI.X; 80 SpinEditY.Value := Core.ScaleDPI1.DPI.Y; 51 81 {$IFDEF DEBUG} 52 CheckBoxDevelMode.Visible := True;82 TabSheetDebug.Visible := True; 53 83 {$ELSE} 54 CheckBoxDevelMode.Visible := False;84 TabSheetDebug.Visible := False; 55 85 {$ENDIF} 56 86 end; … … 62 92 Core.DevelMode := CheckBoxDevelMode.Checked; 63 93 Core.AnimationSpeed := SpinEditAnimSpeed.Value; 94 Core.ScaleDPI1.AutoDetect := CheckBox2.Checked; 95 Core.ScaleDPI1.DPI := Point(SpinEditX.Value, SpinEditY.Value); 64 96 end; 65 97 -
trunk/Languages/xtactics.cs.po
r97 r99 418 418 msgstr "Automaticky uložit hru po každém tahu" 419 419 420 #: tformsettings.checkbox2.caption 421 msgid "Automatic DPI" 422 msgstr "" 423 420 424 #: tformsettings.checkboxdevelmode.caption 421 425 msgid "Developer mode" … … 435 439 msgstr "%" 436 440 441 #: tformsettings.label4.caption 442 msgid "DPI:" 443 msgstr "" 444 445 #: tformsettings.label5.caption 446 msgid "x" 447 msgstr "" 448 449 #: tformsettings.tabsheetdebug.caption 450 msgid "Debug" 451 msgstr "" 452 453 #: tformsettings.tabsheetgeneral.caption 454 msgid "General" 455 msgstr "" 456 437 457 #: ucore.sendgame 438 458 msgid "End game?" -
trunk/Languages/xtactics.po
r97 r99 404 404 msgstr "" 405 405 406 #: tformsettings.checkbox2.caption 407 msgid "Automatic DPI" 408 msgstr "" 409 406 410 #: tformsettings.checkboxdevelmode.caption 407 411 msgid "Developer mode" … … 421 425 msgstr "" 422 426 427 #: tformsettings.label4.caption 428 msgid "DPI:" 429 msgstr "" 430 431 #: tformsettings.label5.caption 432 msgid "x" 433 msgstr "" 434 435 #: tformsettings.tabsheetdebug.caption 436 msgid "Debug" 437 msgstr "" 438 439 #: tformsettings.tabsheetgeneral.caption 440 msgid "General" 441 msgstr "" 442 423 443 #: ucore.sendgame 424 444 msgid "End game?" -
trunk/UCore.lfm
r97 r99 2058 2058 end 2059 2059 object ScaleDPI1: TScaleDPI 2060 AutoDetect = False 2060 2061 left = 245 2061 2062 top = 54 -
trunk/UCore.pas
r97 r99 355 355 CommandLineParams; 356 356 357 if Game.FileName = '' then begin 358 Game.New; 359 Player := Game.Players.GetFirstHuman; 360 Game.Running := True; 361 FormMain.AZoomAll.Execute; 362 end; 363 {with Core.ScaleDPI1 do begin 357 with Core.ScaleDPI1 do 358 if (DesignDPI.X <> DPI.X) or (DesignDPI.Y <> DPI.Y) then begin 364 359 //ApplyToAll(DesignDPI); 365 360 FormNew.Show; … … 371 366 ScaleImageList(Core.ImageListSmall, DesignDPI); 372 367 ScaleImageList(Core.ImageListLarge, DesignDPI); 373 end;} 368 end; 369 370 if Game.FileName = '' then begin 371 Game.New; 372 Player := Game.Players.GetFirstHuman; 373 Game.Running := True; 374 FormMain.AZoomAll.Execute; 375 end; 374 376 end; 375 377
Note:
See TracChangeset
for help on using the changeset viewer.