Changeset 55 for branches/DelphiToC/Forms/UMainForm.pas

Timestamp:

Aug 10, 2010, 1:48:38 PM (14 years ago)

Author:

george

Message:

Fix: View proper source file after click to error message.
Made partial changes to support unit interface and implementation sections.

File:

• branches/DelphiToC/Forms/UMainForm.pas (modified) (7 diffs)

branches/DelphiToC/Forms/UMainForm.pas

@@ -20 +20 @@
     ButtonCompile: TButton;
     ComboBox1: TComboBox;
-    ListBox1: TListBox;
+    ListBoxMessages: TListBox;
     Panel1: TPanel;
-    SynEdit1: TSynEdit;
+    SynEditSource: TSynEdit;
     SynPasSyn1: TSynPasSyn;
     TreeViewProject: TTreeView;
@@ -31 +31 @@
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
-    procedure ListBox1Click(Sender: TObject);
+    procedure ListBoxMessagesClick(Sender: TObject);
     procedure TreeViewProjectChange(Sender: TObject; Node: TTreeNode);
   private
@@ -79 +79 @@
 
   // Compile all project files
+  Compiler.Init;
   for I := 0 to Project.Items.Count - 1 do begin
-    if TProjectNode(Project.Items[I]) is TProjectFile then begin
-      Compiler.Compile(TProjectFile(Project.Items[I]).Source,
-        TProjectFile(Project.Items[I]).ProducedCode);
+    if TProjectNode(Project.Items[I]) is TProjectFile then
+    with TProjectFile(Project.Items[I]) do begin
+      Compiler.Compile(Parent.GetDir + Name, Source, ProducedCode);
     end;
   end;
@@ -113 +114 @@
 end;
 
-procedure TMainForm.ListBox1Click(Sender: TObject);
-begin
-  if ListBox1.ItemIndex <> - 1 then begin
-    SynEdit1.CaretXY := TErrorMessage(Compiler.ErrorMessages[ListBox1.ItemIndex]).Position;
-    SynEdit1.SetFocus;
+procedure TMainForm.ListBoxMessagesClick(Sender: TObject);
+var
+  ProjectFile: TProjectFile;
+begin
+  if ListBoxMessages.ItemIndex <> -1 then
+  with TErrorMessage(Compiler.ErrorMessages[ListBoxMessages.ItemIndex]) do begin
+    ProjectFile := Project.SearchFile(fileName);
+    if Assigned(ProjectFile) then
+      SynEditSource.Lines.Assign(ProjectFile.Source);
+    SynEditSource.CaretXY := Position;
+    SynEditSource.SetFocus;
   end;
 end;
@@ -125 +132 @@
   I: Integer;
 begin
-  ListBox1.Clear;
+  ListBoxMessages.Clear;
   for I := 0 to Compiler.ErrorMessages.Count - 1 do
   with TErrorMessage(Compiler.ErrorMessages[I]) do
-    MainForm.ListBox1.Items.Add('(' + IntToStr(Position.X) +
+    MainForm.ListBoxMessages.Items.Add(FileName + '(' + IntToStr(Position.X) +
       ',' + IntToStr(Position.Y) + ') ' + Text);
 end;
@@ -136 +143 @@
   if Assigned(Node) then begin
     if TProjectNode(Node.Data) is TProjectFile then begin
-      SynEdit1.Lines.Assign(TProjectFile(Node.Data).Source);
+      SynEditSource.Lines.Assign(TProjectFile(Node.Data).Source);
       if ProducerControl is TMemo then
         TMemo(ProducerControl).Lines.Assign(TProjectFile(Node.Data).ProducedCode);
@@ -193 +200 @@
   NewProjectFile: TProjectFile;
 begin
+  Project.RootDir := '../../Project/';
   Project.Name := 'Project';
+
   NewProjectFile := TProjectFile.Create;
+  NewProjectFile.Parent := Project;
   NewProjectFile.Name := 'Project.pas';
-  NewProjectFile.FileName := ProjectDir + 'Project.pas';
   Project.Items.Add(NewProjectFile);
+
   NewProjectFile := TProjectFile.Create;
+  NewProjectFile.Parent := Project;
   NewProjectFile.Name := 'System.pas';
-  NewProjectFile.FileName := ProjectDir + 'System.pas';
   Project.Items.Add(NewProjectFile);
+
+  NewProjectFile := TProjectFile.Create;
+  NewProjectFile.Parent := Project;
+  NewProjectFile.Name := 'Console.pas';
+  Project.Items.Add(NewProjectFile);
+
   Project.Load;
   UpdateProjectTree;