Changeset 212 for trunk


Ignore:
Timestamp:
May 24, 2018, 8:01:20 PM (7 years ago)
Author:
chronos
Message:
  • Modified: Show docked chat window on right side in new player window.
Location:
trunk/Forms
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormChat.lfm

    r199 r212  
    77  ClientHeight = 441
    88  ClientWidth = 527
    9   DesignTimePPI = 120
     9  DesignTimePPI = 144
     10  OnCreate = FormCreate
     11  OnShow = FormShow
    1012  LCLVersion = '1.8.2.0'
    1113  object MemoChat: TMemo
    1214    Left = 8
    13     Height = 374
    14     Top = 24
     15    Height = 362
     16    Top = 32
    1517    Width = 509
    1618    Anchors = [akTop, akLeft, akRight, akBottom]
    … …  
    2123  object EditMessage: TEdit
    2224    Left = 8
    23     Height = 28
    24     Top = 406
     25    Height = 36
     26    Top = 398
    2527    Width = 411
    2628    Anchors = [akLeft, akRight, akBottom]
    … …  
    3133    Left = 423
    3234    Height = 31
    33     Top = 406
     35    Top = 402
    3436    Width = 94
    3537    Anchors = [akRight, akBottom]
    … …  
    4042  object Label1: TLabel
    4143    Left = 10
    42     Height = 20
     44    Height = 26
    4345    Top = 4
    44     Width = 33
     46    Width = 44
    4547    Caption = 'Chat:'
    4648    ParentColor = False

  • trunk/Forms/UFormChat.pas

    r199 r212  
    2020    procedure ButtonMessageSendClick(Sender: TObject);
    2121    procedure EditMessageKeyPress(Sender: TObject; var Key: char);
     22    procedure FormCreate(Sender: TObject);
     23    procedure FormShow(Sender: TObject);
    2224  private
    2325
    … …  
    2931  FormChat: TFormChat;
    3032
     33
    3134implementation
    3235
    3336{$R *.lfm}
     37
     38uses
     39  UCore;
    3440
    3541{ TFormChat }
    … …  
    3844begin
    3945  if Key = #13 then ButtonMessageSend.Click;
     46end;
     47
     48procedure TFormChat.FormCreate(Sender: TObject);
     49begin
     50  Core.CoolTranslator1.TranslateComponentRecursive(Self);
     51end;
     52
     53procedure TFormChat.FormShow(Sender: TObject);
     54begin
     55
    4056end;
    4157

  • trunk/Forms/UFormNew.lfm

    r198 r212  
    11object FormNew: TFormNew
    2   Left = 387
     2  Left = 554
    33  Height = 748
    4   Top = 102
    5   Width = 795
     4  Top = 149
     5  Width = 1154
    66  Caption = 'New game'
    77  ClientHeight = 748
    8   ClientWidth = 795
     8  ClientWidth = 1154
    99  Constraints.MinHeight = 501
    1010  Constraints.MinWidth = 667
    11   DesignTimePPI = 120
     11  DesignTimePPI = 144
    1212  OnClose = FormClose
    1313  OnCreate = FormCreate
    … …  
    1818  object PageControl1: TPageControl
    1919    Left = 4
    20     Height = 461
     20    Height = 695
    2121    Top = 4
    22     Width = 787
    23     ActivePage = TabSheet3
     22    Width = 749
     23    ActivePage = TabSheet2
    2424    Align = alClient
    2525    BorderSpacing.Around = 4
    26     TabIndex = 3
     26    TabIndex = 2
    2727    TabOrder = 0
    2828    object TabSheetMode: TTabSheet
    2929      Caption = 'Mode'
    30       ClientHeight = 362
    31       ClientWidth = 694
     30      ClientHeight = 651
     31      ClientWidth = 743
    3232      object RadioButtonModeLocal: TRadioButton
    3333        Left = 10
    34         Height = 24
     34        Height = 30
    3535        Top = 14
    36         Width = 59
     36        Width = 68
    3737        Caption = 'Local'
     38        Checked = True
    3839        OnChange = RadioButtonModeLocalChange
    3940        TabOrder = 0
    … …  
    4142      object RadioButtonModeNetworkServer: TRadioButton
    4243        Left = 10
    43         Height = 24
     44        Height = 30
    4445        Top = 48
    45         Width = 123
     46        Width = 154
    4647        Caption = 'Network server'
    4748        OnChange = RadioButtonModeLocalChange
    … …  
    5051      object RadioButtonModeNetworkClient: TRadioButton
    5152        Left = 10
    52         Height = 24
     53        Height = 30
    5354        Top = 152
    54         Width = 120
     55        Width = 149
    5556        Caption = 'Network client'
    5657        OnChange = RadioButtonModeLocalChange
    … …  
    5960      object EditServerAddress: TEdit
    6061        Left = 24
    61         Height = 28
     62        Height = 36
    6263        Top = 112
    6364        Width = 220
    … …  
    6667      object SpinEditServerPort: TSpinEdit
    6768        Left = 256
    68         Height = 28
     69        Height = 36
    6970        Top = 112
    7071        Width = 79
    … …  
    7475      object Label11: TLabel
    7576        Left = 256
    76         Height = 20
     77        Height = 26
    7778        Top = 88
    78         Width = 30
     79        Width = 41
    7980        Caption = 'Port:'
    8081        ParentColor = False
    … …  
    8283      object Label12: TLabel
    8384        Left = 24
    84         Height = 20
     85        Height = 26
    8586        Top = 88
    86         Width = 56
     87        Width = 74
    8788        Caption = 'Address:'
    8889        ParentColor = False
    … …  
    9091      object ListViewServers: TListView
    9192        Left = 26
    92         Height = 130
     93        Height = 419
    9394        Top = 181
    9495        Width = 334
    … …  
    101102          item
    102103            Caption = 'Address'
    103             Width = 200
     104            Width = 214
    104105          end>
    105106        MultiSelect = True
    … …  
    118119        Left = 27
    119120        Height = 31
    120         Top = 323
     121        Top = 612
    121122        Width = 94
    122123        Action = AServerAdd
    … …  
    127128        Left = 240
    128129        Height = 31
    129         Top = 323
     130        Top = 612
    130131        Width = 94
    131132        Action = AServerRemove
    … …  
    136137        Left = 136
    137138        Height = 30
    138         Top = 323
     139        Top = 612
    139140        Width = 94
    140141        Action = AServerModify
    … …  
    145146    object TabSheet1: TTabSheet
    146147      Caption = 'Players'
    147       ClientHeight = 428
    148       ClientWidth = 779
     148      ClientHeight = 651
     149      ClientWidth = 743
    149150      object ListViewPlayers: TListView
    150151        Left = 4
    151         Height = 378
     152        Height = 601
    152153        Top = 4
    153         Width = 771
     154        Width = 735
    154155        Align = alTop
    155156        Anchors = [akTop, akLeft, akRight, akBottom]
    … …  
    188189        Left = 224
    189190        Height = 25
    190         Top = 390
     191        Top = 613
    191192        Width = 83
    192193        Action = APlayerRemove
    … …  
    197198        Left = 16
    198199        Height = 25
    199         Top = 390
     200        Top = 613
    200201        Width = 83
    201202        Action = APlayerAdd
    … …  
    206207        Left = 120
    207208        Height = 25
    208         Top = 390
     209        Top = 613
    209210        Width = 83
    210211        Action = APlayerModify
    … …  
    216217    object TabSheet2: TTabSheet
    217218      Caption = 'Map'
    218       ClientHeight = 428
    219       ClientWidth = 779
     219      ClientHeight = 651
     220      ClientWidth = 743
    220221      object Label1: TLabel
    221222        Left = 8
    222         Height = 20
     223        Height = 26
    223224        Top = 9
    224         Width = 74
     225        Width = 95
    225226        Caption = 'Map width:'
    226227        ParentColor = False
    … …  
    228229      object Label2: TLabel
    229230        Left = 8
    230         Height = 20
     231        Height = 26
    231232        Top = 57
    232         Width = 79
     233        Width = 102
    233234        Caption = 'Map height:'
    234235        ParentColor = False
    … …  
    236237      object SpinEditMapSizeX: TSpinEdit
    237238        Left = 128
    238         Height = 28
     239        Height = 36
    239240        Top = 4
    240241        Width = 98
    … …  
    246247      object SpinEditMapSizeY: TSpinEdit
    247248        Left = 128
    248         Height = 28
     249        Height = 36
    249250        Top = 55
    250251        Width = 98
    … …  
    258259        Height = 47
    259260        Top = 8
    260         Width = 528
     261        Width = 492
    261262        Max = 100
    262263        Min = 2
    … …  
    271272        Height = 47
    272273        Top = 49
    273         Width = 528
     274        Width = 492
    274275        Max = 100
    275276        Min = 2
    … …  
    282283      object Label5: TLabel
    283284        Left = 8
    284         Height = 20
     285        Height = 26
    285286        Top = 104
    286         Width = 64
     287        Width = 83
    287288        Caption = 'Grid type:'
    288289        ParentColor = False
    … …  
    290291      object ComboBoxGridType: TComboBox
    291292        Left = 146
    292         Height = 28
     293        Height = 36
    293294        Top = 104
    294295        Width = 208
    295         ItemHeight = 20
     296        ItemHeight = 0
    296297        Items.Strings = (
    297298          'Hexagonal'
    … …  
    304305      object ComboBoxMapShape: TComboBox
    305306        Left = 146
    306         Height = 28
     307        Height = 36
    307308        Top = 144
    308309        Width = 208
    309         ItemHeight = 20
     310        ItemHeight = 0
    310311        Items.Strings = (
    311312          'Hexagonal'
    … …  
    319320      object Label8: TLabel
    320321        Left = 8
    321         Height = 20
     322        Height = 26
    322323        Top = 144
    323         Width = 76
     324        Width = 98
    324325        Caption = 'Map shape:'
    325326        ParentColor = False
    … …  
    329330        Height = 27
    330331        Top = 110
    331         Width = 291
     332        Width = 255
    332333        Anchors = [akTop, akLeft, akRight]
    333334        AutoSize = False
    … …  
    337338      object SpinEditVoidPercent: TSpinEdit
    338339        Left = 216
    339         Height = 28
     340        Height = 36
    340341        Top = 224
    341342        Width = 106
    … …  
    346347      object CheckBoxVoid: TCheckBox
    347348        Left = 8
    348         Height = 24
     349        Height = 30
    349350        Top = 232
    350         Width = 149
     351        Width = 187
    351352        Caption = 'Inaccessible places'
    352353        OnChange = CheckBoxVoidChange
    … …  
    355356      object CheckBoxCity: TCheckBox
    356357        Left = 8
    357         Height = 24
     358        Height = 30
    358359        Top = 272
    359         Width = 60
     360        Width = 71
    360361        Caption = 'Cities'
    361362        OnChange = CheckBoxCityChange
    … …  
    364365      object SpinEditCityPercent: TSpinEdit
    365366        Left = 216
    366         Height = 28
     367        Height = 36
    367368        Top = 272
    368369        Width = 106
    … …  
    373374      object Label4: TLabel
    374375        Left = 331
    375         Height = 20
     376        Height = 26
    376377        Top = 272
    377         Width = 12
     378        Width = 15
    378379        Caption = '%'
    379380        ParentColor = False
    … …  
    381382      object Label3: TLabel
    382383        Left = 331
    383         Height = 20
     384        Height = 26
    384385        Top = 232
    385         Width = 12
     386        Width = 15
    386387        Caption = '%'
    387388        ParentColor = False
    … …  
    389390      object SpinEditNeutralUnits: TSpinEdit
    390391        Left = 408
    391         Height = 28
     392        Height = 36
    392393        Top = 384
    393394        Width = 98
    … …  
    398399      object Label7: TLabel
    399400        Left = 8
    400         Height = 20
     401        Height = 26
    401402        Top = 384
    402         Width = 172
     403        Width = 227
    403404        Caption = 'Max random neutral units:'
    404405        ParentColor = False
    … …  
    406407      object EditImageFile: TEdit
    407408        Left = 144
    408         Height = 28
     409        Height = 36
    409410        Top = 184
    410         Width = 512
     411        Width = 476
    411412        Anchors = [akTop, akLeft, akRight]
    412413        TabOrder = 12
    413414      end
    414415      object ButtonImageBrowse: TButton
    415         Left = 664
     416        Left = 628
    416417        Height = 25
    417418        Top = 192
    … …  
    424425      object Label9: TLabel
    425426        Left = 8
    426         Height = 20
     427        Height = 26
    427428        Top = 184
    428         Width = 70
     429        Width = 90
    429430        Caption = 'Image file:'
    430431        ParentColor = False
    … …  
    432433      object CheckBoxBridges: TCheckBox
    433434        Left = 8
    434         Height = 24
     435        Height = 30
    435436        Top = 310
    436         Width = 168
     437        Width = 210
    437438        Caption = 'Bridges between cells'
    438439        TabOrder = 14
    … …  
    440441      object SpinEditMaxPower: TSpinEdit
    441442        Left = 408
    442         Height = 28
     443        Height = 36
    443444        Top = 344
    444445        Width = 98
    … …  
    451452      object Label10: TLabel
    452453        Left = 8
    453         Height = 20
     454        Height = 26
    454455        Top = 344
    455         Width = 119
     456        Width = 156
    456457        Caption = 'Max units per cell:'
    457458        ParentColor = False
    … …  
    460461    object TabSheet3: TTabSheet
    461462      Caption = 'Rules'
    462       ClientHeight = 428
    463       ClientWidth = 779
     463      ClientHeight = 651
     464      ClientWidth = 743
    464465      object RadioGroupGrowCells: TRadioGroup
    465466        Left = 15
    … …  
    476477        ChildSizing.Layout = cclLeftToRightThenTopToBottom
    477478        ChildSizing.ControlsPerLine = 1
    478         ClientHeight = 80
     479        ClientHeight = 77
    479480        ClientWidth = 308
    480481        Items.Strings = (
    … …  
    487488      object Label6: TLabel
    488489        Left = 8
    489         Height = 20
     490        Height = 26
    490491        Top = 248
    491         Width = 94
     492        Width = 120
    492493        Caption = 'Win objective:'
    493494        ParentColor = False
    494495      end
    495496      object ComboBoxWinObjective: TComboBox
    496         Left = 232
    497         Height = 28
    498         Top = 240
     497        Left = 224
     498        Height = 36
     499        Top = 244
    499500        Width = 328
    500         ItemHeight = 20
     501        ItemHeight = 0
    501502        Items.Strings = (
    502503          'Defeat all oponents'
    … …  
    523524        ChildSizing.Layout = cclLeftToRightThenTopToBottom
    524525        ChildSizing.ControlsPerLine = 1
    525         ClientHeight = 51
     526        ClientHeight = 48
    526527        ClientWidth = 301
    527528        Items.Strings = (
    … …  
    535536        Height = 27
    536537        Top = 24
    537         Width = 619
     538        Width = 583
    538539        Anchors = [akTop, akLeft, akRight]
    539540        AutoSize = False
    … …  
    544545        Left = 12
    545546        Height = 78
    546         Top = 274
    547         Width = 756
     547        Top = 290
     548        Width = 720
    548549        ActivePage = TabSheetCaptureCities
    549550        Anchors = [akTop, akLeft, akRight]
    … …  
    556557        end
    557558        object TabSheetCaptureCells: TTabSheet
    558           ClientHeight = 70
    559           ClientWidth = 748
     559          ClientHeight = 72
     560          ClientWidth = 714
    560561          object Label14: TLabel
    561562            Left = 8
    … …  
    578579        end
    579580        object TabSheetStayAliveTurns: TTabSheet
    580           ClientHeight = 70
    581           ClientWidth = 748
     581          ClientHeight = 72
     582          ClientWidth = 714
    582583          object Label13: TLabel
    583584            Left = 8
    … …  
    606607    Height = 45
    607608    Top = 703
    608     Width = 795
     609    Width = 1154
    609610    Align = alBottom
    610611    BevelOuter = bvNone
    611612    ClientHeight = 45
    612     ClientWidth = 795
     613    ClientWidth = 1154
    613614    TabOrder = 1
    614615    object ButtonOk: TButton
    615       Left = 607
     616      Left = 966
    616617      Height = 25
    617618      Top = 6
    … …  
    623624    end
    624625    object ButtonCancel: TButton
    625       Left = 711
     626      Left = 1070
    626627      Height = 25
    627628      Top = 6
    … …  
    634635  end
    635636  object PanelChat: TPanel
    636     Left = 0
    637     Height = 228
    638     Top = 475
    639     Width = 795
    640     Align = alBottom
     637    Left = 763
     638    Height = 703
     639    Top = 0
     640    Width = 391
     641    Align = alRight
    641642    BevelOuter = bvNone
    642643    TabOrder = 2
    643644  end
    644645  object Splitter1: TSplitter
    645     Cursor = crVSplit
    646     Left = 0
    647     Height = 6
    648     Top = 469
    649     Width = 795
    650     Align = alBottom
    651     ResizeAnchor = akBottom
     646    Left = 757
     647    Height = 703
     648    Top = 0
     649    Width = 6
     650    Align = alRight
     651    ResizeAnchor = akRight
    652652  end
    653653  object ActionList1: TActionList
Note: See TracChangeset for help on using the changeset viewer.