Changeset 308 for trunk/UCore.pas


Ignore:
Timestamp:
Aug 18, 2021, 11:50:13 AM (3 years ago)
Author:
chronos
Message:
  • Modified: Updated Common package to newer version.
  • Modified: About dialog is now part of Common package.
  • Modified: CoolTranslator is now part of Common package.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/UCore.pas

    r304 r308  
    77uses
    88  Classes, SysUtils, XMLConf, FileUtil, ActnList, Controls, Dialogs, Forms,
    9   UGame, UApplicationInfo, UPersistentForm, UScaleDPI, UCoolTranslator, DOM,
    10   URegistry, ULastOpenedList, UTheme, Registry, Menus, UFormClient, UPlayer,
    11   UGameServer, UGameClient, fgl, UServerList, UGameSystem, Graphics;
     9  UGame, UApplicationInfo, UPersistentForm, UScaleDPI, UTranslator, DOM,
     10  URegistry, ULastOpenedList, UTheme, UAboutDialog, Registry, Menus,
     11  UFormClient, UPlayer, UGameServer, UGameClient, fgl, UServerList, UGameSystem,
     12  Graphics;
    1213
    1314type
    … …  
    1718  TCore = class(TDataModule)
    1819    AAbout: TAction;
     20    AboutDialog1: TAboutDialog;
    1921    AFullscreen: TAction;
    2022    AToggleFogOfWar: TAction;
    … …  
    3537    AGameNew: TAction;
    3638    AGameRestart: TAction;
    37     CoolTranslator1: TCoolTranslator;
     39    CoolTranslator1: TTranslator;
    3840    ImageListLarge: TImageList;
    3941    ImageListSmall: TImageList;
    … …  
    324326procedure TCore.AAboutExecute(Sender: TObject);
    325327begin
    326   FormAbout := TFormAbout.Create(Self);
    327   try
    328     FormAbout.ApplicationInfo := ApplicationInfo;
    329     FormAbout.ShowModal;
    330   finally
    331     FreeAndNil(FormAbout);
    332   end;
     328  AboutDialog1.Show;
    333329end;
    334330
Note: See TracChangeset for help on using the changeset viewer.