Changeset 11 for trunk/StudioPackage/Forms/UFormSourceCode.pas

Timestamp:

Aug 3, 2012, 3:06:51 PM (12 years ago)

Author:

chronos

Message:

• Modified: Project management as separated module.

File:

• trunk/StudioPackage/Forms/UFormSourceCode.pas (modified) (5 diffs)

trunk/StudioPackage/Forms/UFormSourceCode.pas

@@ -1 +1 @@
 unit UFormSourceCode;
 
-{$mode objfpc}{$H+}
+{$mode delphi}{$H+}
 
 interface
@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
-  SynEdit, SynHighlighterPas, UProject;
+  SynEdit, SynHighlighterPas;
 
 type
@@ -18 +18 @@
     procedure SynEditSourceChange(Sender: TObject);
   private
+    FFileName: string;
     FOnChange: TNotifyEvent;
-    FProjectFile: TProjectFile;
-    procedure SetProjectFile(const AValue: TProjectFile);
+    procedure SetFileName(AValue: string);
   public
-    property ProjectFile: TProjectFile read FProjectFile write SetProjectFile;
+    property FileName: string read FFileName write SetFileName;
     procedure Save;
     procedure UpdateInterface;
@@ -47 +47 @@
 end;
 
-procedure TFormSourceCode.SetProjectFile(const AValue: TProjectFile);
+procedure TFormSourceCode.SetFileName(AValue: string);
 begin
-  if FProjectFile = AValue then Exit;
-  FProjectFile := AValue;
-  if Assigned(AValue) then
-    SynEditSource.Lines.Assign(FProjectFile.Source)
+  if FFileName = AValue then Exit;
+  FFileName := AValue;
+  if FileExistsUTF8(FFileName) then
+    SynEditSource.Lines.LoadFromFile(FFileName)
     else SynEditSource.ClearAll;
 end;
@@ -58 +58 @@
 procedure TFormSourceCode.Save;
 begin
-  if Assigned(ProjectFile) then
-    ProjectFile.Source.Assign(SynEditSource.Lines);
+{  if Assigned(ProjectFile) then
+    ProjectFile.Source.Assign(SynEditSource.Lines);}
 end;
 
 procedure TFormSourceCode.UpdateInterface;
 begin
-  SynEditSource.Enabled := Assigned(DataModule1.Project);
-  if not Assigned(DataModule1.Project) then SynEditSource.ClearAll;
+//  SynEditSource.Enabled := Assigned(DataModule1.Project);
+//  if not Assigned(DataModule1.Project) then SynEditSource.ClearAll;
 end;