Changeset 24 for trunk/IDE/Forms/UCodeForm.pas

Timestamp:

Nov 10, 2010, 9:42:27 AM (14 years ago)

Author:

george

Message:

• Added: Parsing type parameters.
• Fixed: Saving edited files.

File:

• trunk/IDE/Forms/UCodeForm.pas (modified) (2 diffs)

trunk/IDE/Forms/UCodeForm.pas

@@ -19 +19 @@
     procedure SynEditSourceChange(Sender: TObject);
   private
-    { private declarations }
+    FProjectFile: TProjectFile;
+    procedure SetProjectFile(const AValue: TProjectFile);
   public
-    ProjectFile: TProjectFile;
+    property ProjectFile: TProjectFile read FProjectFile write SetProjectFile;
+    procedure Save;
   end; 
 
@@ -41 +43 @@
 end;
 
+procedure TCodeForm.SetProjectFile(const AValue: TProjectFile);
+begin
+  if FProjectFile = AValue then Exit;
+  FProjectFile := AValue;
+  if Assigned(AValue) then
+    SynEditSource.Lines.Assign(FProjectFile.Source)
+    else SynEditSource.ClearAll;
+end;
+
+procedure TCodeForm.Save;
+begin
+  if Assigned(ProjectFile) then
+    ProjectFile.Source.Assign(SynEditSource.Lines);
+end;
+
 end.