Changeset 325


Ignore:
Timestamp:
Jun 25, 2024, 11:18:40 AM (4 months ago)
Author:
chronos
Message:
  • Fixed: Size of buttons was too small in some cases.
Location:
trunk/Forms
Files:
7 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/FormChat.lfm

    r317 r325  
    11object FormChat: TFormChat
    22  Left = 1060
    3   Height = 442
     3  Height = 368
    44  Top = 536
    5   Width = 527
     5  Width = 439
    66  Caption = 'Chat'
    7   ClientHeight = 442
    8   ClientWidth = 527
     7  ClientHeight = 368
     8  ClientWidth = 439
    99  DesignTimePPI = 144
    1010  LCLVersion = '3.4.0.0'
    1111  object MemoChat: TMemo
    1212    Left = 8
    13     Height = 363
     13    Height = 280
    1414    Top = 32
    15     Width = 509
     15    Width = 421
    1616    Anchors = [akTop, akLeft, akRight, akBottom]
    1717    ParentFont = False
     
    2323    Left = 8
    2424    Height = 43
    25     Top = 392
    26     Width = 411
     25    Top = 318
     26    Width = 320
    2727    Anchors = [akLeft, akRight, akBottom]
    2828    ParentFont = False
     
    3131  end
    3232  object ButtonMessageSend: TButton
    33     Left = 423
    34     Height = 31
    35     Top = 403
     33    Left = 336
     34    Height = 38
     35    Top = 320
    3636    Width = 94
    3737    Anchors = [akRight, akBottom]
  • trunk/Forms/FormGameSystem.lfm

    r317 r325  
    11object FormGameSystem: TFormGameSystem
    22  Left = 954
    3   Height = 578
     3  Height = 482
    44  Top = 479
    5   Width = 781
     5  Width = 651
    66  Caption = 'Game system'
    7   ClientHeight = 578
    8   ClientWidth = 781
     7  ClientHeight = 482
     8  ClientWidth = 651
    99  DesignTimePPI = 144
    1010  OnCreate = FormCreate
     
    1414    Left = 160
    1515    Height = 38
    16     Top = 528
     16    Top = 432
    1717    Width = 113
    1818    Anchors = [akLeft, akBottom]
     
    2525    Left = 24
    2626    Height = 38
    27     Top = 528
     27    Top = 432
    2828    Width = 113
    2929    Anchors = [akLeft, akBottom]
     
    3434  end
    3535  object ButtonCancel: TButton
    36     Left = 504
     36    Left = 374
    3737    Height = 38
    38     Top = 528
     38    Top = 432
    3939    Width = 113
    4040    Anchors = [akRight, akBottom]
     
    4545  end
    4646  object ButtonOk: TButton
    47     Left = 646
     47    Left = 516
    4848    Height = 38
    49     Top = 528
     49    Top = 432
    5050    Width = 113
    5151    Anchors = [akRight, akBottom]
     
    5757  object PageControl1: TPageControl
    5858    Left = 16
    59     Height = 496
     59    Height = 400
    6060    Top = 16
    61     Width = 743
    62     ActivePage = TabSheetBuildings
     61    Width = 613
     62    ActivePage = TabSheetGeneral
    6363    Anchors = [akTop, akLeft, akRight, akBottom]
    6464    ParentFont = False
    65     TabIndex = 3
     65    TabIndex = 0
    6666    TabOrder = 4
    6767    object TabSheetGeneral: TTabSheet
    6868      Caption = 'General'
    69       ClientHeight = 456
    70       ClientWidth = 733
     69      ClientHeight = 360
     70      ClientWidth = 603
    7171      ParentFont = False
    7272      object CheckBoxEmptyCellsNeutral: TCheckBox
  • trunk/Forms/FormNew.lfm

    r317 r325  
    11object FormNew: TFormNew
    2   Left = 449
    3   Height = 688
    4   Top = 511
    5   Width = 1209
     2  Left = 470
     3  Height = 795
     4  Top = 353
     5  Width = 1096
    66  Caption = 'New game'
    7   ClientHeight = 688
    8   ClientWidth = 1209
     7  ClientHeight = 795
     8  ClientWidth = 1096
    99  Constraints.MinHeight = 502
    1010  Constraints.MinWidth = 667
     
    1717  object PageControl1: TPageControl
    1818    Left = 4
    19     Height = 578
     19    Height = 677
    2020    Top = 60
    21     Width = 804
    22     ActivePage = TabSheetPlayers
     21    Width = 691
     22    ActivePage = TabSheetRules
    2323    Align = alClient
    2424    BorderSpacing.Around = 4
    2525    ParentFont = False
    26     TabIndex = 1
     26    TabIndex = 3
    2727    TabOrder = 0
    2828    OnChange = PageControl1Change
    2929    object TabSheetMode: TTabSheet
    3030      Caption = 'Mode'
    31       ClientHeight = 538
    32       ClientWidth = 794
     31      ClientHeight = 637
     32      ClientWidth = 681
    3333      ParentFont = False
    3434      object Panel3: TPanel
    3535        Left = 0
    36         Height = 538
     36        Height = 637
    3737        Top = 0
    38         Width = 794
     38        Width = 681
    3939        Align = alClient
    4040        BevelOuter = bvNone
    41         ClientHeight = 538
    42         ClientWidth = 794
     41        ClientHeight = 637
     42        ClientWidth = 681
    4343        ParentFont = False
    4444        TabOrder = 0
     
    6868          Left = 10
    6969          Height = 30
    70           Top = 152
     70          Top = 160
    7171          Width = 149
    7272          Caption = 'Network client'
     
    9595          Left = 256
    9696          Height = 26
    97           Top = 88
     97          Top = 80
    9898          Width = 40
    9999          Caption = 'Port:'
     
    104104          Left = 24
    105105          Height = 26
    106           Top = 88
     106          Top = 80
    107107          Width = 74
    108108          Caption = 'Address:'
     
    112112        object ListViewServers: TListView
    113113          Left = 26
    114           Height = 307
    115           Top = 181
     114          Height = 384
     115          Top = 200
    116116          Width = 334
    117117          Anchors = [akTop, akLeft, akBottom]
     
    140140        object Button1: TButton
    141141          Left = 26
    142           Height = 31
    143           Top = 499
     142          Height = 38
     143          Top = 592
    144144          Width = 94
    145145          Action = AServerAdd
     
    149149        end
    150150        object Button2: TButton
    151           Left = 240
    152           Height = 31
    153           Top = 499
     151          Left = 248
     152          Height = 38
     153          Top = 592
    154154          Width = 94
    155155          Action = AServerRemove
     
    160160        object Button3: TButton
    161161          Left = 136
    162           Height = 30
    163           Top = 498
     162          Height = 38
     163          Top = 592
    164164          Width = 94
    165165          Action = AServerModify
     
    172172    object TabSheetPlayers: TTabSheet
    173173      Caption = 'Players'
    174       ClientHeight = 538
    175       ClientWidth = 794
     174      ClientHeight = 637
     175      ClientWidth = 681
    176176      ParentFont = False
    177177      object Panel2: TPanel
    178178        Left = 0
    179         Height = 538
     179        Height = 637
    180180        Top = 0
    181         Width = 794
     181        Width = 681
    182182        Align = alClient
    183183        BevelOuter = bvNone
     
    188188    object TabSheetMap: TTabSheet
    189189      Caption = 'Map'
    190       ClientHeight = 538
    191       ClientWidth = 794
     190      ClientHeight = 637
     191      ClientWidth = 681
    192192      OnShow = TabSheetMapShow
    193193      ParentFont = False
    194194      object Panel1: TPanel
    195195        Left = 0
    196         Height = 538
     196        Height = 637
    197197        Top = 0
    198         Width = 794
     198        Width = 681
    199199        Align = alClient
    200200        BevelOuter = bvNone
    201         ClientHeight = 538
    202         ClientWidth = 794
     201        ClientHeight = 637
     202        ClientWidth = 681
    203203        ParentFont = False
    204204        TabOrder = 0
     
    247247          Height = 58
    248248          Top = 8
    249           Width = 543
     249          Width = 430
    250250          Max = 100
    251251          Min = 2
     
    261261          Height = 58
    262262          Top = 49
    263           Width = 543
     263          Width = 430
    264264          Max = 100
    265265          Min = 2
     
    327327          Height = 26
    328328          Top = 248
    329           Width = 543
     329          Width = 430
    330330          Anchors = [akTop, akLeft, akRight]
    331331          AutoSize = False
     
    419419          Height = 43
    420420          Top = 184
    421           Width = 543
     421          Width = 413
    422422          Anchors = [akTop, akLeft, akRight]
    423423          ParentFont = False
     
    426426        end
    427427        object ButtonImageBrowse: TButton
    428           Left = 679
     428          Left = 566
    429429          Height = 38
    430430          Top = 190
     
    480480          Height = 26
    481481          Top = 283
    482           Width = 543
     482          Width = 430
    483483          Anchors = [akTop, akLeft, akRight]
    484484          AutoSize = False
     
    492492          Height = 316
    493493          Top = 272
    494           Width = 542
     494          Width = 429
    495495          Anchors = [akTop, akLeft, akRight]
    496496          OnResize = Image1Resize
     
    519519    object TabSheetRules: TTabSheet
    520520      Caption = 'Rules'
    521       ClientHeight = 538
    522       ClientWidth = 794
     521      ClientHeight = 637
     522      ClientWidth = 681
    523523      ParentFont = False
    524524      object Panel4: TPanel
    525525        Left = 0
    526         Height = 538
     526        Height = 637
    527527        Top = 0
    528         Width = 794
     528        Width = 681
    529529        Align = alClient
    530530        BevelOuter = bvNone
    531         ClientHeight = 538
    532         ClientWidth = 794
     531        ClientHeight = 637
     532        ClientWidth = 681
    533533        ParentFont = False
    534534        TabOrder = 0
     
    619619          Height = 78
    620620          Top = 290
    621           Width = 771
     621          Width = 658
    622622          ActivePage = TabSheetCaptureEntireMap
    623623          Anchors = [akTop, akLeft, akRight]
     
    634634          object TabSheetCaptureCells: TTabSheet
    635635            ClientHeight = 74
    636             ClientWidth = 761
     636            ClientWidth = 648
    637637            ParentFont = False
    638638            object Label14: TLabel
     
    659659          object TabSheetStayAliveTurns: TTabSheet
    660660            ClientHeight = 74
    661             ClientWidth = 761
     661            ClientWidth = 648
    662662            ParentFont = False
    663663            object Label13: TLabel
     
    694694  object PanelButtons: TPanel
    695695    Left = 0
    696     Height = 46
    697     Top = 642
    698     Width = 1209
     696    Height = 54
     697    Top = 741
     698    Width = 1096
    699699    Align = alBottom
    700700    BevelOuter = bvNone
    701     ClientHeight = 46
    702     ClientWidth = 1209
     701    ClientHeight = 54
     702    ClientWidth = 1096
    703703    ParentFont = False
    704704    TabOrder = 1
    705705    object ButtonOk: TButton
    706       Left = 1022
    707       Height = 25
    708       Top = 7
    709       Width = 74
     706      Left = 981
     707      Height = 38
     708      Top = 8
     709      Width = 106
    710710      Anchors = [akRight, akBottom]
    711711      Caption = 'Ok'
     
    716716    end
    717717    object ButtonCancel: TButton
    718       Left = 1125
    719       Height = 25
    720       Top = 7
    721       Width = 74
     718      Left = 845
     719      Height = 38
     720      Top = 8
     721      Width = 114
    722722      Anchors = [akRight, akBottom]
    723723      Caption = 'Cancel'
     
    728728  end
    729729  object PanelChat: TPanel
    730     Left = 818
    731     Height = 586
     730    Left = 705
     731    Height = 685
    732732    Top = 56
    733733    Width = 391
     
    738738  end
    739739  object Splitter1: TSplitter
    740     Left = 812
    741     Height = 586
     740    Left = 699
     741    Height = 685
    742742    Top = 56
    743743    Width = 6
     
    749749    Height = 56
    750750    Top = 0
    751     Width = 1209
     751    Width = 1096
    752752    Align = alTop
    753753    BevelOuter = bvNone
    754754    ClientHeight = 56
    755     ClientWidth = 1209
     755    ClientWidth = 1096
    756756    ParentFont = False
    757757    TabOrder = 4
  • trunk/Forms/FormServer.lfm

    r317 r325  
    11object FormServer: TFormServer
    2   Left = 1078
    3   Height = 210
    4   Top = 615
    5   Width = 403
     2  Left = 647
     3  Height = 303
     4  Top = 439
     5  Width = 627
    66  Caption = 'Server'
    7   ClientHeight = 210
    8   ClientWidth = 403
     7  ClientHeight = 303
     8  ClientWidth = 627
    99  DesignTimePPI = 144
    1010  LCLVersion = '3.4.0.0'
    11   object Label1: TLabel
    12     Left = 12
    13     Height = 26
    14     Top = 24
    15     Width = 56
    16     Caption = 'Name:'
    17     ParentColor = False
    18     ParentFont = False
    19   end
    20   object EditName: TEdit
    21     Left = 163
    22     Height = 43
    23     Top = 17
    24     Width = 281
     11  object ButtonCancel: TButton
     12    Left = 362
     13    Height = 38
     14    Top = 260
     15    Width = 113
     16    Anchors = [akRight, akBottom]
     17    Caption = 'Cancel'
     18    ModalResult = 2
    2519    ParentFont = False
    2620    TabOrder = 0
    2721  end
    28   object Label2: TLabel
    29     Left = 12
    30     Height = 26
    31     Top = 72
    32     Width = 74
    33     Caption = 'Address:'
    34     ParentColor = False
    35     ParentFont = False
    36   end
    37   object EditAddress: TEdit
    38     Left = 163
    39     Height = 43
    40     Top = 64
    41     Width = 283
    42     ParentFont = False
    43     TabOrder = 1
    44   end
    45   object Label3: TLabel
    46     Left = 12
    47     Height = 26
    48     Top = 120
    49     Width = 40
    50     Caption = 'Port:'
    51     ParentColor = False
    52     ParentFont = False
    53   end
    54   object SpinEdit1: TSpinEdit
    55     Left = 163
    56     Height = 43
    57     Top = 112
    58     Width = 116
    59     MaxValue = 65535
    60     ParentFont = False
    61     TabOrder = 2
    62   end
    63   object ButtonCancel: TButton
    64     Left = 288
    65     Height = 37
    66     Top = 186
     22  object ButtonOk: TButton
     23    Left = 497
     24    Height = 38
     25    Top = 260
    6726    Width = 113
    68     Caption = 'Cancel'
    69     ModalResult = 2
    70     ParentFont = False
    71     TabOrder = 3
    72   end
    73   object ButtonOk: TButton
    74     Left = 96
    75     Height = 37
    76     Top = 186
    77     Width = 113
     27    Anchors = [akRight, akBottom]
    7828    Caption = 'OK'
    7929    ModalResult = 1
    8030    ParentFont = False
    81     TabOrder = 4
     31    TabOrder = 1
    8232    OnClick = ButtonOkClick
    8333  end
     34  object ScrollBox1: TScrollBox
     35    Left = 8
     36    Height = 246
     37    Top = 8
     38    Width = 610
     39    HorzScrollBar.Page = 279
     40    VertScrollBar.Page = 155
     41    Anchors = [akTop, akLeft, akRight, akBottom]
     42    ClientHeight = 244
     43    ClientWidth = 608
     44    TabOrder = 2
     45    object Label1: TLabel
     46      Left = 12
     47      Height = 26
     48      Top = 24
     49      Width = 56
     50      Caption = 'Name:'
     51      ParentColor = False
     52      ParentFont = False
     53    end
     54    object EditName: TEdit
     55      Left = 163
     56      Height = 43
     57      Top = 17
     58      Width = 431
     59      Anchors = [akTop, akLeft, akRight]
     60      ParentFont = False
     61      TabOrder = 0
     62    end
     63    object EditAddress: TEdit
     64      Left = 163
     65      Height = 43
     66      Top = 64
     67      Width = 431
     68      Anchors = [akTop, akLeft, akRight]
     69      ParentFont = False
     70      TabOrder = 1
     71    end
     72    object Label2: TLabel
     73      Left = 12
     74      Height = 26
     75      Top = 72
     76      Width = 74
     77      Caption = 'Address:'
     78      ParentColor = False
     79      ParentFont = False
     80    end
     81    object Label3: TLabel
     82      Left = 12
     83      Height = 26
     84      Top = 120
     85      Width = 40
     86      Caption = 'Port:'
     87      ParentColor = False
     88      ParentFont = False
     89    end
     90    object SpinEdit1: TSpinEdit
     91      Left = 163
     92      Height = 43
     93      Top = 112
     94      Width = 116
     95      MaxValue = 65535
     96      ParentFont = False
     97      TabOrder = 2
     98    end
     99  end
    84100end
  • trunk/Forms/FormServer.lrj

    r317 r325  
    11{"version":1,"strings":[
    22{"hash":94149826,"name":"tformserver.caption","sourcebytes":[83,101,114,118,101,114],"value":"Server"},
     3{"hash":77089212,"name":"tformserver.buttoncancel.caption","sourcebytes":[67,97,110,99,101,108],"value":"Cancel"},
     4{"hash":1339,"name":"tformserver.buttonok.caption","sourcebytes":[79,75],"value":"OK"},
    35{"hash":5538698,"name":"tformserver.label1.caption","sourcebytes":[78,97,109,101,58],"value":"Name:"},
    46{"hash":179883546,"name":"tformserver.label2.caption","sourcebytes":[65,100,100,114,101,115,115,58],"value":"Address:"},
    5 {"hash":5728634,"name":"tformserver.label3.caption","sourcebytes":[80,111,114,116,58],"value":"Port:"},
    6 {"hash":77089212,"name":"tformserver.buttoncancel.caption","sourcebytes":[67,97,110,99,101,108],"value":"Cancel"},
    7 {"hash":1339,"name":"tformserver.buttonok.caption","sourcebytes":[79,75],"value":"OK"}
     7{"hash":5728634,"name":"tformserver.label3.caption","sourcebytes":[80,111,114,116,58],"value":"Port:"}
    88]}
  • trunk/Forms/FormServer.pas

    r317 r325  
    1414    ButtonCancel: TButton;
    1515    ButtonOk: TButton;
     16    EditAddress: TEdit;
    1617    EditName: TEdit;
    17     EditAddress: TEdit;
    1818    Label1: TLabel;
    1919    Label2: TLabel;
    2020    Label3: TLabel;
     21    ScrollBox1: TScrollBox;
    2122    SpinEdit1: TSpinEdit;
    2223    procedure ButtonOkClick(Sender: TObject);
  • trunk/Forms/FormSettings.lfm

    r317 r325  
    1616  LCLVersion = '3.4.0.0'
    1717  object ButtonOk: TButton
    18     Left = 775
    19     Height = 25
    20     Top = 574
    21     Width = 74
     18    Left = 735
     19    Height = 38
     20    Top = 568
     21    Width = 114
    2222    Anchors = [akRight, akBottom]
    2323    Caption = 'Ok'
     
    2727  end
    2828  object ButtonCancel: TButton
    29     Left = 680
    30     Height = 25
    31     Top = 574
    32     Width = 74
     29    Left = 600
     30    Height = 38
     31    Top = 568
     32    Width = 114
    3333    Anchors = [akRight, akBottom]
    3434    Caption = 'Cancel'
     
    3939  object PageControl1: TPageControl
    4040    Left = 8
    41     Height = 558
     41    Height = 552
    4242    Top = 8
    4343    Width = 841
     
    5151    object TabSheetGeneral: TTabSheet
    5252      Caption = 'General'
    53       ClientHeight = 518
     53      ClientHeight = 512
    5454      ClientWidth = 831
    5555      ParentFont = False
    5656      object Panel1: TPanel
    5757        Left = 0
    58         Height = 518
     58        Height = 512
    5959        Top = 0
    6060        Width = 831
    6161        Align = alClient
    6262        BevelOuter = bvNone
    63         ClientHeight = 518
     63        ClientHeight = 512
    6464        ClientWidth = 831
    6565        ParentFont = False
     
    151151    object TabSheetDebug: TTabSheet
    152152      Caption = 'Debug'
    153       ClientHeight = 518
     153      ClientHeight = 512
    154154      ClientWidth = 831
    155155      ParentFont = False
    156156      object Panel2: TPanel
    157157        Left = 0
    158         Height = 518
     158        Height = 512
    159159        Top = 0
    160160        Width = 831
    161161        Align = alClient
    162162        BevelOuter = bvNone
    163         ClientHeight = 518
     163        ClientHeight = 512
    164164        ClientWidth = 831
    165165        ParentFont = False
Note: See TracChangeset for help on using the changeset viewer.