Changeset 228 for branches/xpascal/Forms

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.

Location:

branches/xpascal/Forms

Files:

• FormMain.lfm (modified) (2 diffs)
• FormMain.pas (modified) (6 diffs)
• FormTest.lfm (deleted)
• FormTest.lrj (deleted)
• FormTest.pas (deleted)
• FormTests.lfm (deleted)
• FormTests.lrj (deleted)
• FormTests.pas (deleted)

branches/xpascal/Forms/FormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
-  Left = 515
+  Left = 482
   Height = 993
-  Top = 67
+  Top = 205
   Width = 1491
   Caption = 'Interpreter'
@@ -10 +10 @@
   Menu = MainMenu1
   OnActivate = FormActivate
-  OnClose = FormClose
   OnCreate = FormCreate
   OnDestroy = FormDestroy

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;