barmenus.hpp

Virtual CD Sample driver

class PASCALIMPLEMENTATION TBcBarCaption : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Menus::TMenu* FOwner;
	AnsiString FCaption;
	Graphics::TFont* FFont;
	int FOffsetY;
	TVertAlignment FVertAlignment;
	TDirection FDirection;
	bool FAutoSize;
	Graphics::TColor FShadowColor;
	Graphics::TColor FHighlightColor;
	int FDepth;
	bool FVisible;
	
protected:
	void __fastcall SetFont(Graphics::TFont* Value);
	__property bool AutoSize = {read=FAutoSize, write=FAutoSize, default=0};
	
public:
	__fastcall TBcBarCaption(Menus::TMenu* AOwner);
	__fastcall virtual ~TBcBarCaption(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	__property Menus::TMenu* Owner = {read=FOwner};
	
__published:
	__property Graphics::TFont* Font = {read=FFont, write=SetFont};
	__property Graphics::TColor ShadowColor = {read=FShadowColor, write=FShadowColor, default=536870911
		};
	__property Graphics::TColor HighlightColor = {read=FHighlightColor, write=FHighlightColor, default=536870911
		};
	__property int Depth = {read=FDepth, write=FDepth, default=1};
	__property AnsiString Caption = {read=FCaption, write=FCaption};
	__property int OffsetY = {read=FOffsetY, write=FOffsetY, default=6};
	__property TVertAlignment Alignment = {read=FVertAlignment, write=FVertAlignment, default=1};
	__property TDirection Direction = {read=FDirection, write=FDirection, default=0};
	__property bool Visible = {read=FVisible, write=FVisible, default=1};
};


