Changeset 195 for trunk/Forms


Ignore:
Timestamp:
May 15, 2018, 4:30:54 PM (7 years ago)
Author:
chronos
Message:
  • Added: Settings option to automatically reopen last saved game on application start.
Location:
trunk/Forms
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormSettings.lfm

    r145 r195  
    1010  Constraints.MinHeight = 327
    1111  Constraints.MinWidth = 554
     12  DesignTimePPI = 120
    1213  OnCreate = FormCreate
    1314  OnShow = FormShow
    1415  Position = poMainFormCenter
    15   LCLVersion = '1.8.0.4'
     16  LCLVersion = '1.8.2.0'
    1617  object ButtonOk: TButton
    1718    Left = 444
    … …  
    4748    object TabSheetGeneral: TTabSheet
    4849      Caption = 'General'
    49       ClientHeight = 220
    50       ClientWidth = 540
     50      ClientHeight = 231
     51      ClientWidth = 538
    5152      object Label2: TLabel
    52         Left = 27
    53         Height = 26
     53        Left = 20
     54        Height = 20
    5455        Top = 78
    55         Width = 150
     56        Width = 116
    5657        Caption = 'Animation speed:'
    5758        ParentColor = False
    … …  
    5960      object SpinEditAnimSpeed: TSpinEdit
    6061        Left = 232
    61         Height = 36
     62        Height = 28
    6263        Top = 72
    6364        Width = 122
    … …  
    6667      object Label3: TLabel
    6768        Left = 368
    68         Height = 26
     69        Height = 20
    6970        Top = 82
    70         Width = 15
     71        Width = 12
    7172        Caption = '%'
    7273        ParentColor = False
    7374      end
    7475      object CheckBoxAutoSaveTurn: TCheckBox
    75         Left = 8
     76        Left = 20
    7677        Height = 27
    7778        Top = 112
    78         Width = 586
     79        Width = 584
    7980        Anchors = [akTop, akLeft, akRight]
    8081        AutoSize = False
    … …  
    8485      object Label1: TLabel
    8586        Left = 20
    86         Height = 26
     87        Height = 20
    8788        Top = 26
    88         Width = 88
     89        Width = 68
    8990        Caption = 'Language:'
    9091        ParentColor = False
    … …  
    9293      object ComboBoxLanguage: TComboBox
    9394        Left = 178
    94         Height = 40
     95        Height = 28
    9596        Top = 24
    9697        Width = 196
    97         ItemHeight = 0
     98        ItemHeight = 20
    9899        Style = csDropDownList
    99100        TabOrder = 2
     101      end
     102      object CheckBoxReopenLastFile: TCheckBox
     103        Left = 20
     104        Height = 24
     105        Top = 152
     106        Width = 198
     107        Caption = 'Reopen last game on start'
     108        TabOrder = 3
    100109      end
    101110    end

  • trunk/Forms/UFormSettings.pas

    r145 r195  
    1616    ButtonOk: TButton;
    1717    ButtonCancel: TButton;
     18    CheckBoxReopenLastFile: TCheckBox;
    1819    CheckBoxAutoSaveTurn: TCheckBox;
    1920    CheckBox2: TCheckBox;
    … …  
    8586  SpinEditY.Value := Core.ScaleDPI1.DPI.Y;
    8687  CheckBoxAutoSaveTurn.Checked := Core.AutoSaveEnabled;
     88  CheckBoxReopenLastFile.Checked := Core.ReopenLastFile;
    8789end;
    8890
    … …  
    9698  Core.ScaleDPI1.DPI := Point(SpinEditX.Value, SpinEditY.Value);
    9799  Core.AutoSaveEnabled := CheckBoxAutoSaveTurn.Checked;
     100  Core.ReopenLastFile := CheckBoxReopenLastFile.Checked;
    98101end;
    99102
Note: See TracChangeset for help on using the changeset viewer.