Ignore:
Timestamp:
Jan 21, 2019, 12:38:20 AM (6 years ago)
Author:
chronos
Message:
  • Added: Map random preview in New game form.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormNew.lfm

    r268 r269  
    11object FormNew: TFormNew
    22  Left = 546
    3   Height = 748
    4   Top = 181
    5   Width = 1154
     3  Height = 745
     4  Top = 184
     5  Width = 1211
    66  Caption = 'New game'
    7   ClientHeight = 748
    8   ClientWidth = 1154
     7  ClientHeight = 745
     8  ClientWidth = 1211
    99  Constraints.MinHeight = 501
    1010  Constraints.MinWidth = 667
    … …  
    1818  object PageControl1: TPageControl
    1919    Left = 4
    20     Height = 695
     20    Height = 692
    2121    Top = 4
    22     Width = 749
    23     ActivePage = TabSheetMode
     22    Width = 806
     23    ActivePage = TabSheetMap
    2424    Align = alClient
    2525    BorderSpacing.Around = 4
    26     TabIndex = 0
     26    TabIndex = 2
    2727    TabOrder = 0
     28    OnChange = PageControl1Change
    2829    object TabSheetMode: TTabSheet
    2930      Caption = 'Mode'
    30       ClientHeight = 655
    31       ClientWidth = 739
     31      ClientHeight = 652
     32      ClientWidth = 796
    3233      object Panel3: TPanel
    3334        Left = 0
    … …  
    158159    object TabSheetPlayers: TTabSheet
    159160      Caption = 'Players'
    160       ClientHeight = 655
    161       ClientWidth = 739
     161      ClientHeight = 652
     162      ClientWidth = 796
    162163      object Panel2: TPanel
    163164        Left = 0
    164         Height = 655
     165        Height = 652
    165166        Top = 0
    166         Width = 739
     167        Width = 796
    167168        Align = alClient
    168169        BevelOuter = bvNone
    169         ClientHeight = 655
    170         ClientWidth = 739
     170        ClientHeight = 652
     171        ClientWidth = 796
    171172        TabOrder = 0
    172173        object ListViewPlayers: TListView
    173174          Left = 4
    174           Height = 605
     175          Height = 602
    175176          Top = 4
    176           Width = 731
     177          Width = 788
    177178          Align = alTop
    178179          Anchors = [akTop, akLeft, akRight, akBottom]
    … …  
    212213          Left = 16
    213214          Height = 25
    214           Top = 617
     215          Top = 614
    215216          Width = 83
    216217          Action = APlayerAdd
    … …  
    221222          Left = 120
    222223          Height = 25
    223           Top = 617
     224          Top = 614
    224225          Width = 83
    225226          Action = APlayerModify
    … …  
    230231          Left = 224
    231232          Height = 25
    232           Top = 617
     233          Top = 614
    233234          Width = 83
    234235          Action = APlayerRemove
    … …  
    240241    object TabSheetMap: TTabSheet
    241242      Caption = 'Map'
    242       ClientHeight = 655
    243       ClientWidth = 739
     243      ClientHeight = 652
     244      ClientWidth = 796
     245      OnShow = TabSheetMapShow
    244246      object Panel1: TPanel
    245247        Left = 0
    246         Height = 655
     248        Height = 652
    247249        Top = 0
    248         Width = 739
     250        Width = 796
    249251        Align = alClient
    250252        BevelOuter = bvNone
    251         ClientHeight = 655
    252         ClientWidth = 739
     253        ClientHeight = 652
     254        ClientWidth = 796
    253255        TabOrder = 0
    254256        object Label1: TLabel
    … …  
    292294          Height = 58
    293295          Top = 8
    294           Width = 488
     296          Width = 545
    295297          Max = 100
    296298          Min = 2
    … …  
    305307          Height = 58
    306308          Top = 49
    307           Width = 488
     309          Width = 545
    308310          Max = 100
    309311          Min = 2
    … …  
    335337            'Isometric'
    336338          )
     339          OnChange = ComboBoxGridTypeChange
    337340          Style = csDropDownList
    338341          TabOrder = 4
    … …  
    362365        end
    363366        object CheckBoxSymetricMap: TCheckBox
    364           Left = 472
     367          Left = 8
    365368          Height = 27
    366           Top = 110
    367           Width = 251
     369          Top = 248
     370          Width = 308
    368371          Anchors = [akTop, akLeft, akRight]
    369372          AutoSize = False
    370373          Caption = 'Symetric map'
     374          OnChange = CheckBoxSymetricMapChange
    371375          TabOrder = 6
    372376        end
    … …  
    374378          Left = 216
    375379          Height = 43
    376           Top = 224
     380          Top = 315
    377381          Width = 106
    378382          MinValue = 1
     383          OnChange = SpinEditVoidPercentChange
    379384          TabOrder = 7
    380385          Value = 1
    … …  
    383388          Left = 8
    384389          Height = 30
    385           Top = 232
     390          Top = 324
    386391          Width = 189
    387392          Caption = 'Inaccessible places'
    … …  
    392397          Left = 8
    393398          Height = 30
    394           Top = 272
     399          Top = 368
    395400          Width = 73
    396401          Caption = 'Cities'
    … …  
    401406          Left = 216
    402407          Height = 43
    403           Top = 272
     408          Top = 360
    404409          Width = 106
    405410          MinValue = 1
     411          OnChange = SpinEditCityPercentChange
    406412          TabOrder = 10
    407413          Value = 1
    … …  
    410416          Left = 331
    411417          Height = 26
    412           Top = 272
     418          Top = 368
    413419          Width = 15
    414420          Caption = '%'
    … …  
    418424          Left = 331
    419425          Height = 26
    420           Top = 232
     426          Top = 324
    421427          Width = 15
    422428          Caption = '%'
    … …  
    424430        end
    425431        object SpinEditNeutralUnits: TSpinEdit
    426           Left = 408
     432          Left = 312
    427433          Height = 43
    428           Top = 384
     434          Top = 488
    429435          Width = 98
    430436          MaxValue = 99
     437          OnChange = SpinEditNeutralUnitsChange
    431438          TabOrder = 11
    432439          Value = 12
    … …  
    435442          Left = 8
    436443          Height = 26
    437           Top = 384
     444          Top = 496
    438445          Width = 227
    439446          Caption = 'Max random neutral units:'
    … …  
    444451          Height = 43
    445452          Top = 184
    446           Width = 472
     453          Width = 529
    447454          Anchors = [akTop, akLeft, akRight]
     455          OnChange = EditImageFileChange
    448456          TabOrder = 12
    449457        end
    450458        object ButtonImageBrowse: TButton
    451           Left = 624
    452           Height = 25
    453           Top = 192
     459          Left = 680
     460          Height = 38
     461          Top = 189
    454462          Width = 99
    455463          Anchors = [akTop, akRight]
    … …  
    461469          Left = 8
    462470          Height = 26
    463           Top = 184
     471          Top = 191
    464472          Width = 90
    465473          Caption = 'Image file:'
    … …  
    469477          Left = 8
    470478          Height = 30
    471           Top = 310
     479          Top = 408
    472480          Width = 212
    473481          Caption = 'Bridges between cells'
     482          OnChange = CheckBoxBridgesChange
    474483          TabOrder = 14
    475484        end
    476485        object SpinEditMaxPower: TSpinEdit
    477           Left = 408
     486          Left = 312
    478487          Height = 43
    479           Top = 344
     488          Top = 440
    480489          Width = 98
    481490          MaxValue = 1000000
    … …  
    488497          Left = 8
    489498          Height = 26
    490           Top = 344
     499          Top = 448
    491500          Width = 156
    492501          Caption = 'Max units per cell:'
    … …  
    494503        end
    495504        object CheckBoxCyclicMap: TCheckBox
    496           Left = 472
     505          Left = 8
    497506          Height = 27
    498           Top = 137
    499           Width = 251
     507          Top = 283
     508          Width = 308
    500509          Anchors = [akTop, akLeft, akRight]
    501510          AutoSize = False
    502511          Caption = 'Cyclic map'
     512          OnChange = CheckBoxCyclicMapChange
    503513          TabOrder = 16
     514        end
     515        object Image1: TImage
     516          Left = 419
     517          Height = 316
     518          Top = 272
     519          Width = 359
     520        end
     521        object Label15: TLabel
     522          Left = 419
     523          Height = 26
     524          Top = 240
     525          Width = 147
     526          Caption = 'Random preview:'
     527          ParentColor = False
    504528        end
    505529      end
    … …  
    507531    object TabSheetRules: TTabSheet
    508532      Caption = 'Rules'
    509       ClientHeight = 655
    510       ClientWidth = 739
     533      ClientHeight = 652
     534      ClientWidth = 796
    511535      object Panel4: TPanel
    512536        Left = 0
    … …  
    612636          object TabSheetCaptureCells: TTabSheet
    613637            ClientHeight = 74
    614             ClientWidth = 706
     638            ClientWidth = 712
    615639            object Label14: TLabel
    616640              Left = 8
    … …  
    634658          object TabSheetStayAliveTurns: TTabSheet
    635659            ClientHeight = 74
    636             ClientWidth = 706
     660            ClientWidth = 712
    637661            object Label13: TLabel
    638662              Left = 8
    … …  
    673697    Left = 0
    674698    Height = 45
    675     Top = 703
    676     Width = 1154
     699    Top = 700
     700    Width = 1211
    677701    Align = alBottom
    678702    BevelOuter = bvNone
    679703    ClientHeight = 45
    680     ClientWidth = 1154
     704    ClientWidth = 1211
    681705    TabOrder = 1
    682706    object ButtonOk: TButton
    683       Left = 966
     707      Left = 1023
    684708      Height = 25
    685709      Top = 6
    … …  
    691715    end
    692716    object ButtonCancel: TButton
    693       Left = 1070
     717      Left = 1127
    694718      Height = 25
    695719      Top = 6
    … …  
    702726  end
    703727  object PanelChat: TPanel
    704     Left = 763
    705     Height = 703
     728    Left = 820
     729    Height = 700
    706730    Top = 0
    707731    Width = 391
    … …  
    711735  end
    712736  object Splitter1: TSplitter
    713     Left = 757
    714     Height = 703
     737    Left = 814
     738    Height = 700
    715739    Top = 0
    716740    Width = 6
    … …  
    720744  object ActionList1: TActionList
    721745    Images = Core.ImageListSmall
    722     left = 464
    723     top = 464
     746    left = 864
     747    top = 216
    724748    object APlayerModify: TAction
    725749      Caption = 'Modify'
    … …  
    748772  end
    749773  object OpenPictureDialog1: TOpenPictureDialog
    750     left = 602
    751     top = 464
     774    left = 864
     775    top = 360
    752776  end
    753777  object PopupMenuPlayers: TPopupMenu
    754     left = 312
    755     top = 464
     778    left = 864
     779    top = 288
    756780    object MenuItem1: TMenuItem
    757781      Action = APlayerAdd
    … …  
    766790  end
    767791  object PopupMenuServers: TPopupMenu
    768     left = 176
    769     top = 464
     792    left = 864
     793    top = 136
    770794    object MenuItem4: TMenuItem
    771795      Action = AServerAdd
    … …  
    778802    end
    779803  end
     804  object TimerMapPreview: TTimer
     805    Interval = 500
     806    OnTimer = TimerMapPreviewTimer
     807    left = 864
     808    top = 446
     809  end
    780810end
Note: See TracChangeset for help on using the changeset viewer.