Changeset 17 for trunk/StudioModules/LDModuleBasic/ULDModuleBasic.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/ULDModuleBasic.pas (modified) (5 diffs)

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;