Changeset 221 for trunk/Forms


Ignore:
Timestamp:
Jun 12, 2018, 11:04:18 AM (7 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/Forms
Files:
6 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
Note: See TracChangeset for help on using the changeset viewer.