Changeset 16 for trunk/StudioModules/LDModulePascal

Timestamp:

Aug 6, 2012, 3:16:26 PM (12 years ago)

Author:

chronos

Message:

• Modified: Definition of text source file moved to new package Basic.

File:

• trunk/StudioModules/LDModulePascal/ULDModulePascal.pas (modified) (5 diffs)

trunk/StudioModules/LDModulePascal/ULDModulePascal.pas

@@ -37 +37 @@
   end;
 
+  { TPascalSourceType }
+
+  TPascalSourceType = class(TSourceType)
+    constructor Create; override;
+  end;
+
   { TLDModulePascal }
 
   TLDModulePascal = class(TModule)
   private
-    PasFileType: TSourceType;
+    PasFileType: TPascalSourceType;
     ProjectTemplateConsoleApp: TProjectTemplateConsoleApp;
     ProjectTemplateGUIApp: TProjectTemplateGUIApp;
@@ -55 +61 @@
 
 uses
-  ULDStudioAPI;
+  ULDStudioAPI, ULDModuleBasic;
 
 resourcestring
   SPascal = 'Pascal';
+
+{ TPascalSourceType }
+
+constructor TPascalSourceType.Create;
+begin
+  inherited Create;
+  Extension := '.pas';
+  Title := 'Pascal source';
+end;
 
 { TLDModulePascal }
@@ -74 +89 @@
 begin
   with TLDStudioAPI(API) do begin
-    PasFileType := TSourceType.Create;
-    PasFileType.Extension := '.pas';
-    PasFileType.Title := 'Pascal source';
+    PasFileType := TPascalSourceType.Create;
     RegisterFileType(PasFileType);
     ProjectTemplateConsoleApp := TProjectTemplateConsoleApp.Create;
@@ -125 +138 @@
   Result := TSourceText.Create;
   Result.Name := 'Unit1.pas';
-  with TSourceText(Result).Content do begin
+  with TSourceText(Result), Content do begin
     Add('unit Unit1;');
     Add('');
@@ -133 +146 @@
     Add('');
     Add('end.');
+    Loaded := True;
   end;
 end;