Category : Pascal Source Code
Archive   : SHAZAM2.ZIP
Filename : SK2.EVT

{|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||

This code changes both the MenuBar and StatusLine.

|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||}
procedure Dump ;
begin
Delete ( MenuBar ) ;
Dispose ( MenuBar , Done ) ;
Delete ( StatusLine ) ;
Dispose ( StatusLine , Done ) ;
end ;
{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
procedure hdInit ;
begin
Dump ;
{$IFDEF code}
MenuBar := InitMenuBar1 ;
StatusLine := InitStatusLine1 ;
{$ELSE}
MenuBarName := 'MENUBAR_1' ;
StatusLineName := 'STATUSLINE_1' ;
Application^.InitMenuBar ;
Application^.InitStatusLine ;
{$ENDIF}
Insert ( MenuBar ) ;
Insert ( StatusLine ) ;
end ;
{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
procedure hdNotepad ;
begin
Dump ;
{$IFDEF code}
MenuBar := InitMenuBar2 ;
StatusLine := InitStatusLine2 ;
{$ELSE}
MenuBarName := 'MENUBAR_2' ;
StatusLineName := 'STATUSLINE_2' ;
Application^.InitMenuBar ;
Application^.InitStatusLine ;
{$ENDIF}
Insert ( MenuBar ) ;
Insert ( StatusLine ) ;
end ;
{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
procedure hdTimePlanner ;
begin
Dump ;
{$IFDEF code}
MenuBar := InitMenuBar3 ;
StatusLine := InitStatusLine3 ;
{$ELSE}
MenuBarName := 'MENUBAR_3' ;
StatusLineName := 'STATUSLINE_3' ;
Application^.InitMenuBar ;
Application^.InitStatusLine ;
{$ENDIF}
Insert ( MenuBar ) ;
Insert ( StatusLine ) ;
end ;
{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
procedure hdAddressBook ;
begin
Dump ;
{$IFDEF code}
MenuBar := InitMenuBar4 ;
StatusLine := InitStatusLine4 ;
{$ELSE}
MenuBarName := 'MENUBAR_4' ;
StatusLineName := 'STATUSLINE_4' ;
Application^.InitMenuBar ;
Application^.InitStatusLine ;
{$ENDIF}
Insert ( MenuBar ) ;
Insert ( StatusLine ) ;
end ;
{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
procedure hdCommunications ;
begin
Dump ;
{$IFDEF code}
MenuBar := InitMenuBar5 ;
StatusLine := InitStatusLine4 ;
{$ELSE}
MenuBarName := 'MENUBAR_5' ;
StatusLineName := 'STATUSLINE_4' ;
Application^.InitMenuBar ;
Application^.InitStatusLine ;
{$ENDIF}
Insert ( MenuBar ) ;
Insert ( StatusLine ) ;
end ;
{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
procedure hdCalculator ;
begin
Dump ;
{$IFDEF code}
MenuBar := InitMenuBar6 ;
StatusLine := InitStatusLine5 ;
{$ELSE}
MenuBarName := 'MENUBAR_6' ;
StatusLineName := 'STATUSLINE_5' ;
Application^.InitMenuBar ;
Application^.InitStatusLine ;
{$ENDIF}
Insert ( MenuBar ) ;
Insert ( StatusLine ) ;
end ;