Componentes.Terceros.CCPack/internal/5/Sources/ccwizres.pas

{*******************************************************}
{                                                       }
{       Delphi Visual Component Library                 }
{       Custom Containers Pack (CCPack)                 }
{                                                       }
{       Copyright (c) 1997-99, Sergey Orlik             }
{                                                       }
{     Written by:                                       }
{       Sergey Orlik                                    }
{       product manager                                 }
{       Russia, C.I.S. and Baltic States (former USSR)  }
{       Inprise Moscow office                           }
{       e-mail:  sorlik@inprise.ru                      }
{       WWW: http://www.inprise.ru                      }
{                                                       }
{       Personal Home Page:                             }
{       www.geocities.com/SiliconValley/Way/9006/       }
{                                                       }
{*******************************************************}
{$I CCPDEF.INC}

{$IFDEF VER_CB}
  {$ObjExportAll On}
{$ENDIF}
unit ccwizres;

interface

resourcestring
  sCCSourceContainerReg =
    'unit %UnitIdent%;'+#13#10+
    #13#10+
    'interface'+#13#10+
    #13#10+
    'uses'+#13#10+
    '  Windows, Messages, SysUtils, Classes, Graphics, Controls,'+#13#10+
    '  Forms, Dialogs%AddUnit%;'+#13#10+
    #13#10+
    'type'+#13#10+
    '  %ClassName% = class(T%AncestorName%)'+#13#10+
    '  private'+#13#10+
    '    { Private declarations }'+#13#10+
    '  protected'+#13#10+
    '    { Protected declarations }'+#13#10+
    '  public'+#13#10+
    '    { Public declarations }'+#13#10+
    '  published'+#13#10+
    '    { Published declarations }'+#13#10+
    '  end;'+#13#10+
    #13#10+
    'procedure Register;'+#13#10+
    #13#10+
    'implementation'+#13#10+
    #13#10+
    'uses'+#13#10+
    '  CCReg;'+#13#10+
    #13#10+
    'procedure Register;'+#13#10+
    'begin'+#13#10+
    '  RegisterCustomContainer(%ClassName%);'+#13#10+
    'end;'+#13#10+
    #13#10+
    'end.'+#13#10;

  sCCSourceForm =
    'unit %UnitIdent%;'+#13#10+
    #13#10+
    'interface'+#13#10+
    #13#10+
    'uses'+#13#10+
    '  Windows, Messages, SysUtils, Classes, Graphics, Controls,'+#13#10+
    '  Forms, Dialogs%AddUnit%;'+#13#10+
    #13#10+
    'type'+#13#10+
    '  %ClassName% = class(T%AncestorName%)'+#13#10+
    '  private'+#13#10+
    '    { Private declarations }'+#13#10+
    '  protected'+#13#10+
    '    { Protected declarations }'+#13#10+
    '  public'+#13#10+
    '    { Public declarations }'+#13#10+
    '  published'+#13#10+
    '    { Published declarations }'+#13#10+
    '  end;'+#13#10+
    #13#10+
    'var'+#13#10+
    '  %FormName%: %ClassName%;'+#13#10+
    #13#10+
    'implementation'+#13#10+
    #13#10+
    '{$R *.DFM}'+#13#10+
    #13#10+
    'end.'+#13#10;

  sCCSourceContainer =
    'unit %UnitIdent%;'+#13#10+
    #13#10+
    'interface'+#13#10+
    #13#10+
    'uses'+#13#10+
    '  Windows, Messages, SysUtils, Classes, Graphics, Controls,'+#13#10+
    '  Forms, Dialogs%AddUnit%;'+#13#10+
    #13#10+
    'type'+#13#10+
    '  %ClassName% = class(T%AncestorName%)'+#13#10+
    '  private'+#13#10+
    '    { Private declarations }'+#13#10+
    '  protected'+#13#10+
    '    { Protected declarations }'+#13#10+
    '  public'+#13#10+
    '    { Public declarations }'+#13#10+
    '  published'+#13#10+
    '    { Published declarations }'+#13#10+
    '  end;'+#13#10+
    #13#10+
    'procedure Register;'+#13#10+
    #13#10+
    'implementation'+#13#10+
    #13#10+
    '{$R *.DFM}'+#13#10+
    #13#10+
    'procedure Register;'+#13#10+
    'begin'+#13#10+
    '  RegisterComponents(''Composites'', [%ClassName%]);'+#13#10+
    'end;'+#13#10+
    #13#10+
    'end.'+#13#10;

implementation

end.