Changeset 220 for trunk/Forms


Ignore:
Timestamp:
Jun 10, 2018, 12:18:28 PM (6 years ago)
Author:
chronos
Message:
  • Added: Allow to toggle Fog of war in debug mode from Debug menu.
Location:
trunk/Forms
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormMain.lfm

    r206 r220  
    55  Width = 775
    66  Caption = 'xTactics'
    7   ClientHeight = 596
     7  ClientHeight = 587
    88  ClientWidth = 775
    9   DesignTimePPI = 120
     9  DesignTimePPI = 144
    1010  Menu = MainMenu1
    1111  OnClose = FormClose
    … …  
    7777  object PanelMain: TPanel
    7878    Left = 0
    79     Height = 556
     79    Height = 547
    8080    Top = 40
    8181    Width = 775
    … …  
    169169      end
    170170    end
     171    object MenuItemDebug: TMenuItem
     172      Caption = 'Debug'
     173      object MenuItem31: TMenuItem
     174        Action = Core.AToggleFogOfWar
     175      end
     176    end
    171177    object MenuItem16: TMenuItem
    172178      Caption = 'Help'

  • trunk/Forms/UFormMain.pas

    r207 r220  
    4444    MenuItem28: TMenuItem;
    4545    MenuItem29: TMenuItem;
     46    MenuItemDebug: TMenuItem;
     47    MenuItem31: TMenuItem;
    4648    MenuItem4: TMenuItem;
    4749    MenuItemLoadRecent: TMenuItem;
    … …  
    149151  FormClient.ManualDock(PanelMain, nil, alClient);
    150152  FormClient.Align := alClient;
     153  {$IFDEF DEBUG}
     154  MenuItemDebug.Visible := True;
     155  MenuItemDebug.Enabled := True;
     156  {$ELSE}
     157  MenuItemDebug.Visible := False;
     158  MenuItemDebug.Enabled := False;
     159  {$ENDIF}
    151160end;
    152161

  • trunk/Forms/UFormSettings.lfm

    r195 r220  
    1010  Constraints.MinHeight = 327
    1111  Constraints.MinWidth = 554
    12   DesignTimePPI = 120
     12  DesignTimePPI = 144
    1313  OnCreate = FormCreate
    1414  OnShow = FormShow
    … …  
    4040    Top = 4
    4141    Width = 546
    42     ActivePage = TabSheetGeneral
     42    ActivePage = TabSheetDebug
    4343    Align = alTop
    4444    Anchors = [akTop, akLeft, akRight, akBottom]
    4545    BorderSpacing.Around = 4
    46     TabIndex = 0
     46    TabIndex = 1
    4747    TabOrder = 2
    4848    object TabSheetGeneral: TTabSheet
    4949      Caption = 'General'
    50       ClientHeight = 231
    51       ClientWidth = 538
     50      ClientHeight = 220
     51      ClientWidth = 540
    5252      object Label2: TLabel
    5353        Left = 20
    54         Height = 20
     54        Height = 26
    5555        Top = 78
    56         Width = 116
     56        Width = 150
    5757        Caption = 'Animation speed:'
    5858        ParentColor = False
    … …  
    6060      object SpinEditAnimSpeed: TSpinEdit
    6161        Left = 232
    62         Height = 28
     62        Height = 36
    6363        Top = 72
    6464        Width = 122
    … …  
    6767      object Label3: TLabel
    6868        Left = 368
    69         Height = 20
     69        Height = 26
    7070        Top = 82
    71         Width = 12
     71        Width = 15
    7272        Caption = '%'
    7373        ParentColor = False
    … …  
    7777        Height = 27
    7878        Top = 112
    79         Width = 584
     79        Width = 586
    8080        Anchors = [akTop, akLeft, akRight]
    8181        AutoSize = False
    … …  
    8585      object Label1: TLabel
    8686        Left = 20
    87         Height = 20
     87        Height = 26
    8888        Top = 26
    89         Width = 68
     89        Width = 88
    9090        Caption = 'Language:'
    9191        ParentColor = False
    … …  
    9393      object ComboBoxLanguage: TComboBox
    9494        Left = 178
    95         Height = 28
     95        Height = 40
    9696        Top = 24
    9797        Width = 196
    98         ItemHeight = 20
     98        ItemHeight = 0
    9999        Style = csDropDownList
    100100        TabOrder = 2
    … …  
    102102      object CheckBoxReopenLastFile: TCheckBox
    103103        Left = 20
    104         Height = 24
     104        Height = 30
    105105        Top = 152
    106         Width = 198
     106        Width = 249
    107107        Caption = 'Reopen last game on start'
    108108        TabOrder = 3
    … …  
    125125      object Label4: TLabel
    126126        Left = 14
    127         Height = 25
     127        Height = 26
    128128        Top = 67
    129         Width = 32
     129        Width = 35
    130130        Caption = 'DPI:'
    131131        ParentColor = False
    … …  
    133133      object SpinEditX: TSpinEdit
    134134        Left = 104
    135         Height = 33
     135        Height = 36
    136136        Top = 64
    137137        Width = 96
    … …  
    143143      object SpinEditY: TSpinEdit
    144144        Left = 232
    145         Height = 33
     145        Height = 36
    146146        Top = 64
    147147        Width = 90
    … …  
    153153      object Label5: TLabel
    154154        Left = 208
    155         Height = 25
     155        Height = 26
    156156        Top = 67
    157         Width = 8
     157        Width = 10
    158158        Caption = 'x'
    159159        ParentColor = False
Note: See TracChangeset for help on using the changeset viewer.