framecreator.pas

delphi框架

unit FrameCreator;
{**********************************************************************}
{ Copyright 2005 Reserved by Eazisoft.com                              }
{ File Name: FileCreator.pas                                           }  
{ Author: Larry Le                                                     }
{ Description:                                                         }
{ Implement IOTAModuleCreator for the TProjectCreatorWizard to create  }
{ a Frame                                                              }
{                                                                      }
{ 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

uses
  Windows, SysUtils,
  ViewCreator,
  ToolsApi,
  BaseCreator;

type
  //
  // Implements the necessary interfaces for a Delphi Frame.  The IDE typically
  //
  TFrameCreator = class(TBaseCreator)
  public
    function GetAncestorName: string; override;
    function GetCreatorType: string; override;
  end;

implementation

{ TFrameCreator }

function TFrameCreator.GetAncestorName: string;
begin
  Result := 'Frame';
end;

function TFrameCreator.GetCreatorType: string;
begin
  Result := sForm;
end;

end.