Changeset 67 for branches/Transpascal/Forms

Timestamp:

Oct 18, 2010, 12:39:37 PM (15 years ago)

Author:

george

Message:

• Fixed: Parsing of strings.
• Modified: Now supported C target "Dynamic C" dialect.

Location:

branches/Transpascal/Forms

Files:

• UMainForm.pas (modified) (1 diff)
• UMessagesForm.pas (modified) (1 diff)

branches/Transpascal/Forms/UMainForm.pas

@@ -108 +108 @@
   if Project.Items.Count > 0 then
   with TProjectFile(Project.Items[0]) do begin
-    Compiler.Compile(Parent.GetDir + Name, Source);
+    Compiler.Compile(Parent.GetDir + Name, Source, Project.RootDir);
   end;
 

branches/Transpascal/Forms/UMessagesForm.pas

@@ -43 +43 @@
   if ListBoxMessages.ItemIndex <> -1 then
   with TErrorMessage(Compiler.ErrorMessages[ListBoxMessages.ItemIndex]) do begin
-    ProjectFile := Project.SearchFile(fileName);
+    ProjectFile := Project.SearchFile(FileName);
     if Assigned(ProjectFile) then
       SynEditSource.Lines.Assign(ProjectFile.Source);
     SynEditSource.CaretXY := Position;
+    TForm(SynEditSource.Owner).Show;
     SynEditSource.SetFocus;
   end;