Changeset 15 for branches/Void/UMainForm.pas

Timestamp:

Nov 10, 2009, 9:11:50 AM (15 years ago)

Author:

george

Message:

• Přidáno: Kostra zobrazování strukturálního stromu.
• Upraveno: Zobrazení kódu pomocí SynEditu namísto Memo.

File:

• branches/Void/UMainForm.pas (modified) (8 diffs)

branches/Void/UMainForm.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
-  StdCtrls, UCompilator, UOutputGenerator;
+  StdCtrls, ComCtrls, SynHighlighterPas, SynEdit, SynHighlighterCpp,
+  UCompilator, UOutputGenerator, UModelViewer;
 
 const
@@ -22 +23 @@
     Label2: TLabel;
     Label3: TLabel;
-    Memo1: TMemo;
-    Memo2: TMemo;
+    Label4: TLabel;
     Memo3: TMemo;
+    SynCppSyn1: TSynCppSyn;
+    SynEdit1: TSynEdit;
+    SynEdit2: TSynEdit;
+    SynPasSyn1: TSynPasSyn;
+    TreeView1: TTreeView;
     procedure ButtonCompileClick(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
@@ -32 +37 @@
   private
     SourceCode: TMemoryStream;
+    ModelViewer: TModelViewer;
     procedure CompilatorError(Text: string; var Terminate: Boolean;
       Position: TPoint);
@@ -47 +53 @@
 procedure TMainForm.FormShow(Sender: TObject);
 begin
-  Memo1.Lines.LoadFromFile(SourceFileName);
+  SynEdit1.Lines.LoadFromFile(SourceFileName);
   ButtonCompileClick(Self);
 end;
@@ -53 +59 @@
 procedure TMainForm.FormClose(Sender: TObject; var CloseAction: TCloseAction);
 begin
-  Memo1.Lines.SaveToFile(SourceFileName);
+  SynEdit1.Lines.SaveToFile(SourceFileName);
 end;
 
@@ -60 +66 @@
   Compilator := TCompilator.Create;
   Compilator.OnError := CompilatorError;
+  ModelViewer := TModelViewer.Create;
 end;
 
@@ -65 +72 @@
 begin
   Compilator.Destroy;
+  ModelViewer.Destroy;
 end;
 
@@ -73 +81 @@
   with Compilator do begin
     Memo3.Lines.Clear;
-    Code := Memo1.Lines.Text;
+    Code := SynEdit1.Lines.Text;
     SourceCode.Size := 0;
     SourceCode.Write(Code[1], Length(Code));
     if Assigned(Generator) then Generator.Destroy;
-    if ComboBox1.ItemIndex = 0 then
-      Generator := TPascalGenerator.Create
-      else Generator := TCGenerator.Create;
+    if ComboBox1.ItemIndex = 0 then begin
+      Generator := TPascalGenerator.Create;
+      SynEdit2.Highlighter := SynPasSyn1;
+    end else begin
+      Generator := TCGenerator.Create;
+      SynEdit2.Highlighter := SynCppSyn1;
+    end;
     Compile;
-    Memo2.Lines.Assign(Generator.Output);
-    end;
+    SynEdit2.Lines.Assign(Generator.Output);
+    ModelViewer.Show(TreeView1);
+  end;
 end;