Changeset 60 for branches/Transpascal/Forms/UMainForm.pas

Timestamp:

Oct 14, 2010, 1:50:39 PM (14 years ago)

Author:

george

Message:

• Fixed: Seaching global interunit types and functions.
• Core files transfered into separate package named TranspascalCompiler.

File:

• branches/Transpascal/Forms/UMainForm.pas (modified) (6 diffs)

branches/Transpascal/Forms/UMainForm.pas

@@ -9 +9 @@
   Dialogs, StdCtrls, USourceCode, UCompiler, UProducerAsm8051,
   UProducerC, ComCtrls, ExtCtrls, SynEdit, SynHighlighterPas, UProducerTreeView,
-  UProducerPascal, Contnrs, UProject;
+  UProducerPascal, Contnrs, UProject, FileUtil, Menus, ActnList;
 
 const
@@ -18 +18 @@
 
   TMainForm = class(TForm)
+    AProjectNew: TAction;
+    AProjectOpen: TAction;
+    AProjectSave: TAction;
+    AProjectSaveAs: TAction;
+    AProjectClose: TAction;
+    ActionList1: TActionList;
     ButtonCompile: TButton;
     ComboBox1: TComboBox;
     ListBoxMessages: TListBox;
+    MainMenu1: TMainMenu;
+    MenuItem1: TMenuItem;
+    MenuItem2: TMenuItem;
+    MenuItem3: TMenuItem;
+    MenuItem4: TMenuItem;
+    MenuItem5: TMenuItem;
+    MenuItem6: TMenuItem;
     Panel1: TPanel;
+    Panel2: TPanel;
+    Panel3: TPanel;
+    Splitter1: TSplitter;
+    Splitter2: TSplitter;
+    Splitter3: TSplitter;
     SynEditSource: TSynEdit;
     SynPasSyn1: TSynPasSyn;
@@ -32 +50 @@
     procedure FormDestroy(Sender: TObject);
     procedure ListBoxMessagesClick(Sender: TObject);
+    procedure Panel2Click(Sender: TObject);
+    procedure Splitter2CanResize(Sender: TObject; var NewSize: Integer;
+      var Accept: Boolean);
     procedure TreeViewProjectChange(Sender: TObject; Node: TTreeNode);
   private
@@ -76 +97 @@
     ProducerControl.Parent := Panel1;
     ProducerControl.Align := alClient;
-    TProducerTreeView(Compiler.Producer).TreeView := TTreeView(ProducerControl);
-  end;
-
-  // Compile all project files
+//    TProducerTreeView(Compiler.Producer).TreeView := TTreeView(ProducerControl);
+  end;
+
+  // Compile project file
   Compiler.Init;
   Compiler.Parser.OnGetSource := GetSource;
   with TProjectFile(Project.Items[0]) do begin
-    Compiler.Compile(Parent.GetDir + Name, Source, ProducedCode);
+    Compiler.Compile(Parent.GetDir + Name, Source);
   end;
 
@@ -127 +148 @@
 end;
 
+procedure TMainForm.Panel2Click(Sender: TObject);
+begin
+
+end;
+
+procedure TMainForm.Splitter2CanResize(Sender: TObject; var NewSize: Integer;
+  var Accept: Boolean);
+begin
+
+end;
+
 procedure TMainForm.LoadErrorMessages;
 var
@@ -139 +171 @@
 
 procedure TMainForm.TreeViewProjectChange(Sender: TObject; Node: TTreeNode);
+var
+  FileName: string;
 begin
   if Assigned(Node) then begin
     if TProjectNode(Node.Data) is TProjectFile then begin
       SynEditSource.Lines.Assign(TProjectFile(Node.Data).Source);
+      FileName := Compiler.CompiledFolder + DirectorySeparator +
+        Compiler.Producer.ClassName + DirectorySeparator + ExtractFileNameOnly(TProjectFile(Node.Data).Name) + Compiler.Producer.FileExtension;
       if ProducerControl is TMemo then
-        TMemo(ProducerControl).Lines.Assign(TProjectFile(Node.Data).ProducedCode);
+        if FileExists(FileName) then
+        TMemo(ProducerControl).Lines.LoadFromFile(FileName) else
+          TMemo(ProducerControl).Lines.Clear;
+      //if ProducerControl is TTreeView then
+      //  TTreeView(ProducerControl).Assign(TProjectFile(Node.Data).ProducedCode);
     end;
   end;