Unit MenuEx97Utils

Example how to create the new 97īmenus ->MenuEx97Utils.pas ->Utility functions Author : Marcel Ohlmeier e-mail : ohlmeier@swhamm.de This example is freeware feel free to use this in your programs but credit me :-)

Classes

Functions

DrawDisabledBitmap - DrawDisabledImage from Fabrice Deville fdev@tornado.
DrawDisabledText - DrawDisabledText from Fabrice Deville fdev@tornado.
DrawTransparentBitmap - DrawTransparentBitmap from Fabrice Deville fdev@tornado.
IsMenuItemChecked - function to check if a menuItem is checked
IsMenuItemDisabled - function to check if a menuitem is disabled
SetMenuItemCheckedState - procedure to display a checked or unchecked menuitem
SetMenuItemDisabledState - /procedure to display a disabled menuitem

Types

Constants

Variables


Functions


procedure DrawDisabledBitmap(Canvas: TCanvas; x, y: Integer; bmp: TBitmap);

DrawDisabledImage from Fabrice Deville fdev@tornado.be - TExplorerButton

procedure DrawDisabledText(theCanvas: TCanvas; TempRect: TRect; TempCaption: PChar);

DrawDisabledText from Fabrice Deville fdev@tornado.be - TExplorerButton

procedure DrawTransparentBitmap(canvas: TCanvas; bmp: TBitmap; xStart,yStart: Integer; cTransparentColor: LongInt);

DrawTransparentBitmap from Fabrice Deville fdev@tornado.be - TExplorerButton

function IsMenuItemChecked(Menu : Integer; Item : Integer) : Boolean;

function to check if a menuItem is checked

function IsMenuItemDisabled(Menu : Integer; Item : Integer) : Boolean;

function to check if a menuitem is disabled

procedure SetMenuItemCheckedState(Menu : TMainMenu; Item : Integer; YesNo : Boolean);

procedure to display a checked or unchecked menuitem

procedure SetMenuItemDisabledState(Menu : TMainMenu; Item : Integer;YesNo : Boolean);

/procedure to display a disabled menuitem

Types


Constants


Variables