Changeset 15 for trunk/StudioModules/LDModulePascal

Timestamp:

Aug 6, 2012, 2:35:22 PM (12 years ago)

Author:

chronos

Message:

• Added: Registration of new file templates for modules.
• Added: Program stores last opened file list in registry.

Location:

trunk/StudioModules/LDModulePascal

Files:

• LDModulePascal.lpk (modified) (2 diffs)
• ULDModulePascal.pas (modified) (4 diffs)

trunk/StudioModules/LDModulePascal/LDModulePascal.lpk

@@ -8 +8 @@
       <PathDelim Value="\"/>
       <SearchPaths>
-        <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)\"/>
+        <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
       </SearchPaths>
       <Other>
@@ -24 +24 @@
     </Files>
     <Type Value="RunAndDesignTime"/>
-    <RequiredPkgs Count="2">
+    <RequiredPkgs Count="3">
       <Item1>
-        <PackageName Value="LDStudioCommon"/>
+        <PackageName Value="LDModuleProject"/>
       </Item1>
       <Item2>
+        <PackageName Value="LDStudioCommon"/>
+      </Item2>
+      <Item3>
         <PackageName Value="FCL"/>
-      </Item2>
+      </Item3>
     </RequiredPkgs>
     <UsageOptions>

trunk/StudioModules/LDModulePascal/ULDModulePascal.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UModularSystem, USource;
+  Classes, SysUtils, UModularSystem, USource, UProject;
 
 type
+  { TProjectTemplateConsoleApp }
+
+  TProjectTemplateConsoleApp = class(TFileTemplate)
+    constructor Create; override;
+    function Execute: TSource; override;
+  end;
+
+  { TProjectTemplateGUIApp }
+
+  TProjectTemplateGUIApp = class(TFileTemplate)
+    constructor Create; override;
+    function Execute: TSource; override;
+  end;
+
+  { TProjectTemplatePackage }
+
+  TProjectTemplatePackage = class(TFileTemplate)
+    constructor Create; override;
+    function Execute: TSource; override;
+  end;
+
+  { TProjectTemplateUnit }
+
+  TProjectTemplateUnit = class(TFileTemplate)
+    constructor Create; override;
+    function Execute: TSource; override;
+  end;
 
   { TLDModulePascal }
@@ -15 +42 @@
   private
     PasFileType: TSourceType;
+    ProjectTemplateConsoleApp: TProjectTemplateConsoleApp;
+    ProjectTemplateGUIApp: TProjectTemplateGUIApp;
+    ProjectTemplateUnit: TProjectTemplateUnit;
   public
     constructor Create; override;
@@ -48 +78 @@
     PasFileType.Title := 'Pascal source';
     RegisterFileType(PasFileType);
+    ProjectTemplateConsoleApp := TProjectTemplateConsoleApp.Create;
+    RegisterFileTemplate(ProjectTemplateConsoleApp);
+    ProjectTemplateGUIApp := TProjectTemplateGUIApp.Create;
+    RegisterFileTemplate(ProjectTemplateGUIApp);
+    ProjectTemplateUnit := TProjectTemplateUnit.Create;
+    RegisterFileTemplate(ProjectTemplateUnit);
   end;
   inherited Install;
@@ -56 +92 @@
   inherited Uninstall;
   with TLDStudioAPI(API) do begin
+    RegisterFileTemplate(ProjectTemplateUnit);
+    FreeAndNil(ProjectTemplateUnit);
+    UnregisterFileTemplate(ProjectTemplateGUIApp);
+    FreeAndNil(ProjectTemplateGUIApp);
+    UnregisterFileTemplate(ProjectTemplateConsoleApp);
+    FreeAndNil(ProjectTemplateConsoleApp);
     UnregisterFileType(PasFileType);
-    PasFileType.Free;
-  end;
+    FreeAndNil(PasFileType);
+  end;
+end;
+
+resourcestring
+  SConsoleApplication = 'Console application';
+  SUnit = 'Unit';
+  SPackage = 'Package';
+  SGUIApplication = 'GUI application';
+
+{ TProjectTemplateUnit }
+
+constructor TProjectTemplateUnit.Create;
+begin
+  inherited Create;
+  Name := SUnit;
+  //FileTypeClass := TSourceText;
+end;
+
+function TProjectTemplateUnit.Execute: TSource;
+var
+  NewFile: TSource;
+begin
+  //inherited InitProject(Project);
+  Result := TSourceText.Create;
+  Result.Name := 'Unit1.pas';
+  with TSourceText(Result).Content do begin
+    Add('unit Unit1;');
+    Add('');
+    Add('interface');
+    Add('');
+    Add('implementation');
+    Add('');
+    Add('end.');
+  end;
+end;
+
+{ TProjectTemplatePackage }
+
+constructor TProjectTemplatePackage.Create;
+begin
+  inherited Create;
+  Name := SPackage;
+end;
+
+function TProjectTemplatePackage.Execute: TSource;
+var
+  NewFile: TSourceText;
+begin
+{  Result := TProject.Create;
+  Result.Name := 'Package1';
+  NewFile := TSourceText.Create;
+  NewFile.Name := 'Package1.bpl';
+  with NewFile.Content do begin
+    Add('package Package1;');
+    Add('');
+    Add('requires');
+    Add('  RTL;');
+    Add('');
+    Add('end.');
+  end;
+  TProject(Result).Files.Add();
+  TProject(Result).MainSource := NewFile;
+}end;
+
+{ TProjectTemplateGUIApp }
+
+constructor TProjectTemplateGUIApp.Create;
+begin
+  inherited Create;
+  Name := SGUIApplication;
+end;
+
+function TProjectTemplateGUIApp.Execute: TSource;
+var
+  NewFile: TProjectFile;
+begin
+{  inherited InitProject(Project);
+  NewFile := Project.Files.AddFile('Project1.dpr');
+  with NewFile.Source do begin
+    Add('program Project1;');
+    Add('');
+    Add('uses');
+    Add('  GUI;');
+    Add('');
+    Add('var');
+    Add('  Application: TApplication');
+    Add('begin');
+    Add('  Application := TApplication.Create;');
+    Add('  Application.Run;');
+    Add('  Application.Free;');
+    Add('end.');
+  end;
+  Project.MainSource := NewFile;
+}end;
+
+{ TProjectTemplateConsoleApp }
+
+constructor TProjectTemplateConsoleApp.Create;
+begin
+  inherited Create;
+  Name := SConsoleApplication;
+end;
+
+function TProjectTemplateConsoleApp.Execute: TSource;
+var
+  NewFile: TProjectFile;
+begin
+{  inherited InitProject(Project);
+  NewFile := Project.Files.AddFile('Project1.dpr');
+  with NewFile.Source do begin
+    Add('program Project1;');
+    Add('');
+    Add('begin');
+    Add('end.');
+  end;
+  Project.MainSource := NewFile;}
 end;