Changeset 224 for branches/interpreter2/Forms

Timestamp:

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

Author:

chronos

Message:

• Modified: Code cleanup.

Location:

branches/interpreter2/Forms

Files:

• FormMain.lfm (moved) (moved from branches/interpreter2/Forms/UFormMain.lfm ) (1 diff)
• FormMain.pas (moved) (moved from branches/interpreter2/Forms/UFormMain.pas ) (7 diffs)
• FormMessages.lfm (moved) (moved from branches/interpreter2/Forms/UFormMessages.lfm )
• FormMessages.pas (moved) (moved from branches/interpreter2/Forms/UFormMessages.pas ) (3 diffs)
• FormOutput.lfm (moved) (moved from branches/interpreter2/Forms/UFormOutput.lfm )
• FormOutput.pas (moved) (moved from branches/interpreter2/Forms/UFormOutput.pas ) (3 diffs)
• FormSource.lfm (moved) (moved from branches/interpreter2/Forms/UFormSource.lfm )
• FormSource.pas (moved) (moved from branches/interpreter2/Forms/UFormSource.pas ) (2 diffs)

branches/interpreter2/Forms/FormMain.lfm

@@ -11 +11 @@
   OnActivate = FormActivate
   OnClose = FormClose
+  OnCreate = FormCreate
   OnDestroy = FormDestroy
   OnShow = FormShow
-  LCLVersion = '2.0.10.0'
+  LCLVersion = '2.2.6.0'
   object PanelMessages: TPanel
     Left = 0

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

branches/interpreter2/Forms/FormMessages.pas

@@ -1 @@
-unit UFormMessages;
-
-{$mode delphi}
+unit FormMessages;
 
 interface
@@ -15 +13 @@
     Label1: TLabel;
     MemoLog: TMemo;
-  private
-
   public
     procedure Clear;
@@ -22 +18 @@
   end;
 
-var
-  FormMessages: TFormMessages;
 
 implementation

branches/interpreter2/Forms/FormOutput.pas

@@ -1 @@
-unit UFormOutput;
-
-{$mode delphi}
+unit FormOutput;
 
 interface
@@ -21 +19 @@
     SynPHPSyn1: TSynPHPSyn;
     SynXMLSyn1: TSynXMLSyn;
-  private
-
   public
     procedure Clear;
@@ -28 +24 @@
   end;
 
-var
-  FormOutput: TFormOutput;
 
 implementation

branches/interpreter2/Forms/FormSource.pas

@@ -1 @@
-unit UFormSource;
-
-{$mode delphi}
+unit FormSource;
 
 interface
@@ -17 +15 @@
     SynEditSource: TSynEdit;
     SynFreePascalSyn1: TSynFreePascalSyn;
-  private
-
-  public
-
   end;
-
-var
-  FormSource: TFormSource;
 
 implementation