Changeset 221


Ignore:
Timestamp:
Jun 12, 2018, 11:04:18 AM (6 years ago)
Author:
chronos
Message:
  • Fixed: OnKeyUp event is not fired if FormClient is docked onto FormMain. Pass this event from FormMain.
  • Modified: Hide Game mode in New game dialog if DEBUG mode is not active. The feature is not finished yet.
Location:
trunk
Files:
9 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormClient.lfm

    r213 r221  
    77  ClientHeight = 621
    88  ClientWidth = 775
    9   DesignTimePPI = 144
     9  DesignTimePPI = 120
    1010  OnClose = FormClose
    1111  OnCreate = FormCreate
    … …  
    1717  object StatusBar1: TStatusBar
    1818    Left = 0
    19     Height = 30
    20     Top = 591
     19    Height = 28
     20    Top = 593
    2121    Width = 775
    2222    Panels = <   
    … …  
    3434  object ToolBar1: TToolBar
    3535    Left = 0
    36     Height = 591
     36    Height = 593
    3737    Top = 0
    3838    Width = 32
    … …  
    8080  object PaintBox1: TPaintBox
    8181    Left = 32
    82     Height = 591
     82    Height = 593
    8383    Top = 0
    8484    Width = 743

  • trunk/Forms/UFormClient.pas

    r215 r221  
    416416procedure TFormClient.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState
    417417  );
    418 begin
    419   if (Key = 27) or (Key = 17) then
     418const
     419  ControlKey = 17;
     420  EscapeKey = 27;
     421begin
     422  if (Key = EscapeKey) or (Key = ControlKey) then
    420423  if Assigned(Core.Game.CurrentPlayer) then begin
    421424    Client.View.SelectedCell := nil;

  • trunk/Forms/UFormMain.lfm

    r220 r221  
    55  Width = 775
    66  Caption = 'xTactics'
    7   ClientHeight = 587
     7  ClientHeight = 596
    88  ClientWidth = 775
    9   DesignTimePPI = 144
     9  DesignTimePPI = 120
    1010  Menu = MainMenu1
    1111  OnClose = FormClose
    1212  OnCreate = FormCreate
    1313  OnDestroy = FormDestroy
     14  OnKeyUp = FormKeyUp
    1415  OnShow = FormShow
    1516  LCLVersion = '1.8.2.0'
    … …  
    7778  object PanelMain: TPanel
    7879    Left = 0
    79     Height = 547
     80    Height = 556
    8081    Top = 40
    8182    Width = 775

  • trunk/Forms/UFormMain.pas

    r220 r221  
    6969    procedure AToolBarBigIconsExecute(Sender: TObject);
    7070    procedure AToolBarVisibleExecute(Sender: TObject);
     71    procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
    7172    procedure FormShow(Sender: TObject);
    7273    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    … …  
    172173end;
    173174
     175procedure TFormMain.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState
     176  );
     177begin
     178  // Pass KeyUp event to docked form
     179  FormClient.FormKeyUp(Sender, Key, Shift);
     180end;
     181
    174182procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
    175183begin

  • trunk/Forms/UFormNew.lfm

    r218 r221  
    99  Constraints.MinHeight = 501
    1010  Constraints.MinWidth = 667
    11   DesignTimePPI = 144
     11  DesignTimePPI = 120
    1212  OnClose = FormClose
    1313  OnCreate = FormCreate
    … …  
    2121    Top = 4
    2222    Width = 749
    23     ActivePage = TabSheet2
     23    ActivePage = TabSheetMode
    2424    Align = alClient
    2525    BorderSpacing.Around = 4
    26     TabIndex = 2
     26    TabIndex = 0
    2727    TabOrder = 0
    2828    object TabSheetMode: TTabSheet
    2929      Caption = 'Mode'
    30       ClientHeight = 651
    31       ClientWidth = 743
     30      ClientHeight = 662
     31      ClientWidth = 741
    3232      object RadioButtonModeLocal: TRadioButton
    3333        Left = 10
    34         Height = 30
     34        Height = 24
    3535        Top = 14
    36         Width = 68
     36        Width = 59
    3737        Caption = 'Local'
    3838        Checked = True
    … …  
    4343      object RadioButtonModeNetworkServer: TRadioButton
    4444        Left = 10
    45         Height = 30
     45        Height = 24
    4646        Top = 48
    47         Width = 154
     47        Width = 123
    4848        Caption = 'Network server'
    4949        OnChange = RadioButtonModeLocalChange
    … …  
    5252      object RadioButtonModeNetworkClient: TRadioButton
    5353        Left = 10
    54         Height = 30
     54        Height = 24
    5555        Top = 152
    56         Width = 149
     56        Width = 120
    5757        Caption = 'Network client'
    5858        OnChange = RadioButtonModeLocalChange
    … …  
    6161      object EditServerAddress: TEdit
    6262        Left = 24
    63         Height = 36
     63        Height = 28
    6464        Top = 112
    6565        Width = 220
    … …  
    6868      object SpinEditServerPort: TSpinEdit
    6969        Left = 256
    70         Height = 36
     70        Height = 28
    7171        Top = 112
    7272        Width = 79
    … …  
    7676      object Label11: TLabel
    7777        Left = 256
    78         Height = 26
     78        Height = 20
    7979        Top = 88
    80         Width = 41
     80        Width = 30
    8181        Caption = 'Port:'
    8282        ParentColor = False
    … …  
    8484      object Label12: TLabel
    8585        Left = 24
    86         Height = 26
     86        Height = 20
    8787        Top = 88
    88         Width = 74
     88        Width = 56
    8989        Caption = 'Address:'
    9090        ParentColor = False
    … …  
    9292      object ListViewServers: TListView
    9393        Left = 26
    94         Height = 419
     94        Height = 430
    9595        Top = 181
    9696        Width = 334
    … …  
    120120        Left = 27
    121121        Height = 31
    122         Top = 612
     122        Top = 623
    123123        Width = 94
    124124        Action = AServerAdd
    … …  
    129129        Left = 240
    130130        Height = 31
    131         Top = 612
     131        Top = 623
    132132        Width = 94
    133133        Action = AServerRemove
    … …  
    138138        Left = 136
    139139        Height = 30
    140         Top = 612
     140        Top = 623
    141141        Width = 94
    142142        Action = AServerModify
    … …  
    145145      end
    146146    end
    147     object TabSheet1: TTabSheet
     147    object TabSheetPlayers: TTabSheet
    148148      Caption = 'Players'
    149       ClientHeight = 651
    150       ClientWidth = 743
     149      ClientHeight = 662
     150      ClientWidth = 741
    151151      object ListViewPlayers: TListView
    152152        Left = 4
    153         Height = 601
     153        Height = 612
    154154        Top = 4
    155         Width = 735
     155        Width = 733
    156156        Align = alTop
    157157        Anchors = [akTop, akLeft, akRight, akBottom]
    … …  
    191191        Left = 224
    192192        Height = 25
    193         Top = 613
     193        Top = 624
    194194        Width = 83
    195195        Action = APlayerRemove
    … …  
    200200        Left = 16
    201201        Height = 25
    202         Top = 613
     202        Top = 624
    203203        Width = 83
    204204        Action = APlayerAdd
    … …  
    209209        Left = 120
    210210        Height = 25
    211         Top = 613
     211        Top = 624
    212212        Width = 83
    213213        Action = APlayerModify
    … …  
    217217      end
    218218    end
    219     object TabSheet2: TTabSheet
     219    object TabSheetMap: TTabSheet
    220220      Caption = 'Map'
    221       ClientHeight = 651
    222       ClientWidth = 743
     221      ClientHeight = 662
     222      ClientWidth = 741
    223223      object Label1: TLabel
    224224        Left = 8
    225         Height = 26
     225        Height = 20
    226226        Top = 9
    227         Width = 95
     227        Width = 74
    228228        Caption = 'Map width:'
    229229        ParentColor = False
    … …  
    231231      object Label2: TLabel
    232232        Left = 8
    233         Height = 26
     233        Height = 20
    234234        Top = 57
    235         Width = 102
     235        Width = 79
    236236        Caption = 'Map height:'
    237237        ParentColor = False
    … …  
    239239      object SpinEditMapSizeX: TSpinEdit
    240240        Left = 128
    241         Height = 36
     241        Height = 28
    242242        Top = 4
    243243        Width = 98
    … …  
    249249      object SpinEditMapSizeY: TSpinEdit
    250250        Left = 128
    251         Height = 36
     251        Height = 28
    252252        Top = 55
    253253        Width = 98
    … …  
    261261        Height = 47
    262262        Top = 8
    263         Width = 492
     263        Width = 490
    264264        Max = 100
    265265        Min = 2
    … …  
    274274        Height = 47
    275275        Top = 49
    276         Width = 492
     276        Width = 490
    277277        Max = 100
    278278        Min = 2
    … …  
    285285      object Label5: TLabel
    286286        Left = 8
    287         Height = 26
     287        Height = 20
    288288        Top = 104
    289         Width = 83
     289        Width = 64
    290290        Caption = 'Grid type:'
    291291        ParentColor = False
    … …  
    293293      object ComboBoxGridType: TComboBox
    294294        Left = 146
    295         Height = 36
     295        Height = 28
    296296        Top = 104
    297297        Width = 208
    298         ItemHeight = 0
     298        ItemHeight = 20
    299299        Items.Strings = (
    300300          'Hexagonal'
    … …  
    307307      object ComboBoxMapShape: TComboBox
    308308        Left = 146
    309         Height = 36
     309        Height = 28
    310310        Top = 144
    311311        Width = 208
    312         ItemHeight = 0
     312        ItemHeight = 20
    313313        Items.Strings = (
    314314          'Hexagonal'
    … …  
    322322      object Label8: TLabel
    323323        Left = 8
    324         Height = 26
     324        Height = 20
    325325        Top = 144
    326         Width = 98
     326        Width = 76
    327327        Caption = 'Map shape:'
    328328        ParentColor = False
    … …  
    332332        Height = 27
    333333        Top = 110
    334         Width = 255
     334        Width = 253
    335335        Anchors = [akTop, akLeft, akRight]
    336336        AutoSize = False
    … …  
    340340      object SpinEditVoidPercent: TSpinEdit
    341341        Left = 216
    342         Height = 36
     342        Height = 28
    343343        Top = 224
    344344        Width = 106
    … …  
    349349      object CheckBoxVoid: TCheckBox
    350350        Left = 8
    351         Height = 30
     351        Height = 24
    352352        Top = 232
    353         Width = 187
     353        Width = 149
    354354        Caption = 'Inaccessible places'
    355355        OnChange = CheckBoxVoidChange
    … …  
    358358      object CheckBoxCity: TCheckBox
    359359        Left = 8
    360         Height = 30
     360        Height = 24
    361361        Top = 272
    362         Width = 71
     362        Width = 60
    363363        Caption = 'Cities'
    364364        OnChange = CheckBoxCityChange
    … …  
    367367      object SpinEditCityPercent: TSpinEdit
    368368        Left = 216
    369         Height = 36
     369        Height = 28
    370370        Top = 272
    371371        Width = 106
    … …  
    376376      object Label4: TLabel
    377377        Left = 331
    378         Height = 26
     378        Height = 20
    379379        Top = 272
    380         Width = 15
     380        Width = 12
    381381        Caption = '%'
    382382        ParentColor = False
    … …  
    384384      object Label3: TLabel
    385385        Left = 331
    386         Height = 26
     386        Height = 20
    387387        Top = 232
    388         Width = 15
     388        Width = 12
    389389        Caption = '%'
    390390        ParentColor = False
    … …  
    392392      object SpinEditNeutralUnits: TSpinEdit
    393393        Left = 408
    394         Height = 36
     394        Height = 28
    395395        Top = 384
    396396        Width = 98
    … …  
    401401      object Label7: TLabel
    402402        Left = 8
    403         Height = 26
     403        Height = 20
    404404        Top = 384
    405         Width = 227
     405        Width = 172
    406406        Caption = 'Max random neutral units:'
    407407        ParentColor = False
    … …  
    409409      object EditImageFile: TEdit
    410410        Left = 144
    411         Height = 36
     411        Height = 28
    412412        Top = 184
    413         Width = 476
     413        Width = 474
    414414        Anchors = [akTop, akLeft, akRight]
    415415        TabOrder = 12
    416416      end
    417417      object ButtonImageBrowse: TButton
    418         Left = 628
     418        Left = 626
    419419        Height = 25
    420420        Top = 192
    … …  
    427427      object Label9: TLabel
    428428        Left = 8
    429         Height = 26
     429        Height = 20
    430430        Top = 184
    431         Width = 90
     431        Width = 70
    432432        Caption = 'Image file:'
    433433        ParentColor = False
    … …  
    435435      object CheckBoxBridges: TCheckBox
    436436        Left = 8
    437         Height = 30
     437        Height = 24
    438438        Top = 310
    439         Width = 210
     439        Width = 168
    440440        Caption = 'Bridges between cells'
    441441        TabOrder = 14
    … …  
    443443      object SpinEditMaxPower: TSpinEdit
    444444        Left = 408
    445         Height = 36
     445        Height = 28
    446446        Top = 344
    447447        Width = 98
    … …  
    454454      object Label10: TLabel
    455455        Left = 8
    456         Height = 26
     456        Height = 20
    457457        Top = 344
    458         Width = 156
     458        Width = 119
    459459        Caption = 'Max units per cell:'
    460460        ParentColor = False
    461461      end
    462462    end
    463     object TabSheet3: TTabSheet
     463    object TabSheetRules: TTabSheet
    464464      Caption = 'Rules'
    465       ClientHeight = 651
    466       ClientWidth = 743
     465      ClientHeight = 662
     466      ClientWidth = 741
    467467      object RadioGroupGrowCells: TRadioGroup
    468468        Left = 15
    … …  
    479479        ChildSizing.Layout = cclLeftToRightThenTopToBottom
    480480        ChildSizing.ControlsPerLine = 1
    481         ClientHeight = 77
     481        ClientHeight = 80
    482482        ClientWidth = 308
    483483        Items.Strings = (
    … …  
    490490      object Label6: TLabel
    491491        Left = 8
    492         Height = 26
     492        Height = 20
    493493        Top = 248
    494         Width = 120
     494        Width = 94
    495495        Caption = 'Win objective:'
    496496        ParentColor = False
    … …  
    498498      object ComboBoxWinObjective: TComboBox
    499499        Left = 224
    500         Height = 36
     500        Height = 28
    501501        Top = 244
    502502        Width = 328
    503         ItemHeight = 0
     503        ItemHeight = 20
    504504        Items.Strings = (
    505505          'Defeat all oponents'
    … …  
    526526        ChildSizing.Layout = cclLeftToRightThenTopToBottom
    527527        ChildSizing.ControlsPerLine = 1
    528         ClientHeight = 48
     528        ClientHeight = 51
    529529        ClientWidth = 301
    530530        Items.Strings = (
    … …  
    538538        Height = 27
    539539        Top = 24
    540         Width = 583
     540        Width = 581
    541541        Anchors = [akTop, akLeft, akRight]
    542542        AutoSize = False
    … …  
    548548        Height = 78
    549549        Top = 290
    550         Width = 720
     550        Width = 718
    551551        ActivePage = TabSheetCaptureCities
    552552        Anchors = [akTop, akLeft, akRight]

  • trunk/Forms/UFormNew.pas

    r218 r221  
    8585    SpinEditVoidPercent: TSpinEdit;
    8686    Splitter1: TSplitter;
    87     TabSheet1: TTabSheet;
    88     TabSheet2: TTabSheet;
    89     TabSheet3: TTabSheet;
     87    TabSheetPlayers: TTabSheet;
     88    TabSheetMap: TTabSheet;
     89    TabSheetRules: TTabSheet;
    9090    TabSheetStayAliveTurns: TTabSheet;
    9191    TabSheetCaptureCells: TTabSheet;
    … …  
    343343  //Height := Trunc(1.5 * Height);
    344344  //PageControl1.TabIndex := 0;
     345  {$IFNDEF DEBUG}
     346  TabSheetMode.TabVisible := False;
     347  TabSheetMode.Enabled := False;
     348  {$ENDIF}
    345349end;
    346350

  • trunk/Languages/xtactics.cs.po

    r220 r221  
    99"MIME-Version: 1.0\n"
    1010"Content-Transfer-Encoding: 8bit\n"
    11 "X-Generator: Poedit 2.0.6\n"
     11"X-Generator: Poedit 1.8.8\n"
    1212"Language: cs\n"
    1313
    … …  
    534534msgstr "Rostoucí buňky"
    535535
    536 #: tformnew.tabsheet1.caption
    537 msgid "Players"
    538 msgstr "Hráči"
    539 
    540 #: tformnew.tabsheet2.caption
     536#: tformnew.tabsheetmap.caption
     537msgctxt "tformnew.tabsheetmap.caption"
    541538msgid "Map"
    542539msgstr "Mapa"
    543 
    544 #: tformnew.tabsheet3.caption
    545 msgid "Rules"
    546 msgstr "Pravidla"
    547540
    548541#: tformnew.tabsheetmode.caption
    … …  
    550543msgid "Mode"
    551544msgstr "Režim"
     545
     546#: tformnew.tabsheetplayers.caption
     547msgctxt "tformnew.tabsheetplayers.caption"
     548msgid "Players"
     549msgstr "Hráči"
     550
     551#: tformnew.tabsheetrules.caption
     552msgctxt "tformnew.tabsheetrules.caption"
     553msgid "Rules"
     554msgstr "Pravidla"
    552555
    553556#: tformplayer.buttoncancel.caption

  • trunk/Languages/xtactics.po

    r220 r221  
    519519msgstr ""
    520520
    521 #: tformnew.tabsheet1.caption
    522 msgid "Players"
    523 msgstr ""
    524 
    525 #: tformnew.tabsheet2.caption
     521#: tformnew.tabsheetmap.caption
     522msgctxt "tformnew.tabsheetmap.caption"
    526523msgid "Map"
    527 msgstr ""
    528 
    529 #: tformnew.tabsheet3.caption
    530 msgid "Rules"
    531524msgstr ""
    532525
    … …  
    534527msgctxt "tformnew.tabsheetmode.caption"
    535528msgid "Mode"
     529msgstr ""
     530
     531#: tformnew.tabsheetplayers.caption
     532msgctxt "tformnew.tabsheetplayers.caption"
     533msgid "Players"
     534msgstr ""
     535
     536#: tformnew.tabsheetrules.caption
     537msgctxt "tformnew.tabsheetrules.caption"
     538msgid "Rules"
    536539msgstr ""
    537540

  • trunk/UCore.lfm

    r220 r221  
    33  OnDestroy = DataModuleDestroy
    44  OldCreateOrder = False
    5   Height = 811
    6   HorizontalOffset = 423
    7   VerticalOffset = 374
    8   Width = 1258
    9   PPI = 144
     5  Height = 676
     6  HorizontalOffset = 353
     7  VerticalOffset = 312
     8  Width = 1048
     9  PPI = 120
    1010  object ActionListMain: TActionList
    1111    Images = ImageListSmall
    12     left = 137
    13     top = 60
     12    left = 114
     13    top = 50
    1414    object AExit: TAction
    1515      Caption = 'Exit'
    … …  
    105105  end
    106106  object ImageListSmall: TImageList
    107     left = 786
    108     top = 420
     107    left = 655
     108    top = 350
    109109    Bitmap = {
    110110      4C690C00000010000000100000000000000000000000E3AA4BD6E5B35EFFE3B1
    … …  
    498498    POFilesFolder = 'Languages'
    499499    OnTranslate = CoolTranslator1Translate
    500     left = 137
    501     top = 436
     500    left = 114
     501    top = 363
    502502  end
    503503  object ImageListLarge: TImageList
    504504    Height = 32
    505505    Width = 32
    506     left = 786
    507     top = 286
     506    left = 655
     507    top = 238
    508508    Bitmap = {
    509509      4C690C0000002000000020000000000000000000000000000000E2AA4B36E2A9
    … …  
    20502050    RootName = 'CONFIG'
    20512051    ReadOnly = False
    2052     left = 137
    2053     top = 556
     2052    left = 114
     2053    top = 463
    20542054  end
    20552055  object OpenDialog1: TOpenDialog
    20562056    DefaultExt = '.xtmap'
    2057     left = 1126
    2058     top = 292
     2057    left = 938
     2058    top = 243
    20592059  end
    20602060  object SaveDialog1: TSaveDialog
    20612061    DefaultExt = '.xtmap'
    2062     left = 1126
    2063     top = 166
     2062    left = 938
     2063    top = 138
    20642064  end
    20652065  object ApplicationInfo: TApplicationInfo
    … …  
    20742074    AuthorsName = 'Chronos'
    20752075    AppName = 'xTactics'
    2076     ReleaseDate = 43238
     2076    ReleaseDate = 43263
    20772077    RegistryKey = '\Software\xTactics'
    20782078    RegistryRoot = rrKeyCurrentUser
    20792079    License = 'CC0'
    2080     left = 137
    2081     top = 180
     2080    left = 114
     2081    top = 150
    20822082  end
    20832083  object PersistentForm: TPersistentForm
    20842084    MinVisiblePart = 50
    20852085    EntireVisible = False
    2086     left = 780
    2087     top = 600
     2086    left = 650
     2087    top = 500
    20882088  end
    20892089  object ScaleDPI1: TScaleDPI
    20902090    AutoDetect = False
    2091     left = 136
    2092     top = 676
     2091    left = 113
     2092    top = 563
    20932093  end
    20942094  object LastOpenedList1: TLastOpenedList
    20952095    MaxCount = 10
    20962096    OnChange = LastOpenedList1Change
    2097     left = 137
    2098     top = 300
     2097    left = 114
     2098    top = 250
    20992099  end
    21002100end
Note: See TracChangeset for help on using the changeset viewer.