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

Timestamp:

Jun 24, 2023, 1:20:22 AM (17 months ago)

Author:

chronos

Message:

• Added: Test form.
• Added: Interface translation.
• Added: Common package.

File:

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

branches/xpascal/Forms/FormMain.pas

@@ -14 +14 @@
   TFormMain = class(TForm)
     ACompile: TAction;
+    ATest: TAction;
     AGenerateXml: TAction;
     AExit: TAction;
@@ -29 +30 @@
     MenuItem6: TMenuItem;
     MenuItem7: TMenuItem;
+    MenuItem8: TMenuItem;
+    MenuItem9: TMenuItem;
     MenuItemRun: TMenuItem;
     MenuItemGenerate: TMenuItem;
@@ -42 +45 @@
     procedure AGeneratePhpExecute(Sender: TObject);
     procedure AGenerateXmlExecute(Sender: TObject);
+    procedure ATestExecute(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure Optimize(Features: TOptimizeFeatures);
@@ -71 +75 @@
 
 uses
-  Parser, Executor, GeneratorPascal, GeneratorPhp,
+  Parser, Executor, GeneratorPascal, GeneratorPhp, FormTests,
   GeneratorCSharp, GeneratorXml, ParserPascal;
 
@@ -94 +98 @@
   FreeAndNil(FormSource);
   FreeAndNil(FormMessages);
+  FreeAndNil(FormOutput);
 end;
 
@@ -194 +199 @@
 end;
 
+procedure TFormMain.ATestExecute(Sender: TObject);
+begin
+  with TFormTests.Create(nil) do
+  try
+    ShowModal;
+  finally
+    Free;
+  end;
+end;
+
 procedure TFormMain.FormCreate(Sender: TObject);
 begin