unit index ;
interface
USES 
PSP_WCMENU;
type
{Events: _PSPMain}


{Component Definition: _PSPMain}
_PSPMain = class(TPSPObject)
private
  fMenu : TPSPMENU;
public
 constructor create(Aowner:TComponent);override;
 destructor destroy;override;
 procedure Execute;

published
 property Menu : TPSPMENU read fMenu write fMenu;
end;


implementation
{Component Implementation: _PSPMain}
 constructor _PSPMain.create(Aowner:TComponent);
begin
inherited create(aowner);

{CREATE WEBCOMPONENT: Menu}fMenu := TPSPMENU.create(nil);
fMenu.SetOutputStream (Self.OutputStream) ;
fMenu.SetServer (Self.Server) ;
fMenu.Start ;
end;
 destructor _PSPMain.destroy;
begin
fMenu.Pause;
fMenu.Stop;
fMenu.free;
end;
 procedure _PSPMain.Execute;
begin
 Outputstream.write('<HTML>');
 Outputstream.write('<BODY>');
fMenu.execute;
 Outputstream.write('</BODY>');
 Outputstream.write('</HTML>');
end;


end.
