advofficehint.hpp

TMS.AdvToolBar

// Borland C++ Builder
// Copyright (c) 1995, 2002 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'AdvOfficeHint.pas' rev: 6.00

#ifndef AdvOfficeHintHPP
#define AdvOfficeHintHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <AdvStyleIF.hpp>	// Pascal unit
#include <Math.hpp>	// Pascal unit
#include <GDIPicture.hpp>	// Pascal unit
#include <AdvGDIP.hpp>	// Pascal unit
#include <TypInfo.hpp>	// Pascal unit
#include <AdvHintInfo.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

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

namespace Advofficehint
{
//-- type declarations -------------------------------------------------------
typedef void __fastcall (__closure *TBeforeShowHint)(System::TObject* Sender, Controls::TControl* AControl, Advhintinfo::TAdvHintInfo* AHintInfo, bool &UseOfficeHint);

class DELPHICLASS TAdvOfficeHint;
class PASCALIMPLEMENTATION TAdvOfficeHint : public Classes::TComponent 
{
	typedef Classes::TComponent inherited;
	
private:
	Advhintinfo::TAdvHintInfo* FHintInfo;
	Controls::TControl* FHintControl;
	Graphics::TFont* FFont;
	int FHintWidth;
	AnsiString FHintHelpText;
	Gdipicture::TGDIPPicture* FHintHelpPicture;
	Graphics::TColor FHintColor;
	Graphics::TColor FHintColorTo;
	Graphics::TColor FHintHelpLineColor;
	bool FUseOfficeHint;
	TBeforeShowHint FOnBeforeShowHint;
	void __fastcall SetHintHelpPicture(const Gdipicture::TGDIPPicture* Value);
	void __fastcall SetFont(const Graphics::TFont* Value);
	
protected:
	AnsiString __fastcall GetVersion();
	void __fastcall SetVersion(const AnsiString Value);
	int __fastcall GetVersionNr(void);
	void __fastcall GetHintInfo(AnsiString &HintStr, bool &CanShow, Forms::THintInfo &HintInfo);
	__property Controls::TControl* HintControl = {read=FHintControl, write=FHintControl};
	
public:
	__fastcall virtual TAdvOfficeHint(Classes::TComponent* AOwner);
	__fastcall virtual ~TAdvOfficeHint(void);
	void __fastcall SetComponentStyle(Advstyleif::TTMSStyle AStyle);
	
__published:
	__property Graphics::TFont* Font = {read=FFont, write=SetFont};
	__property Graphics::TColor HintColor = {read=FHintColor, write=FHintColor, default=16777215};
	__property Graphics::TColor HintColorTo = {read=FHintColorTo, write=FHintColorTo, default=15718858};
	__property int HintWidth = {read=FHintWidth, write=FHintWidth, default=200};
	__property AnsiString HintHelpText = {read=FHintHelpText, write=FHintHelpText};
	__property Gdipicture::TGDIPPicture* HintHelpPicture = {read=FHintHelpPicture, write=SetHintHelpPicture};
	__property Graphics::TColor HintHelpLineColor = {read=FHintHelpLineColor, write=FHintHelpLineColor, default=16762522};
	__property AnsiString Version = {read=GetVersion, write=SetVersion};
	__property TBeforeShowHint OnBeforeShowHint = {read=FOnBeforeShowHint, write=FOnBeforeShowHint};
private:
	void *__ITMSStyle;	/* Advstyleif::ITMSStyle */
	
public:
	operator ITMSStyle*(void) { return (ITMSStyle*)&__ITMSStyle; }
	
};


class DELPHICLASS TAdvOfficeHintWindow;
class PASCALIMPLEMENTATION TAdvOfficeHintWindow : public Controls::THintWindow 
{
	typedef Controls::THintWindow inherited;
	
private:
	bool FIsPainting;
	TAdvOfficeHint* FHint;
	TAdvOfficeHint* __fastcall FindHintControl(void);
	
protected:
	virtual void __fastcall Paint(void);
	virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
	
public:
	virtual void __fastcall ActivateHint(const Types::TRect &Rect, const AnsiString AHint);
public:
	#pragma option push -w-inl
	/* THintWindow.Create */ inline __fastcall virtual TAdvOfficeHintWindow(Classes::TComponent* AOwner) : Controls::THintWindow(AOwner) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TCustomControl.Destroy */ inline __fastcall virtual ~TAdvOfficeHintWindow(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TAdvOfficeHintWindow(HWND ParentWindow) : Controls::THintWindow(ParentWindow) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
static const Shortint HINTROUNDING = 0x4;
static const Shortint MAJ_VER = 0x1;
static const Shortint MIN_VER = 0x1;
static const Shortint REL_VER = 0x0;
static const Shortint BLD_VER = 0x2;

}	/* namespace Advofficehint */
using namespace Advofficehint;
#pragma option pop	// -w-
#pragma option pop	// -Vx

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