Unit Menu

* TAdvMenu component version 0.60 * (c) 1997 Brutto Vanni * email asytnt@protec.it * advmenu page http://www.geocities.com/SiliconValley/Lab/6806/advmenu.htm * * Visit also my homepage, here you can find sample, components, and * a lot of Delphi Tips & Tricks * ---> Homepage http://www.geocities.com/SiliconValley/Lab/6806 * * * * * All code made by myself * * Freeware - compiled under Delphi 3.X * * Note that comments are in Italian, my language, if you want * any kind of suggestion please e-mail me! * * I suggest you to check new versions to my homepage * *************************************************************************** * 1. Want to contribute with the development of TAdvMenu? * I'm looking for a way to make an ActiveX (ocx) from this vcl * so also Visual Basic users can enjoy using my components ;-)))))) * If you have ANY KIND of information about writing non visual * ActiveX with Delphi with editors at design time send me an * e-mail today. * * 2. I need also a way to check if Items property of TMainMenu change. * If you know a way to do it (or you have some ideas) e-mail me. *************************************************************************** * * * Dear user! * If you like AdvMenu, send me a T-shirt (size XL), a couple of dollars, a * postcard or whatever you think it's worth to: * * Brutto Vanni * Via Vasche, 36 * 35030 Vo' (PADOVA) * ITALY * * I collect all sorts of T-shirts (company labels, school labels, * football teams, WWW surfing shirts and you name it). * * Any donation worth $20 or more is entitled to a free update as * soon as it's ready (include source code). * Be sure to include your email mail address. * * Thanks for using AdvMenu, and see you in cyberspace... * * * If you're a web serfer i suggest to visit my homepage, and remember * to send my by email any tip that you think usefull for AdvMenu. * * * Bugs know : * * 1- When a menu si moved in standard items editor * TAdvancedMenu don't work properly. * bug solved in 0.30 ;-) * * ************************************************************************ ************************************************************************ ** HISTORY OF TADVMENU ** ** VISUAL BASIC VERSIONS :-((((( ** 1.0 The first and the only one! :-)))) ** (it was an ocx made with VB5, it wasn't Visual, a every icons ** had to assigned to the menu) ** ** ** ** DELPHI 2.0 VERSIONS ** 0.00001 No Visual Component, No Bitmaps, No, No and No! -14/10/1997- ** ** ** DELPHI 3.0 VERSIONS ** 0.10 Visual Component with RAD Editor. This version used icons ** instead of bitmaps (i didn't know how to draw transparently ** a bitmap in an hDC). ** 0.11 Added check/uncheck options ** 0.20 First DSP uploaded version, now AdvMenu use Bitmaps with ** width and height of 14 pixel (0.2X are not ** compatible with 0.1X) ** 0.21 Added Enabled property (don't work fine however) ** 0.22 Fixed Enabled property, now also bitmaps are grayed ** 0.30 Now AdvMenu save in dfm a TMenuItem object instead of menu ** position. You can so move a menuline with the standard Delphi ** editor without re-associate the choosed bitmap -02/06/1998- ** 0.31 Fixed default (bold menu) bug. Correct a problem with ** incorrect deallocation of some pointer. ** Added refresh button in design editor -06/06/1998- ** 0.40 AdvMenu can load in TMenuLine any bound ** bitmaps (16x16, 24x24, 32x32, ecc) -07/06/1998- ** 0.50 Fixed the Visual Effect bugs. ** Now turning true Visual Effects property AdvMenu will ** become more "cool". ** Another effects added: when you select a main menu it ** will be drawed "sunken" (more Visual and Office :-))) -08/06/1998- ** Note that these options there were also in 0.10 but ** only now they are debugged!!! ** 0.60 Bitmaps editor enhanced! Now you can select if you want to ** see visual effect on a menuline!!!!! Rewrite the routine ** introduced in 0.31 to draw bold menu. ** ** ** 1.00 What do you think to contribute me with some money? :-) ** The development of AdvMenu spend me a lot of time... ** *

Classes

TfrmMenu -

Functions

Types

Constants

sVersion

Variables

frmMenu


Functions


Types


Constants

sVersion = '0.60'


Variables

frmMenu : TfrmMenu

Public declarations