Changeset 80 for trunk/UCore.pas
- Timestamp:
- Feb 12, 2021, 12:00:23 AM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/UCore.pas
r67 r80 7 7 uses 8 8 Classes, SysUtils, UTheme, UPersistentForm, UApplicationInfo, UTranslator, 9 URegistry, U Game, ActnList, Forms, Controls, Dialogs;9 URegistry, UAboutDialog, UGame, ActnList, Forms, Controls, Dialogs; 10 10 11 11 type … … 15 15 TCore = class(TDataModule) 16 16 AAbout: TAction; 17 AboutDialog1: TAboutDialog; 17 18 AComputer: TAction; 18 19 AHistory: TAction; … … 60 61 61 62 uses 62 UFormMain, UFormSettings, UForm About, UFormNew, UFormHelp, UFormComputer,63 UFormMain, UFormSettings, UFormNew, UFormHelp, UFormComputer, 63 64 UFormHistory; 64 65 … … 110 111 procedure TCore.AAboutExecute(Sender: TObject); 111 112 begin 112 FormAbout := TFormAbout.Create(nil); 113 try 114 FormAbout.ApplicationInfo := Core.ApplicationInfo1; 115 FormAbout.ShowModal; 116 finally 117 FreeAndNil(FormAbout); 118 end; 113 AboutDialog1.Show; 119 114 end; 120 115
Note:
See TracChangeset
for help on using the changeset viewer.