class PASCALIMPLEMENTATION TBcBar : public TBcGradientBar 
{
	typedef TBcGradientBar inherited;
	
private:
	int FWidth;
	bool FVisible;
	TBcBarBackPicture* FBarBackPicture;
	TBcBarPicture* FBarPicture;
	TBcBarCaption* FBarCaption;
	int FSpace;
	TSide FSide;
	TBcBarPicture* __fastcall GetBarPicture(void);
	TBcBarBackPicture* __fastcall GetBarBackPicture(void);
	TBcBarCaption* __fastcall GetBarCaption(void);
	void __fastcall SetBarPicture(const TBcBarPicture* Value);
	void __fastcall SetBarBackPicture(const TBcBarBackPicture* Value);
	void __fastcall SetBarCaption(const TBcBarCaption* Value);
	void __fastcall SetVisible(bool Value);
	bool __fastcall GetVisible(void);
	
public:
	__fastcall virtual TBcBar(Menus::TMenu* AOwner);
	__fastcall virtual ~TBcBar(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property Border ;
	__property GradientStart ;
	__property GradientEnd ;
	__property GradientStyle ;
	__property int Width = {read=FWidth, write=FWidth, default=32};
	__property int Space = {read=FSpace, write=FSpace, default=1};
	__property bool Visible = {read=GetVisible, write=SetVisible, default=1};
	__property TSide Side = {read=FSide, write=FSide, default=0};
	__property TBcBarPicture* BarPicture = {read=GetBarPicture, write=SetBarPicture};
	__property TBcBarBackPicture* BarBackPicture = {read=GetBarBackPicture, write=SetBarBackPicture};
	__property TBcBarCaption* BarCaption = {read=GetBarCaption, write=SetBarCaption};
};


class PASCALIMPLEMENTATION TBcSeparators : public TBcGradientBar 
{
	typedef TBcGradientBar inherited;
	
private:
	Menus::TMenu* FOwner;
	Graphics::TFont* FFont;
	bool FUseSystemFont;
	Classes::TAlignment FAlignment;
	TSeparatorStyle FSeparatorStyle;
	bool FFade;
	int FFadeWidth;
	Graphics::TColor FFadeColor;
	bool FFlatLines;
	
protected:
	void __fastcall SetFont(Graphics::TFont* Value);
	
public:
	__fastcall virtual TBcSeparators(Menus::TMenu* AOwner);
	__fastcall virtual ~TBcSeparators(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	__property Menus::TMenu* Owner = {read=FOwner};
	
__published:
	__property GradientStart ;
	__property GradientEnd ;
	__property GradientStyle ;
	__property bool Fade = {read=FFade, write=FFade, default=0};
	__property int FadeWidth = {read=FFadeWidth, write=FFadeWidth, default=32};
	__property Graphics::TColor FadeColor = {read=FFadeColor, write=FFadeColor, default=-2147483632};
	__property bool FlatLines = {read=FFlatLines, write=FFlatLines, default=0};
	__property Graphics::TFont* Font = {read=FFont, write=SetFont};
	__property Classes::TAlignment Alignment = {read=FAlignment, write=FAlignment, default=2};
	__property TSeparatorStyle SeparatorStyle = {read=FSeparatorStyle, write=FSeparatorStyle, default=0
		};
	__property bool UseSystemFont = {read=FUseSystemFont, write=FUseSystemFont, default=1};
};


class DELPHICLASS TBcCustomBarMainMenu;
class PASCALIMPLEMENTATION TBcCustomBarMainMenu : public Menus::TMainMenu 
{
	typedef Menus::TMainMenu inherited;
	
private:
	TBcBarProtected* FBarProtected;
	TBcBar* FBar;
	TBcSeparators* FSeparators;
	TOnBeforeDrawBarEvent FOnBeforeDrawBar;
	TOnAdvancedBeforeDrawBarEvent FOnAdvancedBeforeDrawBar;
	TOnAfterDrawBarEvent FOnAfterDrawBar;
	TOnMeasureMenuItemEvent FOnMeasureMenuItem;
	Graphics::TFont* FMenuFont;
	TBcMenuStyle FMenuStyle;
	bool FUseSystemFont;
	Bcdrawmodule::TBcBarMenusDrawModule* FDrawModule;
	bool FFlat;
	TOpacity FOpacity;
	bool FMenuUpdating;
	int FUpdateRef;
	TBcBar* __fastcall GetBar(void);
	TBcSeparators* __fastcall GetSeparators(void);
	TBcBarProtected* __fastcall GetBarProtected(void);
	void __fastcall SetBar(const TBcBar* Value);
	void __fastcall SetSeparators(const TBcSeparators* Value);
	TOnBeforeDrawBarEvent __fastcall GetOnBeforeDrawBar(void);
	void __fastcall SetOnBeforeDrawBar(const TOnBeforeDrawBarEvent Value);
	TOnAfterDrawBarEvent __fastcall GetOnAfterDrawBar(void);
	void __fastcall SetOnAfterDrawBar(const TOnAfterDrawBarEvent Value);
	TOpacity __fastcall GetOpacity(void);
	void __fastcall SetOpacity(const TOpacity Value);
	bool __fastcall GetFlat(void);
	void __fastcall SetFlat(const bool Value);
	Graphics::TFont* __fastcall GetMenuFont(void);
	void __fastcall SetMenuFont(const Graphics::TFont* Value);
	bool __fastcall GetUseSystemFont(void);
	void __fastcall SetUseSystemFont(const bool Value);
	TOnAdvancedBeforeDrawBarEvent __fastcall GetOnAdvancedBeforeDrawBar(void);
	void __fastcall SetOnAdvancedBeforeDrawBar(const TOnAdvancedBeforeDrawBarEvent Value);
	Bcdrawmodule::TBcBarMenusDrawModule* __fastcall GetDrawModule(void);
	void __fastcall SetDrawModule(const Bcdrawmodule::TBcBarMenusDrawModule* Value);
	TOnMeasureMenuItemEvent __fastcall GetOnMeasureMenuItem(void);
	void __fastcall SetOnMeasureMenuItem(const TOnMeasureMenuItemEvent Value);
	TBcMenuStyle __fastcall GetMenuStyle(void);
	void __fastcall SetMenuStyle(const TBcMenuStyle Value);
	
protected:
	HIDESBASE int __stdcall _AddRef(void);
	HIDESBASE int __stdcall _Release(void);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
		);
	void __fastcall SetMenuWindowHandle(unsigned Handle);
	Menus::TMenu* __fastcall GetSelf(void);
	TBcMenuStyle __fastcall UseMenuStyle(void);
	virtual void __fastcall RefreshMenu(const bool BarChanged, const bool WidthChanged);
	virtual void __fastcall MenuChanged(System::TObject* Sender, Menus::TMenuItem* Source, bool Rebuild
		);
	virtual void __fastcall Loaded(void);
	void __fastcall MenuFontChanged(System::TObject* Sender);
	__property TBcBarProtected* BarProtected = {read=GetBarProtected};
	__property bool Flat = {read=GetFlat, write=SetFlat, default=0};
	__property TOpacity Opacity = {read=GetOpacity, write=SetOpacity, default=255};
	
public:
	__fastcall virtual TBcCustomBarMainMenu(Classes::TComponent* AOwner);
	__fastcall virtual ~TBcCustomBarMainMenu(void);
	void __fastcall FlushDoubleBuffer(void);
	void __fastcall BeginUpdate(void);
	void __fastcall EndUpdate(void);
	void __fastcall ExpandItemWidth(System::TObject* Sender, Graphics::TCanvas* ACanvas, int &Width, int 
		&Height);
	void __fastcall AdvancedDrawItem(System::TObject* Sender, Graphics::TCanvas* ACanvas, const Windows::TRect 
		&ARect, Windows::TOwnerDrawState State);
	__property bool MenuUpdating = {read=FMenuUpdating, nodefault};
	__property Graphics::TFont* MenuFont = {read=GetMenuFont, write=SetMenuFont};
	__property TBcMenuStyle MenuStyle = {read=GetMenuStyle, write=SetMenuStyle, default=0};
	__property bool UseSystemFont = {read=GetUseSystemFont, write=SetUseSystemFont, default=1};
	__property TBcBar* Bar = {read=GetBar, write=SetBar};
	__property TBcSeparators* Separators = {read=GetSeparators, write=SetSeparators};
	__property Bcdrawmodule::TBcBarMenusDrawModule* DrawModule = {read=GetDrawModule, write=SetDrawModule
		};
	__property TOnBeforeDrawBarEvent OnBeforeDrawBar = {read=GetOnBeforeDrawBar, write=SetOnBeforeDrawBar
		};
	__property TOnAdvancedBeforeDrawBarEvent OnAdvancedBeforeDrawBar = {read=GetOnAdvancedBeforeDrawBar
		, write=SetOnAdvancedBeforeDrawBar};
	__property TOnAfterDrawBarEvent OnAfterDrawBar = {read=GetOnAfterDrawBar, write=SetOnAfterDrawBar};
		
