source: trunk/IDE/ProjectTemplates.pas

unit ProjectTemplates;

interface

uses
  Classes, SysUtils, Project;

type

  { TProjectTemplateConsoleApp }

  TProjectTemplateConsoleApp = class(TProjectTemplate)
    constructor Create; override;
    procedure InitProject(var Project: TProject); override;
  end;

  { TProjectTemplateGUIApp }

  TProjectTemplateGUIApp = class(TProjectTemplate)
    constructor Create; override;
    procedure InitProject(var Project: TProject); override;
  end;

  { TProjectTemplatePackage }

  TProjectTemplatePackage = class(TProjectTemplate)
    constructor Create; override;
    procedure InitProject(var Project: TProject); override;
  end;

  { TProjectTemplateUnit }

  TProjectTemplateUnit = class(TProjectTemplate)
    constructor Create; override;
    procedure InitProject(var Project: TProject); override;
  end;


implementation

resourcestring
  SConsoleApplication = 'Console application';
  SUnit = 'Unit';
  SPackage = 'Package';
  SGUIApplication = 'GUI application';

{ TProjectTemplateUnit }

constructor TProjectTemplateUnit.Create;
begin
  inherited Create;
  Name := SUnit;
  IsProject := False;
end;

procedure TProjectTemplateUnit.InitProject(var Project: TProject);
var
  NewFile: TProjectFile;
begin
  //inherited InitProject(Project);
  NewFile := Project.Files.AddFile('Unit1.pas');
  with NewFile.Source 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;
  IsProject := True;
end;

procedure TProjectTemplatePackage.InitProject(var Project: TProject);
var
  NewFile: TProjectFile;
begin
  inherited InitProject(Project);
  NewFile := Project.Files.AddFile('Package1.bpl');
  with NewFile.Source do begin
    Add('package Package1;');
    Add('');
    Add('requires');
    Add('  RTL;');
    Add('');
    Add('end.');
  end;
  Project.MainSource := NewFile;
end;

{ TProjectTemplateGUIApp }

constructor TProjectTemplateGUIApp.Create;
begin
  inherited Create;
  Name := SGUIApplication;
  IsProject := True;
end;

procedure TProjectTemplateGUIApp.InitProject(var Project: TProject);
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;
  IsProject := True;
end;

procedure TProjectTemplateConsoleApp.InitProject(var Project: TProject);
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;

end.