Changeset 23 for trunk/IDE/Forms

Timestamp:

Nov 10, 2010, 7:26:52 AM (14 years ago)

Author:

george

Message:

• Fixed: Saving project file.

Location:

trunk/IDE/Forms

Files:

• UCodeForm.lfm (modified) (1 diff)
• UProjectManager.pas (modified) (1 diff)

trunk/IDE/Forms/UCodeForm.lfm

@@ -1 +1 @@
 object CodeForm: TCodeForm
-  Left = 359
+  Left = 352
   Height = 426
-  Top = 127
+  Top = 95
   Width = 535
   Caption = 'Source code'

trunk/IDE/Forms/UProjectManager.pas

@@ -38 +38 @@
   if Assigned(Node) then begin
     if TProjectNode(Node.Data) is TProjectFile then begin
+      ProjectFile := TProjectFile(Node.Data);
       SynEditSource.Lines.Assign(TProjectFile(Node.Data).Source);
 (*        if FileExists(TProjectFile(Node.Data).ProducedFileName) then