Changeset 59 for branches/Transpascal/Forms

Timestamp:

Oct 14, 2010, 8:41:34 AM (15 years ago)

Author:

george

Message:

• Added: On parsing uses section load and parse unit files.

Location:

branches/Transpascal/Forms

Files:

• UMainForm.lfm (modified) (4 diffs)
• UMainForm.pas (modified) (3 diffs)

branches/Transpascal/Forms/UMainForm.lfm

@@ -65 +65 @@
         Priority = 0
       end>
+    RightGutter.Width = 0
+    RightGutter.MouseActions = <    
+      item
+        Shift = []
+        ShiftMask = []
+        Button = mbLeft
+        ClickCount = ccAny
+        ClickDir = cdDown
+        Command = 13
+        MoveCaret = False
+        Option = 0
+        Priority = 0
+      end    
+      item
+        Shift = []
+        ShiftMask = []
+        Button = mbRight
+        ClickCount = ccSingle
+        ClickDir = cdUp
+        Command = 12
+        MoveCaret = False
+        Option = 0
+        Priority = 0
+      end>
     Highlighter = SynPasSyn1
     Keystrokes = <    
@@ -616 +640 @@
     inline SynGutterPartList1: TSynGutterPartList
       object SynGutterMarks1: TSynGutterMarks
-        Width = 23
+        Width = 24
       end
       object SynGutterLineNumber1: TSynGutterLineNumber
@@ -721 +745 @@
       end
     end
+    inline SynRightGutterPartList1: TSynRightGutterPartList
+    end
   end
   object ComboBox1: TComboBox
@@ -773 +799 @@
   end
   object SynPasSyn1: TSynPasSyn
+    Enabled = False
     CompilerMode = pcmDelphi
     NestedComments = False

branches/Transpascal/Forms/UMainForm.pas

@@ -37 +37 @@
     procedure UpdateProjectTree;
     procedure UpdateProjectGroup(Node: TTreeNode; Group: TProjectGroup);
+    function GetSource(Name: string; Source: TStringList): Boolean;
   public
     Project: TProject;
@@ -80 +81 @@
   // Compile all project files
   Compiler.Init;
-  for I := 0 to Project.Items.Count - 1 do begin
-    if TProjectNode(Project.Items[I]) is TProjectFile then
-    with TProjectFile(Project.Items[I]) do begin
-      Compiler.Compile(Parent.GetDir + Name, Source, ProducedCode);
-    end;
+  Compiler.Parser.OnGetSource := GetSource;
+  with TProjectFile(Project.Items[0]) do begin
+    Compiler.Compile(Parent.GetDir + Name, Source, ProducedCode);
   end;
 
@@ -179 +178 @@
 end;
 
+function TMainForm.GetSource(Name: string; Source: TStringList): Boolean;
+var
+  FileName: string;
+begin
+  FileName := Project.GetDir(True) + Name + '.pas';
+  if FileExists(FileName) then begin
+    Source.LoadFromFile(FileName);
+    Result := True;
+  end else Result := False;
+end;
+
 procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
 begin