advcardlist.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) 'Advcardlist.pas' rev: 11.00

#ifndef AdvcardlistHPP
#define AdvcardlistHPP

#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 <Classes.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Stdctrls.hpp>	// Pascal unit
#include <Extctrls.hpp>	// Pascal unit
#include <Comctrls.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <Sysutils.hpp>	// Pascal unit
#include <Extdlgs.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Math.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Buttons.hpp>	// Pascal unit
#include <Mask.hpp>	// Pascal unit
#include <Shellapi.hpp>	// Pascal unit
#include <Variants.hpp>	// Pascal unit
#include <Themes.hpp>	// Pascal unit
#include <Menus.hpp>	// Pascal unit

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

namespace Advcardlist
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS ECardTemplateError;
class PASCALIMPLEMENTATION ECardTemplateError : public Sysutils::Exception 
{
	typedef Sysutils::Exception inherited;
	
public:
	#pragma option push -w-inl
	/* Exception.Create */ inline __fastcall ECardTemplateError(const AnsiString Msg) : Sysutils::Exception(Msg) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmt */ inline __fastcall ECardTemplateError(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 ECardTemplateError(int Ident)/* overload */ : Sysutils::Exception(Ident) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmt */ inline __fastcall ECardTemplateError(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 ECardTemplateError(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmtHelp */ inline __fastcall ECardTemplateError(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 ECardTemplateError(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmtHelp */ inline __fastcall ECardTemplateError(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 ~ECardTemplateError(void) { }
	#pragma option pop
	
};


class DELPHICLASS ECardItemListError;
class PASCALIMPLEMENTATION ECardItemListError : public Sysutils::Exception 
{
	typedef Sysutils::Exception inherited;
	
public:
	#pragma option push -w-inl
	/* Exception.Create */ inline __fastcall ECardItemListError(const AnsiString Msg) : Sysutils::Exception(Msg) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmt */ inline __fastcall ECardItemListError(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 ECardItemListError(int Ident)/* overload */ : Sysutils::Exception(Ident) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmt */ inline __fastcall ECardItemListError(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 ECardItemListError(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmtHelp */ inline __fastcall ECardItemListError(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 ECardItemListError(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmtHelp */ inline __fastcall ECardItemListError(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 ~ECardItemListError(void) { }
	#pragma option pop
	
};


#pragma option push -b-
enum TAdvGradientDirection { gdHorizontal, gdVertical };
#pragma option pop

class DELPHICLASS TAdvGradient;
class PASCALIMPLEMENTATION TAdvGradient : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Graphics::TColor FColor;
	Graphics::TColor FColorTo;
	TAdvGradientDirection FDirection;
	Classes::TNotifyEvent FOnGradientChange;
	void __fastcall SetColor(Graphics::TColor Value);
	void __fastcall SetColorTo(Graphics::TColor Value);
	void __fastcall SetDirection(TAdvGradientDirection Value);
	void __fastcall DoGradientChange(void);
	
protected:
	__property Classes::TNotifyEvent OnGradientChange = {read=FOnGradientChange, write=FOnGradientChange};
	
public:
	__fastcall TAdvGradient(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	virtual void __fastcall Draw(Graphics::TCanvas* Canvas, const Types::TRect &Rect);
	
__published:
	__property Graphics::TColor Color = {read=FColor, write=SetColor, default=-16777211};
	__property Graphics::TColor ColorTo = {read=FColorTo, write=SetColorTo, default=536870911};
	__property TAdvGradientDirection Direction = {read=FDirection, write=SetDirection, default=0};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TAdvGradient(void) { }
	#pragma option pop
	
};


class DELPHICLASS TCardListEditLink;
class PASCALIMPLEMENTATION TCardListEditLink : public Classes::TComponent 
{
	typedef Classes::TComponent inherited;
	
private:
	Controls::TKeyEvent FOnKeyDown;
	
protected:
	void __fastcall ControlKeyDown(System::TObject* Sender, Word &Key, Classes::TShiftState Shift);
	
public:
	virtual Controls::TWinControl* __fastcall CreateControl(void) = 0 ;
	virtual void __fastcall SetProperties(void) = 0 ;
	virtual void __fastcall SetSelection(int SelStart, int SelLength) = 0 ;
	virtual void __fastcall SetFocus(void) = 0 ;
	virtual void __fastcall ValueToControl(const Variant &value) = 0 ;
	virtual Variant __fastcall ControlToValue(void) = 0 ;
	__property Controls::TKeyEvent OnKeyDown = {read=FOnKeyDown, write=FOnKeyDown};
public:
	#pragma option push -w-inl
	/* TComponent.Create */ inline __fastcall virtual TCardListEditLink(Classes::TComponent* AOwner) : Classes::TComponent(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TComponent.Destroy */ inline __fastcall virtual ~TCardListEditLink(void) { }
	#pragma option pop
	
};


typedef void __fastcall (__closure *TOnAppearanceChange)(System::TObject* Sender, bool EnabledChanged);

class DELPHICLASS TAdvCardAppearance;
class PASCALIMPLEMENTATION TAdvCardAppearance : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	bool FUpdate;
	Controls::TBevelCut FBevelInner;
	Controls::TBevelCut FBevelOuter;
	int FBevelWidth;
	Graphics::TColor FBorderColor;
	int FBorderWidth;
	int FMergedBorderWidth;
	TAdvGradient* FCaptionColor;
	Graphics::TColor FCaptionBorderColor;
	int FCaptionBorderWidth;
	Graphics::TFont* FCaptionFont;
	TAdvGradient* FColor;
	bool FEnabled;
	Graphics::TFont* FItemLabelFont;
	Graphics::TFont* FItemEditFont;
	bool FReplaceLabelFont;
	bool FReplaceEditFont;
	TOnAppearanceChange FOnAppearanceChange;
	void __fastcall RecalcMergedBorder(void);
	void __fastcall DoAppearanceChange(bool EnabledChanged);
	void __fastcall HandleFontChanges(System::TObject* Sender);
	void __fastcall HandleGradientChanges(System::TObject* Sender);
	void __fastcall SetBevelInner(Controls::TBevelCut Value);
	void __fastcall SetBevelOuter(Controls::TBevelCut Value);
	void __fastcall SetBevelWidth(int Value);
	void __fastcall SetBorderColor(Graphics::TColor Value);
	void __fastcall SetBorderWidth(int Value);
	void __fastcall SetCaptionColor(TAdvGradient* Value);
	void __fastcall SetCaptionBorderColor(Graphics::TColor Value);
	void __fastcall SetCaptionBorderWidth(int Value);
	void __fastcall SetCaptionFont(Graphics::TFont* Value);
	void __fastcall SetColor(TAdvGradient* Value);
	void __fastcall SetEnabled(bool Value);
	void __fastcall SetItemLabelFont(Graphics::TFont* Value);
	void __fastcall SetItemEditFont(Graphics::TFont* Value);
	void __fastcall SetReplaceLabelFont(bool Value);
	void __fastcall SetReplaceEditFont(bool Value);
	
protected:
	__property TOnAppearanceChange OnAppearanceChange = {read=FOnAppearanceChange, write=FOnAppearanceChange};
	
public:
	__fastcall TAdvCardAppearance(void);
	__fastcall virtual ~TAdvCardAppearance(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	__property int MergedBorderWidth = {read=FMergedBorderWidth, nodefault};
	
__published:
	__property Controls::TBevelCut BevelInner = {read=FBevelInner, write=SetBevelInner, default=0};
	__property Controls::TBevelCut BevelOuter = {read=FBevelOuter, write=SetBevelOuter, default=2};
	__property int BevelWidth = {read=FBevelWidth, write=SetBevelWidth, default=1};
	__property Graphics::TColor BorderColor = {read=FBorderColor, write=SetBorderColor, default=536870911};
	__property int BorderWidth = {read=FBorderWidth, write=SetBorderWidth, default=1};
	__property TAdvGradient* CaptionColor = {read=FCaptionColor, write=SetCaptionColor};
	__property Graphics::TColor CaptionBorderColor = {read=FCaptionBorderColor, write=SetCaptionBorderColor, default=536870911};
	__property int CaptionBorderWidth = {read=FCaptionBorderWidth, write=SetCaptionBorderWidth, default=1};
	__property Graphics::TFont* CaptionFont = {read=FCaptionFont, write=SetCaptionFont};
	__property TAdvGradient* Color = {read=FColor, write=SetColor};
	__property bool Enabled = {read=FEnabled, write=SetEnabled, default=1};
	__property Graphics::TFont* ItemLabelFont = {read=FItemLabelFont, write=SetItemLabelFont};
	__property Graphics::TFont* ItemEditFont = {read=FItemEditFont, write=SetItemEditFont};
	__property bool ReplaceLabelFont = {read=FReplaceLabelFont, write=SetReplaceLabelFont, default=0};
	__property bool ReplaceEditFont = {read=FReplaceEditFont, write=SetReplaceEditFont, default=0};
};


#pragma option push -b-
enum TAdvCardItemType { itLabeledItem, itItem, itLabel };
#pragma option pop

typedef Classes::TAlignment TItemAlignment;

typedef Stdctrls::TTextLayout TItemLayout;

#pragma option push -b-
enum TAdvCardItemEditor { ieText, ieNumber, ieFloat, ieBoolean, ieDropDownList, ieDropDownEdit, ieDate, ieTime, iePictureDialog, ieCustom };
#pragma option pop

#pragma option push -b-
enum TAdvCardItemDataType { idtString, idtFloat, idtInteger, idtBoolean, idtDate, idtTime, idtImage };
#pragma option pop

#pragma option push -b-
enum TAdvCardItemURLType { utNone, utLink, utHTTP, utHTTPS, utFTP, utMailto, utNNTP };
#pragma option pop

#pragma option push -b-
enum TAdvCardBooleanHideCondition { bhcAlwaysShow, bhcTrue, bhcFalse, bhcCustom };
#pragma option pop

#pragma option push -b-
enum TAdvCardDateHideCondition { dhcAlwaysShow, dhcNullDate, dhcNotNullDate, dhcCustom };
#pragma option pop

#pragma option push -b-
enum TAdvCardFloatHideCondition { fhcAlwaysShow, fhcNull, fhcNotNull, fhcCustom };
#pragma option pop

#pragma option push -b-
enum TAdvCardIntegerHideCondition { ihcAlwaysShow, ihcNull, ihcNotNull, ihcCustom };