Changeset 310 for trunk/Forms


Ignore:
Timestamp:
Aug 18, 2021, 4:02:44 PM (3 years ago)
Author:
chronos
Message:
  • Fixed: Use correct game data files directory on Linux.
  • Fixed: Copy Systems and Maps with with package.
  • Modified: Use fullscreen mode switching from Common package PersistentForm class.
Location:
trunk/Forms
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormMain.lfm

    r304 r310  
    1515  OnKeyUp = FormKeyUp
    1616  OnShow = FormShow
    17   LCLVersion = '2.0.2.0'
    18   WindowState = wsMaximized
     17  LCLVersion = '2.0.12.0'
    1918  object ToolBar1: TToolBar
    2019    Left = 0
    … …  
    4645    end
    4746    object ToolButton5: TToolButton
    48       Left = 173
     47      Left = 171
    4948      Top = 2
    5049      Action = Core.ASettings
    5150    end
    5251    object ToolButton9: TToolButton
    53       Left = 167
     52      Left = 166
    5453      Height = 32
    5554      Top = 2
    … …  
    5756    end
    5857    object ToolButton11: TToolButton
    59       Left = 103
     58      Left = 102
    6059      Top = 2
    6160      Action = Core.AGameLoad
    6261    end
    6362    object ToolButton12: TToolButton
    64       Left = 135
     63      Left = 134
    6564      Top = 2
    6665      Action = Core.AGameSave
    6766    end
    6867    object ToolButton13: TToolButton
    69       Left = 205
     68      Left = 203
    7069      Top = 2
    7170      Action = Core.AExit
    … …  
    9089  object MainMenu1: TMainMenu
    9190    Images = Core.ImageListSmall
    92     left = 224
    93     top = 48
     91    Left = 224
     92    Top = 48
    9493    object MenuItem1: TMenuItem
    9594      Caption = 'Game'
    … …  
    210209    Interval = 20
    211210    OnTimer = Timer1Timer
    212     left = 128
    213     top = 263
     211    Left = 128
     212    Top = 263
    214213  end
    215214  object ActionList1: TActionList
    216215    Images = Core.ImageListSmall
    217     left = 280
    218     top = 152
     216    Left = 280
     217    Top = 152
    219218    object AToolBarBigIcons: TAction
    220219      Caption = 'Toolbar big icons'
    … …  
    239238  end
    240239  object PopupMenuToolbar: TPopupMenu
    241     left = 452
    242     top = 98
     240    Left = 452
     241    Top = 98
    243242    object MenuItem18: TMenuItem
    244243      Action = AToolBarBigIcons

  • trunk/Forms/UFormMain.pas

    r273 r310  
    9191    FormActivated: Boolean;
    9292    FormShown: Boolean;
     93    FullScreen: Boolean;
    9394    procedure ApplicationStart(Ptr: IntPtr);
    9495    procedure UpdateClientForms;
    … …  
    284285    AUnitShapeVisible.Checked := Core.UnitShapeVisible;
    285286    Core.ScaleDPI;
    286     Core.PersistentForm.Load(Self, True);
     287    Core.PersistentForm.Load(Self);
     288    FullScreen := Core.PersistentForm.FormFullScreen;
    287289    Core.ThemeManager1.UseTheme(Self);
    288290    Core.Init;
Note: See TracChangeset for help on using the changeset viewer.