advtabset.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) 'Advtabset.pas' rev: 11.00

#ifndef AdvtabsetHPP
#define AdvtabsetHPP

#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 <Classes.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Imglist.hpp>	// Pascal unit
#include <Math.hpp>	// Pascal unit
#include <Menus.hpp>	// Pascal unit

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

namespace Advtabset
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TScrollBtn { sbLeft, sbRight };
#pragma option pop

#pragma option push -b-
enum TScrollPosition { spHorizontal, spVertical };
#pragma option pop

class DELPHICLASS TScroller;
class PASCALIMPLEMENTATION TScroller : public Controls::TCustomControl 
{
	typedef Controls::TCustomControl inherited;
	
private:
	int FMin;
	int FMax;
	int FPosition;
	Classes::TNotifyEvent FOnClick;
	int FChange;
	Graphics::TColor FArrowColor;
	TScrollPosition FScrollPosition;
	Graphics::TBitmap* Bitmap;
	bool Pressed;
	bool Down;
	TScrollBtn Current;
	int pWidth;
	int pHeight;
	void __fastcall SetMin(int Value);
	void __fastcall SetMax(int Value);
	void __fastcall SetPosition(int Value);
	void __fastcall SetArrowColor(Graphics::TColor Value);
	void __fastcall SetScrollPosition(TScrollPosition Value);
	bool __fastcall CanScrollLeft(void);
	bool __fastcall CanScrollRight(void);
	HIDESBASE void __fastcall DoMouseDown(int X);
	HIDESBASE MESSAGE void __fastcall WMLButtonDown(Messages::TWMMouse &Message);
	HIDESBASE MESSAGE void __fastcall WMLButtonDblClk(Messages::TWMMouse &Message);
	HIDESBASE MESSAGE void __fastcall WMMouseMove(Messages::TWMMouse &Message);
	HIDESBASE MESSAGE void __fastcall WMLButtonUp(Messages::TWMMouse &Message);
	HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
	void __fastcall DrawSBLeftDIS(Graphics::TCanvas* aCanvas);
	void __fastcall DrawSBLeftDN(Graphics::TCanvas* aCanvas);
	void __fastcall DrawSBLeft(Graphics::TCanvas* aCanvas);
	void __fastcall DrawSBRightDIS(Graphics::TCanvas* aCanvas);
	void __fastcall DrawSBRight(Graphics::TCanvas* aCanvas);
	void __fastcall DrawSBRightDN(Graphics::TCanvas* aCanvas);
	void __fastcall DrawSBTopDIS(Graphics::TCanvas* aCanvas);
	void __fastcall DrawSBTopDN(Graphics::TCanvas* aCanvas);
	void __fastcall DrawSBTop(Graphics::TCanvas* aCanvas);
	void __fastcall DrawSBBottomDIS(Graphics::TCanvas* aCanvas);
	void __fastcall DrawSBBottom(Graphics::TCanvas* aCanvas);
	void __fastcall DrawSBBottomDN(Graphics::TCanvas* aCanvas);
	
public:
	__fastcall virtual TScroller(Classes::TComponent* AOwner);
	__fastcall virtual ~TScroller(void);
	virtual void __fastcall Paint(void);
	
__published:
	__property Classes::TNotifyEvent OnClick = {read=FOnClick, write=FOnClick};
	__property int Min = {read=FMin, write=SetMin, default=0};
	__property int Max = {read=FMax, write=SetMax, default=0};
	__property int Position = {read=FPosition, write=SetPosition, default=0};
	__property int Change = {read=FChange, write=FChange, default=1};
	__property Graphics::TColor ArrowColor = {read=FArrowColor, write=SetArrowColor, default=-16777195};
	__property TScrollPosition ScrollPosition = {read=FScrollPosition, write=SetScrollPosition, default=0};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TScroller(HWND ParentWindow) : Controls::TCustomControl(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TTabList;
class DELPHICLASS TAdvTabSet;
#pragma option push -b-
enum TTabStyle { tsStandard, tsOwnerDraw };
#pragma option pop

typedef void __fastcall (__closure *TMeasureTabEvent)(System::TObject* Sender, int Index, int &TabWidth);

typedef void __fastcall (__closure *TDrawTabEvent)(System::TObject* Sender, Graphics::TCanvas* TabCanvas, const Types::TRect &R, int Index, bool Selected);

typedef void __fastcall (__closure *TTabChangeEvent)(System::TObject* Sender, int NewTab, bool &AllowChange);

typedef void __fastcall (__closure *TTabChangedEvent)(System::TObject* Sender, int NewTab);

class DELPHICLASS TTabCollection;
class DELPHICLASS TTabCollectionItem;
class PASCALIMPLEMENTATION TTabCollection : public Classes::TCollection 
{
	typedef Classes::TCollection inherited;
	
public:
	TTabCollectionItem* operator[](int Index) { return Items[Index]; }
	
private:
	TAdvTabSet* FOwner;
	HIDESBASE TTabCollectionItem* __fastcall GetItem(int Index);
	HIDESBASE void __fastcall SetItem(int Index, const TTabCollectionItem* Value);
	
protected:
	void __fastcall UpdateItemsIndexesInTabSet(void);
	
public:
	__fastcall TTabCollection(TAdvTabSet* AOwner);
	__property TTabCollectionItem* Items[int Index] = {read=GetItem, write=SetItem/*, default*/};
	__property TAdvTabSet* AdvTabSet = {read=FOwner};
	HIDESBASE TTabCollectionItem* __fastcall Add(void);
	HIDESBASE TTabCollectionItem* __fastcall Insert(int Index);
	DYNAMIC Classes::TPersistent* __fastcall GetOwner(void);
public:
	#pragma option push -w-inl
	/* TCollection.Destroy */ inline __fastcall virtual ~TTabCollection(void) { }
	#pragma option pop
	
};


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

class DELPHICLASS TTabMargin;
typedef int TMarginSize;

typedef void __fastcall (__closure *TMarginChange)(TMarginSize NewValue, TMarginSize OldValue, int Index);

class PASCALIMPLEMENTATION TTabMargin : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	TMarginSize FLeftMargin;
	TMarginSize FTopMargin;
	TMarginSize FRightMargin;
	TMarginChange FOnMarginChange;
	void __fastcall SetMargin(int Index, TMarginSize Value);
	
protected:
	__property TMarginChange OnMarginChange = {read=FOnMarginChange, write=FOnMarginChange};
	
public:
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property TMarginSize LeftMargin = {read=FLeftMargin, write=SetMargin, index=0, default=0};
	__property TMarginSize TopMargin = {read=FTopMargin, write=SetMargin, index=1, default=0};
	__property TMarginSize RightMargin = {read=FRightMargin, write=SetMargin, index=2, nodefault};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TTabMargin(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TTabMargin(void) : Classes::TPersistent() { }
	#pragma option pop
	
};


typedef Shortint TTabOverlapSize;

typedef void __fastcall (__closure *TTabCloseEvent)(System::TObject* Sender, int TabIndex);

typedef void __fastcall (__closure *TCanCloseEvent)(System::TObject* Sender, int TabIndex, bool &CanClose);

typedef void __fastcall (__closure *TDrawTabSetBackgroundEvent)(System::TObject* Sender, Graphics::TCanvas* ACanvas, const Types::TRect &Rect);

#pragma option push -b-
enum TAdvTabStyle { tsClassic, tsDotNet };
#pragma option pop

typedef void __fastcall (__closure *TTabMovedEvent)(System::TObject* Sender, int FromPos, int ToPos);

#pragma option push -b-
enum TAdvTabPosition { pLeft, pRight, pTop, pBottom };
#pragma option pop

#pragma option push -b-
enum TCloseButtonPos { cbTabs, cbTabSet };
#pragma option pop

#pragma option push -b-
enum TShowScroller { ssAuto, ssAlways };
#pragma option pop

class PASCALIMPLEMENTATION TAdvTabSet : public Controls::TCustomControl 
{
	typedef Controls::TCustomControl inherited;
	
private:
	int FStartMargin;
	int FEndMargin;
	Classes::TStrings* FTabs;
	int FTabIndex;
	int FFirstIndex;
	int FVisibleTabs;
	Graphics::TColor FSelectedColor;
	Graphics::TColor FUnselectedColor;
	Graphics::TColor FBackgroundColor;
	bool FDitherBackground;
	bool FAutoScroll;
	TTabStyle FStyle;
	int FOwnerDrawHeight;
	TMeasureTabEvent FOnMeasureTab;
	TDrawTabEvent FOnDrawTab;
	TTabChangeEvent FOnChange;
	TTabChangedEvent FOnChanged;
	TTabCollection* FAdvTabs;
	Graphics::TColor FSelectedColorTo;
	Graphics::TColor FUnSelectedColorTo;
	Graphics::TColor FTextColor;
	Graphics::TColor FTabBorderColor;
	Graphics::TBitmap* FTabBackGround;
	Graphics::TBitmap* FTabBackGroundSelected;
	TGradientDirection FGradientDirection;
	TGradientDirection FHoverGradientDirection;
	Graphics::TColor FTabHoverColor;
	Graphics::TColor FTabHoverColorTo;
	Graphics::TColor FTabHoverBorder;
	Imglist::TCustomImageList* FImages;
	TTabMargin* FTabMargin;
	TTabOverlapSize FTabOverlap;
	bool FShowFocus;
	TTabCloseEvent FOnTabClose;
	TCanCloseEvent FOnCanClose;
	TDrawTabSetBackgroundEvent FOnDrawTabSetBackground;
	TAdvTabStyle FAdvTabStyle;
	TTabMovedEvent FOnTabMoved;
	TAdvTabPosition FTabPosition;
	TCloseButtonPos FCloseButtonAt;
	bool FTabRearrange;
	TShowScroller FShowScroller;
	int FLowerSelected;
	bool FHoverClosedButton;
	Classes::TStringList* FDuplicateTabs;
	int FHoverTab;
	bool FCloseButtonDown;
	Controls::TImageList* ImageList;
	Graphics::TBitmap* MemBitmap;
	Graphics::TBitmap* BrushBitmap;
	Classes::TList* TabPositions;
	int FTabHeight;
	TScroller* FScroller;
	bool FDoFix;
	bool FSoftTop;
	Graphics::TFont* FActiveFont;
	Graphics::TBitmap* FCloseGlyph;
	Graphics::TBitmap* FDisableCloseGlyph;
	bool FFreeOnClose;
	void __fastcall SetSelectedColor(Graphics::TColor Value);
	void __fastcall SetUnselectedColor(Graphics::TColor Value);