Changeset 17

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.

Location:

trunk

Files:

• Packages/Common.zip (added)
• Packages/CoolTranslator.zip (added)
• Packages/ModularSystem.zip (added)
• Packages/TemplateGenerics.zip (added)
• StudioModules/LDModuleBasic/UFormSourceCode.pas (modified) (3 diffs)
• StudioModules/LDModuleBasic/ULDModuleBasic.pas (modified) (5 diffs)
• StudioModules/LDModuleProject/ULDModuleProject.pas (modified) (1 diff)

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;

trunk/StudioModules/LDModuleBasic/ULDModuleBasic.pas

@@ -20 +20 @@
   end;
 
-  { TTextFileType }
+  { TSourceTypeText }
 
-  TTextFileType = class(TSourceType)
+  TSourceTypeText = class(TSourceType)
     constructor Create; override;
   end;
 
-  { TTextTemplate }
+  { TTemplateText }
 
-  TTextTemplate = class(TFileTemplate)
+  TTemplateText = class(TFileTemplate)
     constructor Create; override;
     function Execute: TSource; override;
@@ -44 +44 @@
   TLDModuleBasic = class(TModule)
     TextFileType: TSourceType;
-    TextFileTemplate: TTextTemplate;
+    TextFileTemplate: TTemplateText;
     constructor Create; override;
     procedure Install; override;
@@ -64 +64 @@
 
 
-{ TTextTemplate }
+{ TTemplateText }
 
-constructor TTextTemplate.Create;
+constructor TTemplateText.Create;
 begin
   inherited Create;
@@ -72 +72 @@
 end;
 
-function TTextTemplate.Execute: TSource;
+function TTemplateText.Execute: TSource;
 begin
   Result := TSourceText.Create;
   Result.Name := STextFile;
+  Result.FileType := TSourceTypeText.Create;
 end;
 
-{ TTextFileType }
+{ TSourceTypeText }
 
-constructor TTextFileType.Create;
+constructor TSourceTypeText.Create;
 begin
   inherited Create;
   Extension := '.txt';
   Title := STextFile;
-//  Form := TSour;
+  Form := TFormSourceCode;
+  SourceClass := TSourceText;
 end;
 
@@ -119 +121 @@
     FormSourceCode := TFormSourceCode.Create(nil);
     RegisterForm(FormSourceCode);
-    TextFileType := TTextFileType.Create;
+    TextFileType := TSourceTypeText.Create;
     RegisterFileType(TextFileType);
-    TextFileTemplate := TTextTemplate.Create;
+    TextFileTemplate := TTemplateText.Create;
     RegisterFileTemplate(TextFileTemplate);
   end;

trunk/StudioModules/LDModuleProject/ULDModuleProject.pas

@@ -200 +200 @@
   with TLDStudioAPI(API) do begin
     UnregisterFileType(ProjectFileType);
+    FreeAndNil(ProjectFileType);
     DataModuleProject.SaveToRegistry(RegContext(GetRegistryContext.RootKey,
       GetRegistryContext.Key + '\Project'));