paramlistbox.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) 'Paramlistbox.pas' rev: 11.00

#ifndef ParamlistboxHPP
#define ParamlistboxHPP

#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 <Stdctrls.hpp>	// Pascal unit
#include <Menus.hpp>	// Pascal unit
#include <Spin.hpp>	// Pascal unit
#include <Comctrls.hpp>	// Pascal unit
#include <Parhtml.hpp>	// Pascal unit
#include <Picturecontainer.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Mask.hpp>	// Pascal unit
#include <Extctrls.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit

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

namespace Paramlistbox
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS EHTMListBoxError;
class PASCALIMPLEMENTATION EHTMListBoxError : public Sysutils::Exception 
{
	typedef Sysutils::Exception inherited;
	
public:
	#pragma option push -w-inl
	/* Exception.Create */ inline __fastcall EHTMListBoxError(const AnsiString Msg) : Sysutils::Exception(Msg) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmt */ inline __fastcall EHTMListBoxError(const AnsiString Msg, System::TVarRec const * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateRes */ inline __fastcall EHTMListBoxError(int Ident)/* overload */ : Sysutils::Exception(Ident) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmt */ inline __fastcall EHTMListBoxError(int Ident, System::TVarRec const * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateHelp */ inline __fastcall EHTMListBoxError(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmtHelp */ inline __fastcall EHTMListBoxError(const AnsiString Msg, System::TVarRec const * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResHelp */ inline __fastcall EHTMListBoxError(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmtHelp */ inline __fastcall EHTMListBoxError(System::PResStringRec ResStringRec, System::TVarRec const * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~EHTMListBoxError(void) { }
	#pragma option pop
	
};


typedef void __fastcall (__closure *TAnchorClick)(System::TObject* Sender, int index, AnsiString anchor);

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

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

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

typedef void __fastcall (__closure *TParamListBoxChangedEvent)(System::TObject* Sender, int idx, AnsiString href, AnsiString oldvalue, AnsiString &newvalue);

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

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

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

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

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

class DELPHICLASS TParamListBox;
class PASCALIMPLEMENTATION TParamListBox : public Stdctrls::TCustomListBox 
{
	typedef Stdctrls::TCustomListBox inherited;
	
private:
	bool FBlinking;
	int FOldCursor;
	AnsiString FOldAnchor;
	TParamListBoxClickEvent FOnParamClick;
	TParamListBoxPopupEvent FOnParamPopup;
	TParamListBoxPopupEvent FOnParamList;
	TParamListBoxSelectEvent FOnParamSelect;
	TParamListBoxChangedEvent FOnParamChanged;
	TParamListBoxHintEvent FOnParamHint;
	Controls::TImageList* FImages;
	bool FMultiLine;
	Graphics::TColor FParamColor;
	Graphics::TColor FSelectionColor;
	Graphics::TColor FSelectionFonTColor;
	bool FIsMeasuring;
	int FTimerID;
	bool FEnableBlink;
	int FShadowOffset;
	Graphics::TColor FShadowColor;
	bool FParamHint;
	Menus::TPopupMenu* FParamPopup;
	Parhtml::TPopupListBox* FParamList;
	Parhtml::TPopupDatePicker* FParamDatePicker;
	Parhtml::TPopupSpinEdit* FParamSpinEdit;
	Parhtml::TPopupEdit* FParamEdit;
	Parhtml::TPopupMaskEdit* FParamMaskEdit;
	bool FParamListSorted;
	AnsiString FOldParam;
	bool FHover;
	int FHoverIdx;
	int FHoverHyperLink;
	Graphics::TColor FHoverColor;
	Graphics::TColor FHoverFontColor;
	#pragma pack(push,1)
	Types::TRect FCurrHoverRect;
	#pragma pack(pop)
	bool FShowSelection;
	int FFocusLink;
	int FFocusItem;
	int FNumHyperLinks;
	bool Redraw;
	int FUpdateCount;
	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;
	TParamListBoxSelectEvent FOnParamExit;
	TParamListBoxSelectEvent FOnParamEnter;
	TParamListBoxClickEvent FOnParamPrepare;
	TParamItemControlEvent FOnControlClick;
	TParamControlHintEvent FOnControlHint;
	bool FEditAutoSize;
	int FLineSpacing;
	TParamListBoxEditEvent FOnParamEditStart;
	TParamListBoxEditEvent FOnParamEditDone;
	AnsiString FEmptyParam;
	AnsiString FEditValue;
	#pragma pack(push,1)
	Types::TPoint FEditPos;
	#pragma pack(pop)
	bool FIsEditing;
	TParamListBoxEditEvent FOnParamQuery;
	TParamCustomEditEvent FOnParamCustomEdit;
	bool FAdvanceOnReturn;
	void __fastcall ReMeasure(void);
	HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Msg);
	MESSAGE void __fastcall WMTimer(Messages::TWMTimer &Msg);
	HIDESBASE MESSAGE void __fastcall WMEraseBkGnd(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall WMKillFocus(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall CNDrawItem(Messages::TWMDrawItem &Message);