Version 1.0. Last modifed 05/03/96.

The ADVMENUS.PAS unit contains three Delphi components:

TSystemMenuItem            Item of Windows system menu
TSystemMenu                Windows system menu
TLinkPopUpMenu             PopUp menu with link to main menu

------------------------------------------------------------------------
TSystemMenuItem and TSystemMenu works very like corresponding Delphi VCL
components (TMenuItem, TMenu). But exists some differences, there are:

1. There is not exists menu designer for these components, so you must
   work with they only in run-time.
2. DO NOT use OnCreate event of form for work with these components.
3. Do not forget sets WindowHandle in TSystemMenu to Handle of it's owner form
   BEFORE you're start added items to menu.
4. If AutoHandled property in TSystemMenu is True then events for your system
   menu items handled automaticly, if False then yom must do in
   Application.OnMessage handler next:

   procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
   begin
     SystemMenu1.HandleEvents(Msg, nil);
   end;

   second variable in HandleEvents specifed from which item events (OnClick)
   handled, if nil - then for all items of menu.
5. If you use in one time few TSystemMenu components in different forms,
   AutoHandled properties for each must be set to false and see topic 4 above.
6. IsSubMenu property for TSystemMenuItem specifed is there exists SubMenu for
   this Item.
7. In this version ShortCuts is not available.
------------------------------------------------------------------------------

TLinkPopUpMenu

1. DO NOT FORGET: property MenuItem must be sets to one of TMainMenu items.
2. If Active property is True then when LinkPopUp menu activated all it Items
   sends to TMenuItem specifed in MenuItem property, if False all inserted
   Items will be deleted from destination Menu.

WARRANTY: No warranty, representation, promise, or guarantee.


Freeware, enjoy them!
------------------------------------------------------
Copyright (c) by Artem A. Berman (art@aber.kherson.ua)