	__property TOnMeasureMenuItemEvent OnMeasureMenuItem = {read=GetOnMeasureMenuItem, write=SetOnMeasureMenuItem
		};
	__property OwnerDraw ;
private:
	void *__IBarMenusIntf;	/* Barmenus::IBarMenusIntf */
	
public:
	operator IUnknown*(void) { return (IUnknown*)&__IBarMenusIntf; }
	operator IBarMenusIntf*(void) { return (IBarMenusIntf*)&__IBarMenusIntf; }
	
};


class DELPHICLASS TBcBarMainMenu;
class PASCALIMPLEMENTATION TBcBarMainMenu : public TBcCustomBarMainMenu 
{
	typedef TBcCustomBarMainMenu inherited;
	
__published:
	__property Bar ;
	__property Separators ;
	__property MenuFont ;
	__property MenuStyle ;
	__property UseSystemFont ;
	__property DrawModule ;
	__property OnBeforeDrawBar ;
	__property OnAdvancedBeforeDrawBar ;
	__property OnAfterDrawBar ;
	__property OnMeasureMenuItem ;
public:
	#pragma option push -w-inl
	/* TBcCustomBarMainMenu.Create */ inline __fastcall virtual TBcBarMainMenu(Classes::TComponent* AOwner
		) : TBcCustomBarMainMenu(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TBcCustomBarMainMenu.Destroy */ inline __fastcall virtual ~TBcBarMainMenu(void) { }
	#pragma option pop
	
};


class DELPHICLASS TBcCustomBarPopupMenu;
class PASCALIMPLEMENTATION TBcCustomBarPopupMenu : public Menus::TPopupMenu 
{
	typedef Menus::TPopupMenu inherited;
	
private:
	TBcBarProtected* FBarProtected;
	TBcBar* FBar;
	TBcSeparators* FSeparators;
	TOnBeforeDrawBarEvent FOnBeforeDrawBar;
	TOnAdvancedBeforeDrawBarEvent FOnAdvancedBeforeDrawBar;
	TOnAfterDrawBarEvent FOnAfterDrawBar;
	TOnMeasureMenuItemEvent FOnMeasureMenuItem;
	Graphics::TFont* FMenuFont;
	TBcMenuStyle FMenuStyle;
	bool FUseSystemFont;