Changeset 98


Ignore:
Timestamp:
Dec 26, 2014, 2:36:01 PM (10 years ago)
Author:
chronos
Message:
  • Modified: Show dialog windows positioned to main form center.
  • Modified: Show player color selection as pretty color names with possibility to choose custom color.
Location:
trunk
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormAbout.lfm

    r47 r98  
    1111  Font.Name = 'MS Sans Serif'
    1212  OnShow = FormShow
    13   Position = poScreenCenter
     13  Position = poMainFormCenter
    1414  LCLVersion = '1.3'
    1515  object Panel1: TPanel

  • trunk/Forms/UFormHelp.lfm

    r97 r98  
    88  ClientWidth = 850
    99  OnCreate = FormCreate
     10  Position = poMainFormCenter
    1011  LCLVersion = '1.3'
    1112  object Memo1: TMemo

  • trunk/Forms/UFormMove.lfm

    r88 r98  
    1111  OnKeyPress = FormKeyPress
    1212  OnShow = FormShow
     13  Position = poMainFormCenter
    1314  LCLVersion = '1.3'
    1415  object SpinEditOnce: TSpinEdit
    … …  
    5253    Height = 22
    5354    Top = 136
    54     Width = 87
     55    Width = 91
    5556    Caption = 'Every turn:'
    5657    ParentColor = False
    … …  
    133134    Height = 22
    134135    Top = 8
    135     Width = 127
     136    Width = 132
    136137    Caption = 'Win probability:'
    137138    ParentColor = False

  • trunk/Forms/UFormNew.lfm

    r91 r98  
    1010  OnDestroy = FormDestroy
    1111  OnShow = FormShow
     12  Position = poMainFormCenter
    1213  LCLVersion = '1.3'
    1314  object ButtonCancel: TButton
    … …  
    4445    object TabSheet1: TTabSheet
    4546      Caption = 'Players'
    46       ClientHeight = 414
     47      ClientHeight = 417
    4748      ClientWidth = 1215
    4849      object ListView1: TListView
    … …  
    115116    object TabSheet2: TTabSheet
    116117      Caption = 'Map'
    117       ClientHeight = 414
     118      ClientHeight = 417
    118119      ClientWidth = 1215
    119120      object Label1: TLabel
    120121        Left = 8
    121         Height = 25
     122        Height = 22
    122123        Top = 9
    123         Width = 104
     124        Width = 92
    124125        Caption = 'Map width:'
    125126        ParentColor = False
    … …  
    127128      object Label2: TLabel
    128129        Left = 8
    129         Height = 25
     130        Height = 22
    130131        Top = 57
    131         Width = 110
     132        Width = 99
    132133        Caption = 'Map height:'
    133134        ParentColor = False
    … …  
    135136      object SpinEditMapSizeX: TSpinEdit
    136137        Left = 128
    137         Height = 35
     138        Height = 32
    138139        Top = 4
    139140        Width = 98
    … …  
    145146      object SpinEditMapSizeY: TSpinEdit
    146147        Left = 128
    147         Height = 35
     148        Height = 32
    148149        Top = 55
    149150        Width = 98
    … …  
    181182      object Label5: TLabel
    182183        Left = 8
    183         Height = 25
     184        Height = 22
    184185        Top = 104
    185         Width = 90
     186        Width = 81
    186187        Caption = 'Grid type:'
    187188        ParentColor = False
    … …  
    189190      object ComboBoxGridType: TComboBox
    190191        Left = 146
    191         Height = 33
     192        Height = 30
    192193        Top = 104
    193194        Width = 208
    … …  
    203204      object ComboBoxMapShape: TComboBox
    204205        Left = 146
    205         Height = 33
     206        Height = 30
    206207        Top = 144
    207208        Width = 208
    … …  
    218219      object Label8: TLabel
    219220        Left = 8
    220         Height = 25
     221        Height = 22
    221222        Top = 144
    222         Width = 107
     223        Width = 97
    223224        Caption = 'Map shape:'
    224225        ParentColor = False
    … …  
    236237      object SpinEditVoidPercent: TSpinEdit
    237238        Left = 216
    238         Height = 35
     239        Height = 32
    239240        Top = 224
    240241        Width = 106
    … …  
    245246      object CheckBoxVoid: TCheckBox
    246247        Left = 8
    247         Height = 27
     248        Height = 24
    248249        Top = 232
    249         Width = 198
     250        Width = 183
    250251        Caption = 'Inaccessible places'
    251252        OnChange = CheckBoxVoidChange
    … …  
    254255      object CheckBoxCity: TCheckBox
    255256        Left = 8
    256         Height = 27
     257        Height = 24
    257258        Top = 272
    258         Width = 73
     259        Width = 69
    259260        Caption = 'Cities'
    260261        OnChange = CheckBoxCityChange
    … …  
    263264      object SpinEditCityPercent: TSpinEdit
    264265        Left = 216
    265         Height = 35
     266        Height = 32
    266267        Top = 272
    267268        Width = 106
    … …  
    272273      object Label4: TLabel
    273274        Left = 331
    274         Height = 25
     275        Height = 22
    275276        Top = 272
    276         Width = 17
     277        Width = 15
    277278        Caption = '%'
    278279        ParentColor = False
    … …  
    280281      object Label3: TLabel
    281282        Left = 331
    282         Height = 25
     283        Height = 22
    283284        Top = 232
    284         Width = 17
     285        Width = 15
    285286        Caption = '%'
    286287        ParentColor = False
    … …  
    288289      object SpinEditNeutralUnits: TSpinEdit
    289290        Left = 408
    290         Height = 35
     291        Height = 32
    291292        Top = 352
    292293        Width = 98
    … …  
    298299      object Label7: TLabel
    299300        Left = 8
    300         Height = 25
     301        Height = 22
    301302        Top = 352
    302         Width = 245
     303        Width = 221
    303304        Caption = 'Max random neutral units:'
    304305        ParentColor = False
    … …  
    306307      object EditImageFile: TEdit
    307308        Left = 144
    308         Height = 35
     309        Height = 32
    309310        Top = 184
    310311        Width = 948
    … …  
    324325      object Label9: TLabel
    325326        Left = 8
    326         Height = 25
     327        Height = 22
    327328        Top = 184
    328         Width = 98
     329        Width = 88
    329330        Caption = 'Image file:'
    330331        ParentColor = False
    … …  
    333334    object TabSheet3: TTabSheet
    334335      Caption = 'Rules'
    335       ClientHeight = 414
     336      ClientHeight = 417
    336337      ClientWidth = 1215
    337338      object RadioGroupGrowCells: TRadioGroup
    … …  
    349350        ChildSizing.Layout = cclLeftToRightThenTopToBottom
    350351        ChildSizing.ControlsPerLine = 1
    351         ClientHeight = 78
     352        ClientHeight = 81
    352353        ClientWidth = 308
    353354        Items.Strings = (
    … …  
    395396        ChildSizing.Layout = cclLeftToRightThenTopToBottom
    396397        ChildSizing.ControlsPerLine = 1
    397         ClientHeight = 49
     398        ClientHeight = 52
    398399        ClientWidth = 301
    399400        Items.Strings = (

  • trunk/Forms/UFormPlayer.lfm

    r90 r98  
    77  ClientHeight = 347
    88  ClientWidth = 551
     9  Position = poMainFormCenter
    910  LCLVersion = '1.3'
    1011  object Label1: TLabel
    … …  
    6364    Height = 22
    6465    Top = 72
    65     Width = 50
     66    Width = 51
    6667    Caption = 'Mode:'
    6768    ParentColor = False
    … …  
    7172    Height = 22
    7273    Top = 128
    73     Width = 48
     74    Width = 47
    7475    Caption = 'Color:'
    7576    ParentColor = False
    … …  
    8081    Top = 120
    8182    Width = 368
     83    Style = [cbStandardColors, cbExtendedColors, cbCustomColor, cbPrettyNames]
    8284    ItemHeight = 0
    8385    TabOrder = 4
    … …  
    8789    Height = 22
    8890    Top = 168
    89     Width = 92
     91    Width = 96
    9092    Caption = 'Agressivity:'
    9193    ParentColor = False
    … …  
    110112    Height = 24
    111113    Top = 208
    112     Width = 103
     114    Width = 107
    113115    Caption = 'Defensive'
    114116    TabOrder = 6

  • trunk/Forms/UFormSettings.lfm

    r94 r98  
    88  ClientHeight = 563
    99  ClientWidth = 784
     10  Position = poMainFormCenter
    1011  LCLVersion = '1.3'
    1112  object ButtonOk: TButton
    … …  
    2930  object Label1: TLabel
    3031    Left = 20
    31     Height = 25
     32    Height = 22
    3233    Top = 26
    33     Width = 95
     34    Width = 85
    3435    Caption = 'Language:'
    3536    ParentColor = False
    … …  
    3738  object ComboBoxLanguage: TComboBox
    3839    Left = 178
    39     Height = 37
     40    Height = 34
    4041    Top = 24
    4142    Width = 196
    … …  
    5657  object SpinEditAnimSpeed: TSpinEdit
    5758    Left = 224
    58     Height = 35
     59    Height = 32
    5960    Top = 120
    6061    Width = 122
    … …  
    6364  object Label2: TLabel
    6465    Left = 19
    65     Height = 25
     66    Height = 22
    6667    Top = 126
    67     Width = 162
     68    Width = 145
    6869    Caption = 'Animation speed:'
    6970    ParentColor = False
    … …  
    7172  object Label3: TLabel
    7273    Left = 360
    73     Height = 25
     74    Height = 22
    7475    Top = 130
    75     Width = 17
     76    Width = 15
    7677    Caption = '%'
    7778    ParentColor = False

  • trunk/xtactics.lpi

    r97 r98  
    151151        <HasResources Value="True"/>
    152152        <ResourceBaseClass Value="Form"/>
     153        <UnitName Value="UFormAbout"/>
    153154      </Unit8>
    154155      <Unit9>
Note: See TracChangeset for help on using the changeset viewer.