132 lines
3.9 KiB
ObjectPascal
132 lines
3.9 KiB
ObjectPascal
|
{*******************************************************}
|
||
|
|
{ }
|
||
|
|
{ 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.
|