Changeset 62 for trunk/IDE/Forms/UFormProject.pas

Timestamp:

Jul 17, 2012, 10:14:41 AM (12 years ago)

Author:

chronos

Message:

• Modified: Show tab sheets of source code forms on file click in project manager.
• Fixed: Compilation error message line calculation on Windows.

File:

• trunk/IDE/Forms/UFormProject.pas (modified) (1 diff)

trunk/IDE/Forms/UFormProject.pas

@@ -125 +125 @@
 procedure TFormProject.AShowExecute(Sender: TObject);
 begin
-  if Assigned(TreeViewProject.Selected) then
-  FormSourceCode.SynEditSource.Lines.Assign(TProjectFile(TreeViewProject.Selected.Data).Source);
+  if Assigned(TreeViewProject.Selected) then begin
+    FormMain.TabSheetSource.Show;
+    FormSourceCode.ProjectFile := TProjectFile(TreeViewProject.Selected.Data);
+  end;
 end;