danhint.hpp

来自「超市配货中心进销存源码 超市配货中心进销存源码」· HPP 代码 · 共 122 行

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

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

#ifndef DanhintHPP
#define DanhintHPP

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

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

namespace Danhint
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum THintDirection { hdUpRight, hdUpLeft, hdDownRight, hdDownLeft };
#pragma option pop

typedef void __fastcall (__closure *TOnSelectHintDirection)(Controls::TControl* HintControl, THintDirection 
	&HintDirection);

class DELPHICLASS TDanHint;
class PASCALIMPLEMENTATION TDanHint : public Classes::TComponent 
{
	typedef Classes::TComponent inherited;
	
private:
	THintDirection FHintDirection;
	Graphics::TColor FHintColor;
	Graphics::TColor FHintShadowColor;
	Graphics::TFont* FHintFont;
	int FHintPauseTime;
	TOnSelectHintDirection FOnSelectHintDirection;
	void __fastcall SetHintDirection(THintDirection Value);
	void __fastcall SetHintColor(Graphics::TColor Value);
	void __fastcall SetHintShadowColor(Graphics::TColor Value);
	void __fastcall SetHintFont(Graphics::TFont* Value);
	MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
	void __fastcall SetHintPauseTime(int Value);
	
public:
	__fastcall virtual TDanHint(Classes::TComponent* AOwner);
	__fastcall virtual ~TDanHint(void);
	virtual void __fastcall Loaded(void);
	void __fastcall SetNewHintFont(void);
	
__published:
	__property THintDirection HintDirection = {read=FHintDirection, write=SetHintDirection, default=0};
		
	__property Graphics::TColor HintColor = {read=FHintColor, write=SetHintColor, default=65535};
	__property Graphics::TColor HintShadowColor = {read=FHintShadowColor, write=SetHintShadowColor, default=8388736
		};
	__property Graphics::TFont* HintFont = {read=FHintFont, write=SetHintFont};
	__property int HintPauseTime = {read=FHintPauseTime, write=SetHintPauseTime, default=600};
	__property TOnSelectHintDirection OnSelectHintDirection = {read=FOnSelectHintDirection, write=FOnSelectHintDirection
		};
};


class DELPHICLASS TNewHint;
class PASCALIMPLEMENTATION TNewHint : public Controls::THintWindow 
{
	typedef Controls::THintWindow inherited;
	
private:
	TDanHint* FDanHint;
	THintDirection FHintDirection;
	void __fastcall SelectProperHintDirection(const Windows::TRect &ARect);
	void __fastcall CheckUpRight(const Windows::TPoint &Spot);
	void __fastcall CheckUpLeft(const Windows::TPoint &Spot);
	void __fastcall CheckDownRight(const Windows::TPoint &Spot);
	void __fastcall CheckDownLeft(const Windows::TPoint &Spot);
	TDanHint* __fastcall FindDanHint(void);
	Controls::TControl* __fastcall FindCursorControl(void);
	
protected:
	virtual void __fastcall Paint(void);
	virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
	
public:
	__fastcall virtual TNewHint(Classes::TComponent* AOwner);
	__fastcall virtual ~TNewHint(void);
	virtual void __fastcall ActivateHint(const Windows::TRect &Rect, const AnsiString AHint);
	__property THintDirection HintDirection = {read=FHintDirection, write=FHintDirection, default=0};
public:
		
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TNewHint(HWND ParentWindow) : Controls::THintWindow(
		ParentWindow) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
extern PACKAGE void __fastcall Register(void);

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

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