Changeset 228 for branches/xpascal/Forms/FormMain.pas

Timestamp:

Jun 24, 2023, 12:33:35 PM (17 months ago)

Author:

chronos

Message:

• Modified: Use TFormEx for all forms.
• Modified: Test forms moved into Common package.

File:

• branches/xpascal/Forms/FormMain.pas (modified) (6 diffs)

branches/xpascal/Forms/FormMain.pas

@@ -6 +6 @@
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Menus,
   ActnList, ExtCtrls, SynHighlighterPas, SynEdit, Source, Optimizer,
-  Generator, FormSource, FormMessages, FormOutput;
+  Generator, FormSource, FormMessages, FormOutput, FormEx;
 
 type
@@ -12 +12 @@
   { TFormMain }
 
-  TFormMain = class(TForm)
+  TFormMain = class(TFormEx)
     ACompile: TAction;
     ATest: TAction;
@@ -46 +46 @@
     procedure AGenerateXmlExecute(Sender: TObject);
     procedure ATestExecute(Sender: TObject);
-    procedure FormCreate(Sender: TObject);
     procedure Optimize(Features: TOptimizeFeatures);
     procedure ARunExecute(Sender: TObject);
     procedure FormActivate(Sender: TObject);
-    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
+    procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
@@ -75 +74 @@
 
 uses
-  Parser, Executor, GeneratorPascal, GeneratorPhp, FormTests,
+  Parser, Executor, GeneratorPascal, GeneratorPhp, FormTests, Translator,
   GeneratorCSharp, GeneratorXml, ParserPascal;
 
@@ -89 +88 @@
 end;
 
-procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
-begin
-end;
-
 procedure TFormMain.FormDestroy(Sender: TObject);
 begin
   if Assigned(Prog) then FreeAndNil(Prog);
-  FreeAndNil(FormSource);
-  FreeAndNil(FormMessages);
-  FreeAndNil(FormOutput);
+  if Assigned(FormSource) then FreeAndNil(FormSource);
+  if Assigned(FormMessages) then FreeAndNil(FormMessages);
+  if Assigned(FormOutput) then FreeAndNil(FormOutput);
 end;
 
@@ -211 +206 @@
 procedure TFormMain.FormCreate(Sender: TObject);
 begin
+  Translator.POFilesFolder := 'Languages;Packages/Common/Languages';
+  Translator.Language := Translator.Languages.SearchByCode('');
 end;