projectcreator.pas

delphi框架

unit ProjectCreator;
{**********************************************************************}
{ Copyright 2005 Reserved by Eazisoft.com                              }
 { File Name: ProjectCreator.pas                                       }
{ Author: Larry Le                                                     }
{ Description:                                                         }
{   This unit contains the Easy MVC petterns define                    }
{                                                                      }
{ History:                                                             }
{ - 1.0, 19 May 2006                                                   }
{   First version                                                      }
{                                                                      }
{ Email: [e-mail]                                           }
{                                                                      }
{ The contents of this file are subject to the Mozilla Public License  }
{ Version 1.1 (the "License"); you may not use this file except in     }
{ compliance with the License. You may obtain a copy of the License at }
{ http://www.mozilla.org/MPL/                                          }
{                                                                      }
{ Software distributed under the License is distributed on an "AS IS"  }
{ basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See  }
{ the License for the specific language governing rights and           }
{ limitations under the License.                                       }
{                                                                      }
{ The Original Code is written in Delphi.                              }
{                                                                      }
{ The Initial Developer of the Original Code is Larry Le.              }
{ Copyright (C) eazisoft.com. All Rights Reserved.                     }
{                                                                      }
{**********************************************************************}


interface

{$I Compilers.inc}

uses
  Windows, SysUtils,
  OTAUtilities,
  ProjectFileCreator,
  ToolsApi;

type
  TProjectCreator = class(TInterfacedObject, IOTACreator, IOTAProjectCreator
{$IFDEF COMPILER_8_UP}, IOTAProjectCreator80{$ENDIF COMPILER_8_UP})
  private
    FProjectName: string;
  public
    // IOTACreator
    function GetCreatorType: string;
    function GetExisting: Boolean;
    function GetFileSystem: string;
    function GetOwner: IOTAModule;
    function GetUnnamed: Boolean;
    // IOTAProjectCreator
    function GetFileName: string;
    function GetOptionFileName: string;
    function GetShowSource: Boolean;
    procedure NewDefaultModule;
    function NewOptionSource(const ProjectName: string): IOTAFile;
    procedure NewProjectResource(const Project: IOTAProject);
    function NewProjectSource(const ProjectName: string): IOTAFile;
{$IFDEF COMPILER_8_UP}
    // IOTAProjectCreator50
    procedure NewDefaultProjectModule(const Project: IOTAProject);
    // IOTAProjectCreator80
    function GetProjectPersonality: string;
    property ProjectPersonality: string read GetProjectPersonality;
{$ENDIF COMPILER_8_UP}
    procedure setFileName(AFilename: string);
  end;

implementation


{ TProjectCreator }

procedure TProjectCreator.setFileName(AFilename: string);
begin
  self.FProjectName := AFilename;
end;

function TProjectCreator.GetCreatorType: string;
begin
  Result := sApplication;
end;

function TProjectCreator.GetExisting: Boolean;
begin
  Result := False; // Create a new module
end;

function TProjectCreator.GetFileName: string;
begin
  Result := FProjectName; // Delphi Defined default File name
end;

function TProjectCreator.GetFileSystem: string;
begin
  Result := ''; // Default File System
end;

function TProjectCreator.GetOptionFileName: string;
begin
  Result := ''; // C++ Only ?
end;

function TProjectCreator.GetOwner: IOTAModule;
begin
  Result := GetCurrentProjectGroup; // Owned by current project group
end;

{$IFDEF COMPILER_8_UP}

function TProjectCreator.GetProjectPersonality: string;
begin
  Result := sDelphiPersonality;
end;

{$ENDIF COMPILER_8_UP}

function TProjectCreator.GetShowSource: Boolean;
begin
  Result := True; // Show the source in the editor
end;

function TProjectCreator.GetUnnamed: Boolean;
begin
  Result := true; // Project needs to be named/saved
end;

procedure TProjectCreator.NewDefaultModule;
begin
  // No default modules are created
end;

{$IFDEF COMPILER_8_UP}

procedure TProjectCreator.NewDefaultProjectModule(
  const Project: IOTAProject);
begin
end;

{$ENDIF COMPILER_8_UP}

function TProjectCreator.NewOptionSource(const ProjectName: string): IOTAFile;
begin
  Result := nil; // For BCB only
end;

procedure TProjectCreator.NewProjectResource(const Project: IOTAProject);
//var
//  resname: string;
begin
 // resname := self.GetFileName;
//  StringReplace(resname, '.dpr', '.res', [rfIgnoreCase]);
//  project.AddFile(resname, false);
end;

function TProjectCreator.NewProjectSource(const ProjectName: string): IOTAFile;
begin
  Result := TProjectFileCreator.Create(ProjectName);
end;

end.