paramlabel.hpp

TMS component pack v4.2 for delphi

// CodeGear C++ Builder
// Copyright (c) 1995, 2007 by CodeGear
// All rights reserved

// (DO NOT EDIT: machine generated header) 'Paramlabel.pas' rev: 11.00

#ifndef ParamlabelHPP
#define ParamlabelHPP

#pragma delphiheader begin
#pragma option push
#pragma option -w-      // All warnings off
#pragma option -Vx      // Zero-length empty class member functions
#pragma pack(push,8)
#include <System.hpp>	// Pascal unit
#include <Sysinit.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Sysutils.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Stdctrls.hpp>	// Pascal unit
#include <Comctrls.hpp>	// Pascal unit
#include <Shellapi.hpp>	// Pascal unit
#include <Extctrls.hpp>	// Pascal unit
#include <Menus.hpp>	// Pascal unit
#include <Parhtml.hpp>	// Pascal unit
#include <Picturecontainer.hpp>	// Pascal unit
#include <Math.hpp>	// Pascal unit

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

namespace Paramlabel
{
//-- type declarations -------------------------------------------------------
typedef void __fastcall (__closure *TParamLabelClickEvent)(System::TObject* Sender, AnsiString href, AnsiString &value);

typedef void __fastcall (__closure *TParamLabelPopupEvent)(System::TObject* Sender, AnsiString href, Classes::TStringList* values, bool &DoPopup);

typedef void __fastcall (__closure *TParamLabelSelectEvent)(System::TObject* Sender, AnsiString href, AnsiString value);

typedef void __fastcall (__closure *TParamLabelChangedEvent)(System::TObject* Sender, AnsiString href, AnsiString oldvalue, AnsiString newvalue);

typedef void __fastcall (__closure *TParamLabelHintEvent)(System::TObject* Sender, AnsiString href, AnsiString &hintvalue, bool &showhint);

typedef void __fastcall (__closure *TParamCustomEditEvent)(System::TObject* Sender, AnsiString href, AnsiString value, AnsiString props, const Types::TRect &EditRect);

typedef void __fastcall (__closure *TParamLabelEditEvent)(System::TObject* Sender, AnsiString href, AnsiString &value);

typedef void __fastcall (__closure *TParamItemControlEvent)(System::TObject* Sender, int X, int Y, AnsiString ControlID, AnsiString ControlType, AnsiString ControlValue);

typedef void __fastcall (__closure *TParamControlHintEvent)(System::TObject* Sender, AnsiString ControlID, AnsiString &Hint, bool &CanShow);

class DELPHICLASS TParamLabel;
class PASCALIMPLEMENTATION TParamLabel : public Stdctrls::TStaticText 
{
	typedef Stdctrls::TStaticText inherited;
	
private:
	AnsiString FAnchor;
	bool FAutoSizing;
	Classes::TStringList* FHTMLText;
	TParamLabelClickEvent FOnParamClick;
	TParamLabelPopupEvent FOnParamPopup;
	TParamLabelPopupEvent FOnParamList;
	TParamLabelSelectEvent FOnParamSelect;
	TParamLabelChangedEvent FOnParamChanged;
	TParamLabelHintEvent FOnParamHint;
	bool FParamHint;
	Controls::TImageList* FImages;
	int Fupdatecount;
	Graphics::TColor FParamColor;
	Controls::TBevelCut FBevelInner;
	Controls::TBevelCut FBevelOuter;
	Controls::TBevelWidth FBevelWidth;
	Controls::TBorderWidth FBorderWidth;
	Forms::TFormBorderStyle FBorderStyle;
	int FShadowOffset;
	Graphics::TColor FShadowColor;
	bool FHover;
	int FHoverHyperLink;
	int FHyperLink;
	Graphics::TColor FHoverColor;
	Graphics::TColor FHoverFontColor;
	#pragma pack(push,1)
	Types::TRect FCurrHoverRect;
	#pragma pack(pop)
	Menus::TPopupMenu* FParamPopup;
	Parhtml::TPopupListBox* FParamList;
	Parhtml::TPopupDatePicker* FParamDatePicker;
	Parhtml::TPopupSpinEdit* FParamSpinEdit;
	Parhtml::TPopupEdit* FParamEdit;
	Parhtml::TPopupMaskEdit* FParamMaskEdit;
	AnsiString FOldParam;
	AnsiString FEditValue;
	#pragma pack(push,1)
	Types::TPoint FEditPos;
	#pragma pack(pop)
	bool FIsEditing;
	bool FMouseDown;
	AnsiString FCurrCtrlID;
	#pragma pack(push,1)
	Types::TRect FCurrCtrlRect;
	#pragma pack(pop)
	#pragma pack(push,1)
	Types::TRect FCurrCtrlDown;
	#pragma pack(pop)
	Picturecontainer::TPictureContainer* FContainer;
	Picturecontainer::THTMLPictureCache* FImageCache;
	TParamLabelSelectEvent FOnParamExit;
	TParamLabelSelectEvent FOnParamEnter;
	TParamItemControlEvent FOnControlClick;
	TParamControlHintEvent FOnControlHint;
	bool FParamListSorted;
	bool FEditAutoSize;
	int FLineSpacing;
	int FFocusLink;
	int FNumLinks;
	TParamLabelEditEvent FOnParamEditStart;
	TParamLabelEditEvent FOnParamEditDone;
	AnsiString FEmptyParam;
	AnsiString FOldAnchor;
	TParamLabelEditEvent FOnParamQuery;
	TParamCustomEditEvent FOnParamCustomEdit;
	bool FAdvanceOnReturn;
	void __fastcall SetHTMLText(Classes::TStringList* value);
	void __fastcall SetImages(Controls::TImageList* value);
	void __fastcall SetParamColor(Graphics::TColor value);
	void __fastcall SetAutoSizing(bool value);
	void __fastcall HTMLChanged(System::TObject* sender);
	void __fastcall SetBevelInner(Controls::TBevelCut Value);
	void __fastcall SetBevelOuter(Controls::TBevelCut Value);
	HIDESBASE void __fastcall SetBevelWidth(Controls::TBevelWidth Value);
	HIDESBASE void __fastcall SetBorderWidth(Controls::TBorderWidth Value);
	HIDESBASE void __fastcall SetBorderStyle(Forms::TBorderStyle Value);
	AnsiString __fastcall IsParam(int x, int y, int l, bool GetFocusRect, Types::TRect &hoverrect, Types::TRect &cr, AnsiString &CID, AnsiString &CT, AnsiString &CV);
	HIDESBASE MESSAGE void __fastcall CMHintShow(Messages::TMessage &Msg);
	HIDESBASE MESSAGE void __fastcall CMMouseLeave(Messages::TMessage &Msg);
	MESSAGE void __fastcall CMWantSpecialKey(Messages::TWMKey &Msg);
	HIDESBASE MESSAGE void __fastcall WMEraseBkGnd(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall WMKeyDown(Messages::TWMKey &Msg);
	HIDESBASE MESSAGE void __fastcall WMPaint(Messages::TWMPaint &Message);
	void __fastcall SetShadowColor(const Graphics::TColor Value);
	void __fastcall SetShadowOffset(const int Value);
	void __fastcall SetHover(const bool Value);
	void __fastcall SetHoverColor(const Graphics::TColor Value);
	void __fastcall SetHoverFontColor(const Graphics::TColor Value);
	void __fastcall HoverInvalidate(const Types::TRect &r);
	AnsiString __fastcall GetParam(AnsiString href);
	void __fastcall SetParam(AnsiString href, const AnsiString Value);
	void __fastcall HandlePopup(System::TObject* Sender);
	void __fastcall SetParamHint(const bool Value);
	void __fastcall DoPaint(bool bkg);
	int __fastcall GetParamRefCount(void);
	AnsiString __fastcall GetParamRefs(int Index);
	void __fastcall SetLineSpacing(const int Value);
	void __fastcall PrepareParam(AnsiString Param, AnsiString &Value);
	void __fastcall SetFocusParam(const int Value);
	int __fastcall GetParamIndex(AnsiString href);
	Types::TRect __fastcall GetParamRect(AnsiString href);
	void __fastcall StartParamEdit(AnsiString param, const Types::TRect &hr);
	void __fastcall StartParamDir(AnsiString param, AnsiString curdir, const Types::TRect &hr);
	AnsiString __fastcall GetVersion();
	void __fastcall SetVersion(const AnsiString Value);
	
protected:
	virtual int __fastcall GetVersionNr(void);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation AOperation);
	virtual void __fastcall Loaded(void);
	DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
	DYNAMIC void __fastcall KeyPress(char &Key);
	DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
	virtual AnsiString __fastcall GetDisplText();
	virtual void __fastcall UpdateDisplText(void);
	DYNAMIC void __fastcall DoEnter(void);
	DYNAMIC void __fastcall DoExit(void);
	void __fastcall ControlUpdate(System::TObject* Sender, AnsiString Param, AnsiString Text);
	void __fastcall AdvanceEdit(System::TObject* Sender);
	
public:
	__fastcall virtual TParamLabel(Classes::TComponent* AOwner);
	__fastcall virtual ~TParamLabel(void);
	void __fastcall BeginUpdate(void);
	void __fastcall EndUpdate(void);
	void __fastcall EditParam(AnsiString href);
	__property AnsiString Parameter[AnsiString href] = {read=GetParam, write=SetParam};
	__property int ParamRefCount = {read=GetParamRefCount, nodefault};
	__property AnsiString ParamRefs[int Index] = {read=GetParamRefs};
	__property int FocusParam = {read=FFocusLink, write=SetFocusParam, nodefault};
	__property int ParamIndex[AnsiString href] = {read=GetParamIndex};
	__property Types::TRect ParamRect[AnsiString href] = {read=GetParamRect};
	bool __fastcall GetParamInfo(AnsiString HRef, AnsiString &AValue, AnsiString &AClass, AnsiString &AProp, AnsiString &AHint);
	__property Parhtml::TPopupListBox* ParamListBox = {read=FParamList};
	__property Parhtml::TPopupEdit* ParamEdit = {read=FParamEdit};
	__property Parhtml::TPopupSpinEdit* ParamSpinEdit = {read=FParamSpinEdit};
	__property Parhtml::TPopupMaskEdit* ParamMaskEdit = {read=FParamMaskEdit};
	__property Menus::TPopupMenu* ParamPopup = {read=FParamPopup};
	__property Parhtml::TPopupDatePicker* ParamDatePicker = {read=FParamDatePicker};
	
__published:
	__property Align  = {default=0};
	__property Anchors  = {default=3};
	__property BiDiMode ;
	__property Constraints ;
	__property DragKind  = {default=0};
	__property ParentBiDiMode  = {default=1};
	__property DragCursor  = {default=-12};
	__property DragMode  = {default=0};
	__property Enabled  = {default=1};
	__property FocusControl ;
	__property Font ;
	__property ParentShowHint  = {default=1};
	__property ParentColor  = {default=1};
	__property ParentFont  = {default=1};
	__property PopupMenu ;
	__property ShowHint ;
	__property Color ;
	__property Transparent  = {default=1};
	__property Hint ;
	__property Visible  = {default=1};
	__property bool AdvanceOnReturn = {read=FAdvanceOnReturn, write=FAdvanceOnReturn, nodefault};
	__property bool AutoSizing = {read=FAutoSizing, write=SetAutoSizing, nodefault};
	__property Controls::TBevelCut BevelInner = {read=FBevelInner, write=SetBevelInner, default=0};
	__property Controls::TBevelCut BevelOuter = {read=FBevelOuter, write=SetBevelOuter, default=0};
	__property Controls::TBevelWidth BevelWidth = {read=FBevelWidth, write=SetBevelWidth, default=1};
	__property Controls::TBorderWidth BorderWidth = {read=FBorderWidth, write=SetBorderWidth, default=0};
	__property Forms::TBorderStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle, default=0};
	__property bool EditAutoSize = {read=FEditAutoSize, write=FEditAutoSize, default=0};
	__property AnsiString EmptyParam = {read=FEmptyParam, write=FEmptyParam};
	__property bool Hover = {read=FHover, write=SetHover, default=1};
	__property Graphics::TColor HoverColor = {read=FHoverColor, write=SetHoverColor, default=32768};
	__property Graphics::TColor HoverFontColor = {read=FHoverFontColor, write=SetHoverFontColor, default=16777215};
	__property Classes::TStringList* HTMLText = {read=FHTMLText, write=SetHTMLText};
	__property Controls::TImageList* Images = {read=FImages, write=SetImages};
	__property int LineSpacing = {read=FLineSpacing, write=SetLineSpacing, default=0};
	__property Graphics::TColor ParamColor = {read=FParamColor, write=SetParamColor, default=32768};
	__property bool ParamListSorted = {read=FParamListSorted, write=FParamListSorted, default=0};
	__property bool ParamHint = {read=FParamHint, write=SetParamHint, nodefault};
	__property Graphics::TColor ShadowColor = {read=FShadowColor, write=SetShadowColor, nodefault};
	__property int ShadowOffset = {read=FShadowOffset, write=SetShadowOffset, nodefault};
	__property AnsiString Version = {read=GetVersion, write=SetVersion};
	__property OnClick ;
	__property OnDblClick ;
	__property OnDragDrop ;
	__property OnDragOver ;
	__property OnEndDrag ;
	__property OnMouseDown ;
	__property OnMouseMove ;
	__property OnMouseUp ;
	__property OnStartDrag ;
	__property TParamLabelClickEvent OnParamClick = {read=FOnParamClick, write=FOnParamClick};
	__property TParamLabelPopupEvent OnParamPopup = {read=FOnParamPopup, write=FOnParamPopup};
	__property TParamLabelPopupEvent OnParamList = {read=FOnParamList, write=FOnParamList};
	__property TParamLabelSelectEvent OnParamSelect = {read=FOnParamSelect, write=FOnParamSelect};
	__property TParamLabelChangedEvent OnParamChanged = {read=FOnParamChanged, write=FOnParamChanged};
	__property TParamLabelHintEvent OnParamHint = {read=FOnParamHint, write=FOnParamHint};
	__property TParamLabelSelectEvent OnParamEnter = {read=FOnParamEnter, write=FOnParamEnter};
	__property TParamLabelSelectEvent OnParamExit = {read=FOnParamExit, write=FOnParamExit};
	__property TParamLabelEditEvent OnParamEditStart = {read=FOnParamEditStart, write=FOnParamEditStart};
	__property TParamLabelEditEvent OnParamEditDone = {read=FOnParamEditDone, write=FOnParamEditDone};
	__property TParamLabelEditEvent OnParamQuery = {read=FOnParamQuery, write=FOnParamQuery};
	__property TParamCustomEditEvent OnParamCustomEdit = {read=FOnParamCustomEdit, write=FOnParamCustomEdit};
	__property TParamItemControlEvent OnControlClick = {read=FOnControlClick, write=FOnControlClick};
	__property TParamControlHintEvent OnControlHint = {read=FOnControlHint, write=FOnControlHint};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TParamLabel(HWND ParentWindow) : Stdctrls::TStaticText(ParentWindow) { }
	#pragma option pop
	
};


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

}	/* namespace Paramlabel */
using namespace Paramlabel;
#pragma pack(pop)
#pragma option pop

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