bcdrawmodule.hpp

Virtual CD Sample driver

// Borland C++ Builder
// Copyright (c) 1995, 1999 by Borland International
// All rights reserved

// (DO NOT EDIT: machine generated header) 'BcDrawModule.pas' rev: 5.00

#ifndef BcDrawModuleHPP
#define BcDrawModuleHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <Graphics.hpp>	// Pascal unit
#include <Menus.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Bcdrawmodule
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TBcBarMenusDrawModule;
class PASCALIMPLEMENTATION TBcBarMenusDrawModule : public Classes::TComponent 
{
	typedef Classes::TComponent inherited;
	
private:
	Menus::TMenu* FDrawingMenu;
	AnsiString FDescription;
	Menus::TMenu* __fastcall GetDrawingMenu(void);
	void __fastcall SetDrawingMenu(const Menus::TMenu* Value);
	AnsiString __fastcall GetDescription(void);
	void __fastcall SetDescription(const AnsiString Value);
	
protected:
	virtual void __fastcall DrawMenuItem(Menus::TMenuItem* AMenuItem, Graphics::TCanvas* ACanvas, const 
		Windows::TRect &ARect, Windows::TOwnerDrawState State, bool ABarVisible, bool &DefaultDraw) = 0 ;
	virtual void __fastcall MeasureMenuItem(Menus::TMenuItem* AMenuItem, Graphics::TCanvas* ACanvas, int 
		&Width, int &Height, bool ABarVisible, bool &DefaultMeasure) = 0 ;
	
public:
	__fastcall virtual TBcBarMenusDrawModule(Classes::TComponent* AOwner);
	__fastcall virtual ~TBcBarMenusDrawModule(void);
	virtual void __fastcall RedrawMenus(void);
	__property Menus::TMenu* DrawingMenu = {read=GetDrawingMenu, write=SetDrawingMenu};
	
__published:
	__property AnsiString Description = {read=GetDescription, write=SetDescription};
};


class DELPHICLASS TMainMenuAccess;
class PASCALIMPLEMENTATION TMainMenuAccess : public Menus::TMainMenu 
{
	typedef Menus::TMainMenu inherited;
	
public:
	#pragma option push -w-inl
	/* TMenu.Create */ inline __fastcall virtual TMainMenuAccess(Classes::TComponent* AOwner) : Menus::TMainMenu(
		AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TMenu.Destroy */ inline __fastcall virtual ~TMainMenuAccess(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------

}	/* namespace Bcdrawmodule */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Bcdrawmodule;
#endif
#pragma option pop	// -w-
#pragma option pop	// -Vx

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// BcDrawModule