Changeset 51 for trunk/Forms/UMainForm.pas

Timestamp:

Dec 20, 2021, 6:45:12 PM (3 years ago)

Author:

chronos

Message:

• Modified: Updated Common package.
• Removed: CoolTranslator merged into Common package.
• Modified: Code cleanup.

File:

• trunk/Forms/UMainForm.pas (modified) (4 diffs)

trunk/Forms/UMainForm.pas

@@ -8 +8 @@
   XMLConf, Classes, SysUtils, FileUtil, Forms, Controls, Graphics,
   Dialogs, ExtCtrls, ComCtrls, Menus, ActnList, UEngine, UPlatform, Math,
-  DateUtils, GraphType, UPersistentForm, UApplicationInfo, UCoolTranslator,
-  LCLType, URegistry;
+  DateUtils, GraphType, UPersistentForm, UApplicationInfo, UTranslator,
+  LCLType, URegistry, UAboutDialog;
 
 type
@@ -17 +17 @@
   TMainForm = class(TForm)
     AAbout: TAction;
+    AboutDialog1: TAboutDialog;
     AShowRawImageDesc: TAction;
     AShowMap: TAction;
@@ -143 +144 @@
   Engine := TEngine.Create;
   Engine.Bitmap := Image1.Picture.Bitmap;
-  Core.CoolTranslator1.Language := Core.CoolTranslator1.Languages.SearchByCode('cs');
+  Core.Translator1.Language := Core.Translator1.Languages.SearchByCode('cs');
   LoadConfig;
   Engine.NewGame;
@@ -221 +222 @@
 procedure TMainForm.AAboutExecute(Sender: TObject);
 begin
-  FormAbout := TFormAbout.Create(nil);
-  FormAbout.ShowModal;
-  FreeAndNil(FormAbout);
+  AboutDialog1.Show;
 end;