Changeset 222


Ignore:
Timestamp:
Jan 17, 2025, 10:14:06 PM (4 days ago)
Author:
chronos
Message:
  • Fixed: Keep fullscreen state and selected translation language between application restarts.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/Core.pas

    r220 r222  
    6363implementation
    6464
     65uses
     66  FormEx;
     67
    6568const
    6669  ExampleFile = 'Example acronyms.adp';
    … …  
    8487  InitializeFinished := False;
    8588  StoredDimension := TControlDimension.Create;
     89
     90  TFormEx.ScaleDPI := ScaleDPI1;
     91  TFormEx.Translator := Translator;
     92  TFormEx.ThemeManager := ThemeManager;
     93  TFormEx.PersistentForm := PersistentForm1;
     94
    8695  Application.CreateForm(TFormMain, FormMain);
    8796end;

  • trunk/Forms/FormMain.pas

    r220 r222  
    156156    procedure AShowKeyShortcutsExecute(Sender: TObject);
    157157  private
    158     FullScreen: Boolean;
    159158    RegistryContext: TRegistryContext;
    160159    ProjectClosed: Boolean;
Note: See TracChangeset for help on using the changeset viewer.