【delphi开源代码栏目提醒】:网学会员,鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“DemoTemplates.pas”一文,供大家参考学习!
unit DemoTemplates;
interface
uses ProdTemplateReg;
procedure Register;
implementation
uses TemplateResItems, WProdReg;
var
TemplateResources: TTemplateResources;
type
TDemoTemplates = class(TProducerTemplatesList)
public
constructor Create;
end;
const sProducerTemplateNamespace = 'Borland.SiteXTemplateDemo';
procedure Register;
begin
RegisterProducerTemplates(sProducerTemplateNamespace, TDemoTemplates.Create);
end;
{ TDemoTemplates }
constructor TDemoTemplates.Create;
var
I: Integer;
TemplateFileType: string;
begin
inherited Create;
for I := 0 to TemplateResources.ItemCount - 1 do
begin
if TemplateResources.Items[I].ResType = RT_HTML then
TemplateFileType := sHTMLTemplateFileType
else
TemplateFileType := sXSLTemplateFileType;
Self.Add(TProducerTemplateScriptString.Create(
TemplateResources.Items[I].Name, TemplateResources.Items[I].Template,
[], [], [TemplateFileType], False {Default }));
end;
end;
initialization
TemplateResources := TTemplateResources.Create(HInstance);
finalization
UnRegisterProducerTemplates(sProducerTemplateNamespace);
TemplateResources.Free;
end.
上一篇:
DynamicMenuDoc.cpp
下一篇:
恋沫