Changeset 244


Ignore:
Timestamp:
Sep 22, 2018, 11:25:47 AM (6 years ago)
Author:
chronos
Message:
  • Fixed: Lost controls handler assignment in New form.
  • Fixed: Cyclic map flag was not properly loaded from save map file.
Location:
trunk
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormNew.lfm

    r243 r244  
    99  Constraints.MinHeight = 501
    1010  Constraints.MinWidth = 667
    11   DesignTimePPI = 120
     11  DesignTimePPI = 144
    1212  OnClose = FormClose
    1313  OnCreate = FormCreate
    … …  
    2828    object TabSheetMode: TTabSheet
    2929      Caption = 'Mode'
    30       ClientHeight = 662
    31       ClientWidth = 741
     30      ClientHeight = 651
     31      ClientWidth = 743
    3232      object Panel3: TPanel
    3333        Left = 0
    34         Height = 662
     34        Height = 651
    3535        Top = 0
    36         Width = 741
     36        Width = 743
    3737        Align = alClient
    3838        BevelOuter = bvNone
    39         ClientHeight = 662
    40         ClientWidth = 741
     39        ClientHeight = 651
     40        ClientWidth = 743
    4141        TabOrder = 0
    4242        object RadioButtonModeLocal: TRadioButton
    4343          Left = 10
    44           Height = 24
     44          Height = 30
    4545          Top = 14
    46           Width = 59
     46          Width = 68
    4747          Caption = 'Local'
    4848          Checked = True
    … …  
    5353        object RadioButtonModeNetworkServer: TRadioButton
    5454          Left = 10
    55           Height = 24
     55          Height = 30
    5656          Top = 48
    57           Width = 123
     57          Width = 154
    5858          Caption = 'Network server'
    5959          OnChange = RadioButtonModeLocalChange
    … …  
    6262        object RadioButtonModeNetworkClient: TRadioButton
    6363          Left = 10
    64           Height = 24
     64          Height = 30
    6565          Top = 152
    66           Width = 120
     66          Width = 149
    6767          Caption = 'Network client'
    6868          OnChange = RadioButtonModeLocalChange
    … …  
    7171        object EditServerAddress: TEdit
    7272          Left = 24
    73           Height = 28
     73          Height = 36
    7474          Top = 112
    7575          Width = 220
    … …  
    7878        object SpinEditServerPort: TSpinEdit
    7979          Left = 256
    80           Height = 28
     80          Height = 36
    8181          Top = 112
    8282          Width = 79
    … …  
    8686        object Label11: TLabel
    8787          Left = 256
    88           Height = 20
     88          Height = 26
    8989          Top = 88
    90           Width = 30
     90          Width = 41
    9191          Caption = 'Port:'
    9292          ParentColor = False
    … …  
    9494        object Label12: TLabel
    9595          Left = 24
    96           Height = 20
     96          Height = 26
    9797          Top = 88
    98           Width = 56
     98          Width = 74
    9999          Caption = 'Address:'
    100100          ParentColor = False
    … …  
    102102        object ListViewServers: TListView
    103103          Left = 26
    104           Height = 430
     104          Height = 419
    105105          Top = 181
    106106          Width = 334
    … …  
    117117          MultiSelect = True
    118118          OwnerData = True
     119          PopupMenu = PopupMenuServers
    119120          ReadOnly = True
    120121          RowSelect = True
    … …  
    129130          Left = 27
    130131          Height = 31
    131           Top = 623
     132          Top = 612
    132133          Width = 94
     134          Action = AServerAdd
    133135          Anchors = [akLeft, akBottom]
    134           Caption = 'Add'
    135136          TabOrder = 6
    136137        end
    … …  
    138139          Left = 240
    139140          Height = 31
    140           Top = 623
     141          Top = 612
    141142          Width = 94
     143          Action = AServerRemove
    142144          Anchors = [akLeft, akBottom]
    143           Caption = 'Remove'
    144145          TabOrder = 7
    145146        end
    … …  
    147148          Left = 136
    148149          Height = 30
    149           Top = 623
     150          Top = 612
    150151          Width = 94
     152          Action = AServerModify
    151153          Anchors = [akLeft, akBottom]
    152           Caption = 'Modify'
    153154          TabOrder = 8
    154155        end
    … …  
    157158    object TabSheetPlayers: TTabSheet
    158159      Caption = 'Players'
    159       ClientHeight = 662
    160       ClientWidth = 741
     160      ClientHeight = 651
     161      ClientWidth = 743
    161162      object Panel2: TPanel
    162163        Left = 0
    163         Height = 662
     164        Height = 651
    164165        Top = 0
    165         Width = 741
     166        Width = 743
    166167        Align = alClient
    167168        BevelOuter = bvNone
    168         ClientHeight = 662
    169         ClientWidth = 741
     169        ClientHeight = 651
     170        ClientWidth = 743
    170171        TabOrder = 0
    171172        object ListViewPlayers: TListView
    172173          Left = 4
    173           Height = 612
     174          Height = 601
    174175          Top = 4
    175           Width = 733
     176          Width = 735
    176177          Align = alTop
    177178          Anchors = [akTop, akLeft, akRight, akBottom]
    … …  
    196197          MultiSelect = True
    197198          OwnerData = True
     199          PopupMenu = PopupMenuPlayers
    198200          ReadOnly = True
    199201          RowSelect = True
    … …  
    210212          Left = 16
    211213          Height = 25
    212           Top = 624
     214          Top = 613
    213215          Width = 83
     216          Action = APlayerAdd
    214217          Anchors = [akLeft, akBottom]
    215           Caption = 'Add'
    216218          TabOrder = 1
    217219        end
    … …  
    219221          Left = 120
    220222          Height = 25
    221           Top = 624
     223          Top = 613
    222224          Width = 83
     225          Action = APlayerModify
    223226          Anchors = [akLeft, akBottom]
    224           Caption = 'Modify'
    225227          TabOrder = 2
    226228        end
    … …  
    228230          Left = 224
    229231          Height = 25
    230           Top = 624
     232          Top = 613
    231233          Width = 83
     234          Action = APlayerRemove
    232235          Anchors = [akLeft, akBottom]
    233           Caption = 'Remove'
    234236          TabOrder = 3
    235237        end
    … …  
    238240    object TabSheetMap: TTabSheet
    239241      Caption = 'Map'
    240       ClientHeight = 662
    241       ClientWidth = 741
     242      ClientHeight = 651
     243      ClientWidth = 743
    242244      object Panel1: TPanel
    243245        Left = 0
    244         Height = 662
     246        Height = 651
    245247        Top = 0
    246         Width = 741
     248        Width = 743
    247249        Align = alClient
    248250        BevelOuter = bvNone
    249         ClientHeight = 662
    250         ClientWidth = 741
     251        ClientHeight = 651
     252        ClientWidth = 743
    251253        TabOrder = 0
    252254        object Label1: TLabel
    253255          Left = 8
    254           Height = 20
     256          Height = 26
    255257          Top = 9
    256           Width = 74
     258          Width = 95
    257259          Caption = 'Map width:'
    258260          ParentColor = False
    … …  
    260262        object Label2: TLabel
    261263          Left = 8
    262           Height = 20
     264          Height = 26
    263265          Top = 57
    264           Width = 79
     266          Width = 102
    265267          Caption = 'Map height:'
    266268          ParentColor = False
    … …  
    268270        object SpinEditMapSizeX: TSpinEdit
    269271          Left = 128
    270           Height = 28
     272          Height = 36
    271273          Top = 4
    272274          Width = 98
    … …  
    278280        object SpinEditMapSizeY: TSpinEdit
    279281          Left = 128
    280           Height = 28
     282          Height = 36
    281283          Top = 55
    282284          Width = 98
    … …  
    290292          Height = 47
    291293          Top = 8
    292           Width = 490
     294          Width = 492
    293295          Max = 100
    294296          Min = 2
    … …  
    303305          Height = 47
    304306          Top = 49
    305           Width = 490
     307          Width = 492
    306308          Max = 100
    307309          Min = 2
    … …  
    314316        object Label5: TLabel
    315317          Left = 8
    316           Height = 20
     318          Height = 26
    317319          Top = 104
    318           Width = 64
     320          Width = 83
    319321          Caption = 'Grid type:'
    320322          ParentColor = False
    … …  
    322324        object ComboBoxGridType: TComboBox
    323325          Left = 146
    324           Height = 28
     326          Height = 36
    325327          Top = 104
    326328          Width = 208
    327           ItemHeight = 20
     329          ItemHeight = 0
    328330          Items.Strings = (
    329331            'Hexagonal'
    … …  
    336338        object ComboBoxMapShape: TComboBox
    337339          Left = 146
    338           Height = 28
     340          Height = 36
    339341          Top = 144
    340342          Width = 208
    341           ItemHeight = 20
     343          ItemHeight = 0
    342344          Items.Strings = (
    343345            'Hexagonal'
    … …  
    351353        object Label8: TLabel
    352354          Left = 8
    353           Height = 20
     355          Height = 26
    354356          Top = 144
    355           Width = 76
     357          Width = 98
    356358          Caption = 'Map shape:'
    357359          ParentColor = False
    … …  
    361363          Height = 27
    362364          Top = 110
    363           Width = 253
     365          Width = 255
    364366          Anchors = [akTop, akLeft, akRight]
    365367          AutoSize = False
    … …  
    369371        object SpinEditVoidPercent: TSpinEdit
    370372          Left = 216
    371           Height = 28
     373          Height = 36
    372374          Top = 224
    373375          Width = 106
    … …  
    378380        object CheckBoxVoid: TCheckBox
    379381          Left = 8
    380           Height = 24
     382          Height = 30
    381383          Top = 232
    382           Width = 149
     384          Width = 187
    383385          Caption = 'Inaccessible places'
    384386          OnChange = CheckBoxVoidChange
    … …  
    387389        object CheckBoxCity: TCheckBox
    388390          Left = 8
    389           Height = 24
     391          Height = 30
    390392          Top = 272
    391           Width = 60
     393          Width = 71
    392394          Caption = 'Cities'
    393395          OnChange = CheckBoxCityChange
    … …  
    396398        object SpinEditCityPercent: TSpinEdit
    397399          Left = 216
    398           Height = 28
     400          Height = 36
    399401          Top = 272
    400402          Width = 106
    … …  
    405407        object Label4: TLabel
    406408          Left = 331
    407           Height = 20
     409          Height = 26
    408410          Top = 272
    409           Width = 12
     411          Width = 15
    410412          Caption = '%'
    411413          ParentColor = False
    … …  
    413415        object Label3: TLabel
    414416          Left = 331
    415           Height = 20
     417          Height = 26
    416418          Top = 232
    417           Width = 12
     419          Width = 15
    418420          Caption = '%'
    419421          ParentColor = False
    … …  
    421423        object SpinEditNeutralUnits: TSpinEdit
    422424          Left = 408
    423           Height = 28
     425          Height = 36
    424426          Top = 384
    425427          Width = 98
    … …  
    430432        object Label7: TLabel
    431433          Left = 8
    432           Height = 20
     434          Height = 26
    433435          Top = 384
    434           Width = 172
     436          Width = 227
    435437          Caption = 'Max random neutral units:'
    436438          ParentColor = False
    … …  
    438440        object EditImageFile: TEdit
    439441          Left = 144
    440           Height = 28
     442          Height = 36
    441443          Top = 184
    442           Width = 474
     444          Width = 476
    443445          Anchors = [akTop, akLeft, akRight]
    444446          TabOrder = 12
    445447        end
    446448        object ButtonImageBrowse: TButton
    447           Left = 626
     449          Left = 628
    448450          Height = 25
    449451          Top = 192
    … …  
    456458        object Label9: TLabel
    457459          Left = 8
    458           Height = 20
     460          Height = 26
    459461          Top = 184
    460           Width = 70
     462          Width = 90
    461463          Caption = 'Image file:'
    462464          ParentColor = False
    … …  
    464466        object CheckBoxBridges: TCheckBox
    465467          Left = 8
    466           Height = 24
     468          Height = 30
    467469          Top = 310
    468           Width = 168
     470          Width = 210
    469471          Caption = 'Bridges between cells'
    470472          TabOrder = 14
    … …  
    472474        object SpinEditMaxPower: TSpinEdit
    473475          Left = 408
    474           Height = 28
     476          Height = 36
    475477          Top = 344
    476478          Width = 98
    … …  
    483485        object Label10: TLabel
    484486          Left = 8
    485           Height = 20
     487          Height = 26
    486488          Top = 344
    487           Width = 119
     489          Width = 156
    488490          Caption = 'Max units per cell:'
    489491          ParentColor = False
    … …  
    493495          Height = 27
    494496          Top = 137
    495           Width = 253
     497          Width = 255
    496498          Anchors = [akTop, akLeft, akRight]
    497499          AutoSize = False
    … …  
    503505    object TabSheetRules: TTabSheet
    504506      Caption = 'Rules'
    505       ClientHeight = 662
    506       ClientWidth = 741
     507      ClientHeight = 651
     508      ClientWidth = 743
    507509      object Panel4: TPanel
    508510        Left = 0
    509         Height = 662
     511        Height = 651
    510512        Top = 0
    511         Width = 741
     513        Width = 743
    512514        Align = alClient
    513515        BevelOuter = bvNone
    514         ClientHeight = 662
    515         ClientWidth = 741
     516        ClientHeight = 651
     517        ClientWidth = 743
    516518        TabOrder = 0
    517519        object RadioGroupGrowCells: TRadioGroup
    … …  
    529531          ChildSizing.Layout = cclLeftToRightThenTopToBottom
    530532          ChildSizing.ControlsPerLine = 1
    531           ClientHeight = 80
     533          ClientHeight = 77
    532534          ClientWidth = 308
    533535          Items.Strings = (
    … …  
    540542        object Label6: TLabel
    541543          Left = 8
    542           Height = 20
     544          Height = 26
    543545          Top = 248
    544           Width = 94
     546          Width = 120
    545547          Caption = 'Win objective:'
    546548          ParentColor = False
    … …  
    548550        object ComboBoxWinObjective: TComboBox
    549551          Left = 224
    550           Height = 28
     552          Height = 36
    551553          Top = 244
    552554          Width = 328
    553           ItemHeight = 20
     555          ItemHeight = 0
    554556          Items.Strings = (
    555557            'Defeat all oponents'
    … …  
    576578          ChildSizing.Layout = cclLeftToRightThenTopToBottom
    577579          ChildSizing.ControlsPerLine = 1
    578           ClientHeight = 51
     580          ClientHeight = 48
    579581          ClientWidth = 301
    580582          Items.Strings = (
    … …  
    586588        object CheckBoxFogOfWar: TCheckBox
    587589          Left = 336
    588           Height = 24
     590          Height = 30
    589591          Top = 24
    590           Width = 95
     592          Width = 113
    591593          Caption = 'Fog of war'
    592594          TabOrder = 3
    … …  
    596598          Height = 78
    597599          Top = 290
    598           Width = 718
     600          Width = 720
    599601          ActivePage = TabSheetCaptureCities
    600602          Anchors = [akTop, akLeft, akRight]
    … …  
    607609          end
    608610          object TabSheetCaptureCells: TTabSheet
    609             ClientHeight = 74
    610             ClientWidth = 716
     611            ClientHeight = 72
     612            ClientWidth = 714
    611613            object Label14: TLabel
    612614              Left = 8
    … …  
    629631          end
    630632          object TabSheetStayAliveTurns: TTabSheet
    631             ClientHeight = 74
    632             ClientWidth = 716
     633            ClientHeight = 72
     634            ClientWidth = 714
    633635            object Label13: TLabel
    634636              Left = 8
    … …  
    707709    top = 464
    708710    object APlayerModify: TAction
    709       Caption = 'Modify player'
     711      Caption = 'Modify'
    710712      OnExecute = APlayerModifyExecute
    711713    end

  • trunk/Languages/xtactics.cs.po

    r243 r244  
    350350
    351351#: tformnew.aplayermodify.caption
    352 msgid "Modify player"
     352#, fuzzy
     353#| msgid "Modify player"
     354msgctxt "tformnew.aplayermodify.caption"
     355msgid "Modify"
    353356msgstr "Upravit hráče"
    354357
    … …  
    374377msgstr "Odstranit"
    375378
    376 #: tformnew.button1.caption
    377 msgctxt "tformnew.button1.caption"
    378 msgid "Add"
    379 msgstr "Přidat"
    380 
    381 #: tformnew.button2.caption
    382 msgctxt "tformnew.button2.caption"
    383 msgid "Remove"
    384 msgstr "Odstranit"
    385 
    386 #: tformnew.button3.caption
    387 msgctxt "tformnew.button3.caption"
    388 msgid "Modify"
    389 msgstr "Upravit"
    390 
    391379#: tformnew.buttoncancel.caption
    392380msgctxt "tformnew.buttoncancel.caption"
    … …  
    403391msgid "Ok"
    404392msgstr "Ok"
    405 
    406 #: tformnew.buttonplayeradd.caption
    407 msgctxt "tformnew.buttonplayeradd.caption"
    408 msgid "Add"
    409 msgstr "Přidat"
    410 
    411 #: tformnew.buttonplayermodify.caption
    412 msgctxt "tformnew.buttonplayermodify.caption"
    413 msgid "Modify"
    414 msgstr "Upravit"
    415 
    416 #: tformnew.buttonplayerremove.caption
    417 msgctxt "tformnew.buttonplayerremove.caption"
    418 msgid "Remove"
    419 msgstr "Odstranit"
    420393
    421394#: tformnew.caption
    … …  
    10811054msgid "64-bit UInt read overflow."
    10821055msgstr "Přetečení při čtení 64-bit UInt"
     1056

  • trunk/Languages/xtactics.po

    r243 r244  
    338338
    339339#: tformnew.aplayermodify.caption
    340 msgid "Modify player"
     340msgctxt "tformnew.aplayermodify.caption"
     341msgid "Modify"
    341342msgstr ""
    342343
    … …  
    361362msgstr ""
    362363
    363 #: tformnew.button1.caption
    364 msgctxt "tformnew.button1.caption"
    365 msgid "Add"
    366 msgstr ""
    367 
    368 #: tformnew.button2.caption
    369 msgctxt "tformnew.button2.caption"
    370 msgid "Remove"
    371 msgstr ""
    372 
    373 #: tformnew.button3.caption
    374 msgctxt "tformnew.button3.caption"
    375 msgid "Modify"
    376 msgstr ""
    377 
    378364#: tformnew.buttoncancel.caption
    379365msgctxt "TFORMNEW.BUTTONCANCEL.CAPTION"
    … …  
    389375msgctxt "TFORMNEW.BUTTONOK.CAPTION"
    390376msgid "Ok"
    391 msgstr ""
    392 
    393 #: tformnew.buttonplayeradd.caption
    394 msgctxt "tformnew.buttonplayeradd.caption"
    395 msgid "Add"
    396 msgstr ""
    397 
    398 #: tformnew.buttonplayermodify.caption
    399 msgctxt "tformnew.buttonplayermodify.caption"
    400 msgid "Modify"
    401 msgstr ""
    402 
    403 #: tformnew.buttonplayerremove.caption
    404 msgctxt "tformnew.buttonplayerremove.caption"
    405 msgid "Remove"
    406377msgstr ""
    407378

  • trunk/UMap.pas

    r242 r244  
    567567  Shape := Source.Shape;
    568568  Image.Picture.Bitmap.Assign(Source.Image.Picture.Bitmap);
     569  Cyclic := Source.Cyclic;
    569570
    570571  // TODO: How to copy cells
    … …  
    598599  DefaultCellSize.Y := ReadInteger(Node, 'DefaultCellSizeY', 1);
    599600  MaxPower := ReadInteger(Node, 'MaxPower', DefaultMaxPower);
     601  Cyclic := ReadBoolean(Node, 'Cyclic', False);
    600602  Shape := TMapShape(ReadInteger(Node, 'Shape', Integer(msRectangle)));
    601603  Node2 := Node.FindNode('Cells');
    … …  
    615617  WriteInteger(Node, 'DefaultCellSizeY', DefaultCellSize.Y);
    616618  WriteInteger(Node, 'MaxPower', MaxPower);
     619  WriteBoolean(Node, 'Cyclic', Cyclic);
    617620  WriteInteger(Node, 'Shape', Integer(Shape));
    618621  WriteInteger(Node, 'SizeX', Size.X);
Note: See TracChangeset for help on using the changeset viewer.