advcardlist.hpp

TMS component pack v4.2 for delphi

	__property TAdvCard* SelectedCard = {read=FSelectedCard};
	__property int SelectedCount = {read=FSelectedCount, nodefault};
	__property int SelectedIndex = {read=FSelectedIndex, write=SetSelectedIndex, nodefault};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TCustomAdvCardList(HWND ParentWindow) : Controls::TCustomControl(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TAdvCardList;
class PASCALIMPLEMENTATION TAdvCardList : public TCustomAdvCardList 
{
	typedef TCustomAdvCardList inherited;
	
public:
	__property Columns ;
	__property Cards ;
	__property LeftCol ;
	
__published:
	__property Align  = {default=0};
	__property Anchors  = {default=3};
	__property Enabled  = {default=1};
	__property TabOrder  = {default=-1};
	__property TabStop  = {default=0};
	__property HelpContext  = {default=0};
	__property DragKind  = {default=0};
	__property DragCursor  = {default=-12};
	__property DragMode  = {default=0};
	__property BiDiMode ;
	__property Constraints ;
	__property DockOrientation ;
	__property ShowHint ;
	__property Visible  = {default=1};
	__property Left ;
	__property Top ;
	__property Width ;
	__property Height ;
	__property Cursor  = {default=0};
	__property Hint ;
	__property PopupMenu ;
	__property AutoEdit  = {default=1};
	__property BorderColor  = {default=-16777206};
	__property BorderWidth  = {default=1};
	__property CardEditingAppearance ;
	__property CardNormalAppearance ;
	__property CardSelectedAppearance ;
	__property CardHoverAppearance ;
	__property CardHorSpacing  = {default=20};
	__property CardTemplate ;
	__property CardVertSpacing  = {default=20};
	__property Color ;
	__property ColumnSizing  = {default=1};
	__property ColumnWidth  = {default=240};
	__property DelayedCardLoad ;
	__property DelayedCardLoadInterval ;
	__property Filtered  = {default=0};
	__property FilterSettings ;
	__property FocusColor  = {default=8421504};
	__property GotoSelectedAutomatic  = {default=1};
	__property GridLineColor  = {default=-16777201};
	__property GridLineWidth  = {default=3};
	__property Images ;
	__property MaxColumnWidth  = {default=0};
	__property MinColumnWidth  = {default=150};
	__property MultiSelect  = {default=0};
	__property PageCount  = {default=4};
	__property ReadOnly  = {default=0};
	__property ShowGridLine  = {default=1};
	__property ShowFocus  = {default=1};
	__property ShowScrollBar  = {default=1};
	__property Sorted  = {default=1};
	__property SortSettings ;
	__property URLColor  = {default=16711680};
	__property Version ;
	__property OnCanResize ;
	__property OnClick ;
	__property OnConstrainedResize ;
	__property OnContextPopup ;
	__property OnDblClick ;
	__property OnDragDrop ;
	__property OnDragOver ;
	__property OnEndDock ;
	__property OnEndDrag ;
	__property OnMouseDown ;
	__property OnMouseMove ;
	__property OnMouseUp ;
	__property OnResize ;
	__property OnStartDock ;
	__property OnStartDrag ;
	__property OnDockDrop ;
	__property OnDockOver ;
	__property OnEnter ;
	__property OnExit ;
	__property OnKeyDown ;
	__property OnKeyPress ;
	__property OnKeyUp ;
	__property OnMouseWheel ;
	__property OnMouseWheelDown ;
	__property OnMouseWheelUp ;
	__property OnDelayedCardLoad ;
	__property OnCardStartEdit ;
	__property OnCardEndEdit ;
	__property OnCardCaptionGetDisplText ;
	__property OnCardItemGetDisplText ;
	__property OnCardCaptionClick ;
	__property OnCardCaptionDblClick ;
	__property OnCardClick ;
	__property OnCardRightClick ;
	__property OnCardCompare ;
	__property OnCardDblClick ;
	__property OnCardItemClick ;
	__property OnCardItemRightClick ;
	__property OnCardItemURLClick ;
	__property OnColumnResizing ;
	__property OnDrawCardItem ;
	__property OnDrawCardItemProp ;
	__property OnShowCardItem ;
public:
	#pragma option push -w-inl
	/* TCustomAdvCardList.Create */ inline __fastcall virtual TAdvCardList(Classes::TComponent* AOwner) : TCustomAdvCardList(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomAdvCardList.Destroy */ inline __fastcall virtual ~TAdvCardList(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TAdvCardList(HWND ParentWindow) : TCustomAdvCardList(ParentWindow) { }
	#pragma option pop
	
};


#pragma option push -b-
enum TFontDirection { fdHorizontal, fdVertical };
#pragma option pop

class DELPHICLASS TAdvButton;
class PASCALIMPLEMENTATION TAdvButton : public Buttons::TSpeedButton 
{
	typedef Buttons::TSpeedButton inherited;
	
private:
	HFONT FFont;
	int FBorderWidth;
	AnsiString FCaption;
	TFontDirection FFontDirection;
	void __fastcall SetBorderWidth(int Value);
	void __fastcall SetCaption(AnsiString Value);
	void __fastcall SetFontDirection(TFontDirection Value);
	HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
	
protected:
	virtual void __fastcall Paint(void);
	void __fastcall ReCreateFont(void);
	
public:
	AnsiString Symbols;
	__fastcall virtual TAdvButton(Classes::TComponent* AOwner);
	__fastcall virtual ~TAdvButton(void);
	
__published:
	__property int BorderWidth = {read=FBorderWidth, write=SetBorderWidth, default=3};
	__property TFontDirection FontDirection = {read=FFontDirection, write=SetFontDirection, default=0};
	__property AnsiString Caption = {read=FCaption, write=SetCaption};
};


typedef void __fastcall (__closure *TAdvButtonClickEvent)(System::TObject* Sender, int ButtonIndex, AnsiString ButtonCaption);

#pragma option push -b-
enum TAdvBarAlignment { baHorizontal, baVertical };
#pragma option pop

#pragma option push -b-
enum TAdvBarButtonDirection { bdHorizontal, bdVertical };
#pragma option pop

typedef DynamicArray<TAdvButton* >  AdvCardList__91;

class DELPHICLASS TAdvButtonsBar;
class PASCALIMPLEMENTATION TAdvButtonsBar : public Controls::TCustomControl 
{
	typedef Controls::TCustomControl inherited;
	
private:
	DynamicArray<TAdvButton* >  FButtons;
	AnsiString FAlphabet;
	TAdvBarAlignment FBarAlignment;
	int FBorderWidth;
	int FButBorderWidth;
	TAdvBarButtonDirection FButtonDirection;
	int FButtonGap;
	int FButtonSize;
	TCustomAdvCardList* FCardList;
	bool FFlat;
	bool FShowNumButton;
	TAdvButtonClickEvent FOnButtonClick;
	void __fastcall SetAlphabet(AnsiString Value);
	void __fastcall SetBarAlignment(TAdvBarAlignment Value);
	HIDESBASE void __fastcall SetBorderWidth(int Value);
	void __fastcall SetButBorderWidth(int Value);
	void __fastcall SetButtonDirection(TAdvBarButtonDirection Value);
	void __fastcall SetButtonGap(int Value);
	void __fastcall SetButtonSize(int Value);
	void __fastcall SetFlat(bool Value);
	void __fastcall SetShowNumButton(bool Value);
	void __fastcall Adjust(void);
	void __fastcall HandleButtonClick(System::TObject* Sender);
	
protected:
	virtual void __fastcall Paint(void);
	DYNAMIC void __fastcall Resize(void);
	
public:
	__fastcall virtual TAdvButtonsBar(Classes::TComponent* AOwner);
	__fastcall virtual ~TAdvButtonsBar(void);
	int __fastcall ButtonCount(void);
	
__published:
	__property Align  = {default=0};
	__property Anchors  = {default=3};
	__property Color  = {default=-16777211};
	__property Font ;
	__property Enabled  = {default=1};
	__property TabOrder  = {default=-1};
	__property TabStop  = {default=0};
	__property HelpContext  = {default=0};
	__property Constraints ;
	__property ShowHint ;
	__property Visible  = {default=1};
	__property Left ;
	__property Top ;
	__property Width ;
	__property Height ;
	__property Cursor  = {default=0};
	__property Hint ;
	__property PopupMenu ;
	__property AnsiString Alphabet = {read=FAlphabet, write=SetAlphabet};
	__property TAdvBarAlignment BarAlignment = {read=FBarAlignment, write=SetBarAlignment, default=1};
	__property int BorderWidth = {read=FBorderWidth, write=SetBorderWidth, default=10};
	__property int ButBorderWidth = {read=FButBorderWidth, write=SetButBorderWidth, default=3};
	__property TAdvBarButtonDirection ButtonDirection = {read=FButtonDirection, write=SetButtonDirection, default=0};
	__property int ButtonGap = {read=FButtonGap, write=SetButtonGap, default=5};
	__property int ButtonSize = {read=FButtonSize, write=SetButtonSize, default=25};
	__property TCustomAdvCardList* CardList = {read=FCardList, write=FCardList};
	__property bool Flat = {read=FFlat, write=SetFlat, default=0};
	__property bool ShowNumButton = {read=FShowNumButton, write=SetShowNumButton, default=1};
	__property OnCanResize ;
	__property OnClick ;
	__property OnConstrainedResize ;
	__property OnContextPopup ;
	__property OnDblClick ;
	__property OnMouseDown ;
	__property OnMouseMove ;
	__property OnMouseUp ;
	__property OnResize ;
	__property OnEnter ;
	__property OnExit ;
	__property TAdvButtonClickEvent OnButtonClick = {read=FOnButtonClick, write=FOnButtonClick};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TAdvButtonsBar(HWND ParentWindow) : Controls::TCustomControl(ParentWindow) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
static const Shortint MAJ_VER = 0x1;
static const Shortint MIN_VER = 0x2;
static const Shortint REL_VER = 0x2;
static const Shortint BLD_VER = 0x1;
extern PACKAGE System::ResourceString _SResInvalidItemName;
#define Advcardlist_SResInvalidItemName System::LoadResourceString(&Advcardlist::_SResInvalidItemName)
extern PACKAGE System::ResourceString _SResInvalidOperation;
#define Advcardlist_SResInvalidOperation System::LoadResourceString(&Advcardlist::_SResInvalidOperation)
extern PACKAGE System::ResourceString _SResInvalidEditor;
#define Advcardlist_SResInvalidEditor System::LoadResourceString(&Advcardlist::_SResInvalidEditor)
extern PACKAGE System::ResourceString _SResDefAlphabet;
#define Advcardlist_SResDefAlphabet System::LoadResourceString(&Advcardlist::_SResDefAlphabet)
extern PACKAGE System::ResourceString _SResDesignNoItemCaption;
#define Advcardlist_SResDesignNoItemCaption System::LoadResourceString(&Advcardlist::_SResDesignNoItemCaption)
extern PACKAGE System::ResourceString _SResDesignNoItemDefValue;
#define Advcardlist_SResDesignNoItemDefValue System::LoadResourceString(&Advcardlist::_SResDesignNoItemDefValue)
extern PACKAGE System::ResourceString _SResTrue;
#define Advcardlist_SResTrue System::LoadResourceString(&Advcardlist::_SResTrue)
extern PACKAGE System::ResourceString _SResFalse;
#define Advcardlist_SResFalse System::LoadResourceString(&Advcardlist::_SResFalse)

}	/* namespace Advcardlist */
using namespace Advcardlist;
#p