[Back to OOP SWAG index] [Back to Main SWAG index] [Original]

    {
    Tried to use the "Popup menu" in turbo vision ?
    Is it documented how to do it ?
    Well anyway if you do you'll find it doesn't release the memory used by its
    topics - don't know if this is a "known" bug ?

    Here is an inherited unit to use in addition to the menus unit:
    }

    unit pelmenus;
    interface
    uses menus;

    type
     PpelMenuPopup=^TpelMenuPopup;
     TpelMenuPopup=object(TMenuPopup)
         destructor done;virtual;
     end;
    implementation

    destructor TpelMenuPopup.Done;
    begin
      TMenuView.Done;
      DisposeMenu(Menu);
    end;
    end.

[Back to OOP SWAG index] [Back to Main SWAG index] [Original]