Changeset 224 for branches/interpreter2/Forms/FormMain.pas

Timestamp:

Jun 16, 2023, 12:20:51 AM (17 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• branches/interpreter2/Forms/FormMain.pas (moved) (moved from branches/interpreter2/Forms/UFormMain.pas ) (7 diffs)

branches/interpreter2/Forms/FormMain.pas

@@ -1 @@
-unit UFormMain;
-
-{$mode delphi}{$H+}
+unit FormMain;
 
 interface
 
 uses
-  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Menus,
-  ActnList, ExtCtrls, SynHighlighterPas, SynEdit, USource, UOptimizer,
-  UGenerator;
+  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Menus,
+  ActnList, ExtCtrls, SynHighlighterPas, SynEdit, Source, Optimizer,
+  Generator, FormSource, FormMessages, FormOutput;
 
 type
@@ -44 +42 @@
     procedure AGeneratePhpExecute(Sender: TObject);
     procedure AGenerateXmlExecute(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
     procedure Optimize(Features: TOptimizeFeatures);
     procedure ARunExecute(Sender: TObject);
@@ -53 +52 @@
     Prog: TProgram;
     Initialized: Boolean;
+    FormSource: TFormSource;
+    FormMessages: TFormMessages;
+    FormOutput: TFormOutput;
     procedure Generate(GeneratorClass: TGeneratorClass);
     procedure ExecutorOutput(Text: string);
@@ -58 +60 @@
     procedure UpdateInterface;
     procedure DockForm(Form: TForm; DockSite: TWinControl);
-  public
-
   end;
 
@@ -71 +71 @@
 
 uses
-  UParser, UExecutor, UGeneratorPascal, UGeneratorPhp, UFormMessages, UFormSource,
-  UGeneratorCSharp, UGeneratorXml, UFormOutput, UParserPascal;
+  Parser, Executor, GeneratorPascal, GeneratorPhp,
+  GeneratorCSharp, GeneratorXml, ParserPascal;
 
 { TFormMain }
@@ -93 +93 @@
 begin
   if Assigned(Prog) then FreeAndNil(Prog);
+  FreeAndNil(FormSource);
+  FreeAndNil(FormMessages);
 end;
 
 procedure TFormMain.FormShow(Sender: TObject);
 begin
+  FormMessages := TFormMessages.Create(nil);
+  FormMessages.Show;
   DockForm(FormMessages, PanelMessages);
+  FormSource := TFormSource.Create(nil);
+  FormSource.Show;
   DockForm(FormSource, PanelSource);
+  FormOutput := TFormOutput.Create(nil);
+  FormOutput.Show;
   DockForm(FormOutput, PanelOutput);
   UpdateInterface;
@@ -184 +192 @@
 end;
 
+procedure TFormMain.FormCreate(Sender: TObject);
+begin
+end;
+
 procedure TFormMain.Optimize(Features: TOptimizeFeatures);
 var