Changeset 17 for trunk/StudioModules/LDModuleBasic/UFormSourceCode.pas

Timestamp:

Aug 7, 2012, 2:57:19 PM (12 years ago)

Author:

chronos

Message:

• Modified: Minor opened files and source management enhancement.
• Added: Included used packages sources.

File:

• trunk/StudioModules/LDModuleBasic/UFormSourceCode.pas (modified) (3 diffs)

trunk/StudioModules/LDModuleBasic/UFormSourceCode.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
-  SynEdit, SynHighlighterPas;
+  SynEdit, SynHighlighterPas, USource, ULDModuleBasic;
 
 type
@@ -18 +18 @@
     procedure SynEditSourceChange(Sender: TObject);
   private
-    FFileName: string;
+    FSource: TSource;
     FOnChange: TNotifyEvent;
-    procedure SetFileName(AValue: string);
+    procedure SetSource(AValue: TSource);
   public
-    property FileName: string read FFileName write SetFileName;
+    property Source: TSource read FSource write SetSource;
     procedure Save;
     procedure UpdateInterface;
@@ -45 +45 @@
 end;
 
-procedure TFormSourceCode.SetFileName(AValue: string);
+procedure TFormSourceCode.SetSource(AValue: TSource);
 begin
-  if FFileName = AValue then Exit;
-  FFileName := AValue;
-  if FileExistsUTF8(FFileName) then
-    SynEditSource.Lines.LoadFromFile(FFileName)
+  if FSource = AValue then Exit;
+  FSource := AValue;
+  if Assigned(Source) and (Source is TSourceText) then
+    SynEditSource.Lines.Text := TSourceText(Source).Content.Text
     else SynEditSource.ClearAll;
 end;