advpanel.hpp

TMS component pack v4.2 for delphi

	void __fastcall BeginUpdate(void);
	void __fastcall EndUpdate(void);
	__property bool OptimizePaint = {read=FOptimizePaint, write=FOptimizePaint, nodefault};
	__property int FullHeight = {read=FFullHeight, write=FFullHeight, nodefault};
	__property int Index = {read=FIndex, write=SetIndex, nodefault};
	__property bool AnchorHint = {read=FAnchorHint, write=FAnchorHint, default=0};
	__property TAutoSize* AutoSize = {read=FAutoSize, write=SetAutoSizeEx};
	__property bool AutoHideChildren = {read=FAutoHideChildren, write=FAutoHideChildren, default=1};
	__property Advimage::TAdvImage* Background = {read=FImage, write=SetImage};
	__property TBackGroundPosition BackgroundPosition = {read=FBackgroundPosition, write=SetBackgroundPosition, default=0};
	__property Graphics::TColor BorderColor = {read=FBorderColor, write=SetBorderColor, default=0};
	__property bool BorderShadow = {read=FBorderShadow, write=SetBorderShadow, default=0};
	__property bool Buffered = {read=FBuffered, write=FBuffered, default=1};
	__property bool CanMove = {read=FCanMove, write=FCanMove, default=0};
	__property bool CanSize = {read=FCanSize, write=SetCanSize, default=0};
	__property TPanelCaption* Caption = {read=FCaption, write=SetCaption};
	__property bool Collaps = {read=FCollaps, write=SetCollaps, default=0};
	__property Graphics::TColor CollapsColor = {read=FCollapsColor, write=FCollapsColor, default=8421504};
	__property int CollapsDelay = {read=FCollapsDelay, write=FCollapsDelay, default=20};
	__property int CollapsSteps = {read=FCollapsSteps, write=FCollapsSteps, default=0};
	__property Graphics::TColor ColorTo = {read=FColorTo, write=SetColorTo, default=536870911};
	__property Graphics::TColor ColorMirror = {read=FColorMirror, write=SetColorMirror, default=536870911};
	__property Graphics::TColor ColorMirrorTo = {read=FColorMirrorTo, write=SetColorMirrorTo, default=536870911};
	__property TGradientDirection GradientDirection = {read=FGradientDirection, write=SetGradientDirection, default=0};
	__property bool Ellipsis = {read=FEllipsis, write=SetEllipsis, default=0};
	__property bool FixedTop = {read=FFixedTop, write=FFixedTop, default=0};
	__property bool FixedLeft = {read=FFixedLeft, write=FFixedLeft, default=0};
	__property bool FixedHeight = {read=FFixedHeight, write=FFixedHeight, default=0};
	__property bool FixedWidth = {read=FFixedWidth, write=FFixedWidth, default=0};
	__property bool FreeOnClose = {read=FFreeOnClose, write=FFreeOnClose, default=0};
	__property int Height = {read=GetHeightEx, write=SetHeightEx, nodefault};
	__property bool Hover = {read=FHover, write=SetHover, default=0};
	__property Graphics::TColor HoverColor = {read=FHoverColor, write=FHoverColor, default=536870911};
	__property Graphics::TColor HoverFontColor = {read=FHoverFontColor, write=FHoverFontColor, default=536870911};
	__property Controls::TImageList* Images = {read=FImages, write=SetImages};
	__property int Indent = {read=FIndent, write=SetIndent, default=0};
	__property int LineSpacing = {read=FLineSpacing, write=SetLineSpacing, default=0};
	__property Picturecontainer::TPictureContainer* PictureContainer = {read=FContainer, write=FContainer};
	__property TPanelPosition* Position = {read=FPosition, write=FPosition};
	__property Graphics::TColor ShadowColor = {read=FShadowColor, write=SetShadowColor, default=8421504};
	__property int ShadowOffset = {read=FShadowOffset, write=SetShadowOffset, default=2};
	__property bool ShowMoveCursor = {read=FShowMoveCursor, write=FShowMoveCursor, default=0};
	__property TPanelStatusBar* StatusBar = {read=FStatusBar, write=SetStatusBar};
	__property TAdvPanelStyler* Styler = {read=FStyler, write=SetStyler};
	__property int Width = {read=GetWidthEx, write=SetWidthEx, nodefault};
	__property AnsiString RawText = {read=GetRawText};
	__property AnsiString Text = {read=FText, write=SetText};
	__property TTextVAlignment TextVAlign = {read=FTextVAlign, write=SetTextVAlign, default=0};
	__property int TopIndent = {read=FTopIndent, write=SetTopIndent, default=0};
	__property Graphics::TColor URLColor = {read=FURLColor, write=SetURLColor, default=16711680};
	__property Classes::TNotifyEvent OnCaptionClick = {read=FOnCaptionClick, write=FOnCaptionClick};
	__property Classes::TNotifyEvent OnCaptionDBlClick = {read=FOnCaptionDblClick, write=FOnCaptionDblClick};
	__property TAnchorEvent OnAnchorClick = {read=FAnchorClick, write=FAnchorClick};
	__property TAnchorEvent OnAnchorEnter = {read=FAnchorEnter, write=FAnchorEnter};
	__property TAnchorEvent OnAnchorExit = {read=FAnchorExit, write=FAnchorExit};
	__property TAnchorHintEvent OnAnchorHint = {read=FOnAnchorHint, write=FOnAnchorHint};
	__property Classes::TNotifyEvent OnClose = {read=FOnClose, write=FOnClose};
	__property Classes::TNotifyEvent OnEndMoveSize = {read=FOnEndMoveSize, write=FOnEndMoveSize};
	__property Classes::TNotifyEvent OnMinimize = {read=FOnMinimize, write=FOnMinimize};
	__property Classes::TNotifyEvent OnMaximize = {read=FOnMaximize, write=FOnMaximize};
	__property Classes::TNotifyEvent OnMouseLeave = {read=FOnMouseLeave, write=FOnMouseLeave};
	__property Classes::TNotifyEvent OnMouseEnter = {read=FOnMouseEnter, write=FOnMouseEnter};
	__property Classes::TNotifyEvent OnEndCollapsExpand = {read=FOnEndCollapsExpand, write=FOnEndCollapsExpand};
	
__published:
	__property Align  = {default=0};
	__property Anchors  = {default=3};
	__property BevelInner  = {default=0};
	__property BevelOuter  = {default=2};
	__property BevelWidth  = {default=1};
	__property BorderStyle  = {default=0};
	__property Color  = {default=-16777201};
	__property Constraints ;
	__property Cursor  = {default=0};
	__property DockSite  = {default=0};
	__property DragCursor  = {default=-12};
	__property DragKind  = {default=0};
	__property DragMode  = {default=0};
	__property Enabled  = {default=1};
	__property Font ;
	__property HelpContext  = {default=0};
	__property Hint ;
	__property Locked  = {default=0};
	__property ParentColor  = {default=0};
	__property ParentFont  = {default=1};
	__property ParentShowHint  = {default=1};
	__property PopupMenu ;
	__property ShowHint ;
	__property TabOrder  = {default=-1};
	__property TabStop  = {default=0};
	__property Tag  = {default=0};
	__property UseDockManager  = {default=0};
	__property Visible  = {default=1};
	__property OnMouseDown ;
	__property OnMouseMove ;
	__property OnMouseUp ;
	__property OnConstrainedResize ;
	__property OnContextPopup ;
	__property OnDblClick ;
	__property OnDockDrop ;
	__property OnDockOver ;
	__property OnDragDrop ;
	__property OnDragOver ;
	__property OnEndDock ;
	__property OnEndDrag ;
	__property OnEnter ;
	__property OnExit ;
	__property OnGetSiteInfo ;
	__property OnCanResize ;
	__property OnClick ;
	__property OnResize ;
	__property OnStartDock ;
	__property OnStartDrag ;
	__property OnUnDock ;
	__property AnsiString Version = {read=GetVersionComp, write=SetVersion};
	__property TPaintEvent OnPaint = {read=FOnPaint, write=FOnPaint};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TCustomAdvPanel(HWND ParentWindow) : Extctrls::TCustomPanel(ParentWindow) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TAutoSize : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	TCustomAdvPanel* FOwner;
	bool FHeight;
	bool FWidth;
	bool FEnabled;
	void __fastcall SetEnabled(const bool Value);
	
public:
	__fastcall TAutoSize(TCustomAdvPanel* AOwner);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property bool Enabled = {read=FEnabled, write=SetEnabled, default=0};
	__property bool Height = {read=FHeight, write=FHeight, default=1};
	__property bool Width = {read=FWidth, write=FWidth, default=1};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TAutoSize(void) { }
	#pragma option pop
	
};


class DELPHICLASS TAdvPanel;
class PASCALIMPLEMENTATION TAdvPanel : public TCustomAdvPanel 
{
	typedef TCustomAdvPanel inherited;
	
__published:
	__property AnchorHint  = {default=0};
	__property AutoSize ;
	__property AutoHideChildren  = {default=1};
	__property Background ;
	__property BackgroundPosition  = {default=0};
	__property BorderColor  = {default=0};
	__property BorderShadow  = {default=0};
	__property BorderWidth  = {default=0};
	__property Buffered  = {default=1};
	__property CanMove  = {default=0};
	__property CanSize  = {default=0};
	__property Caption ;
	__property Collaps  = {default=0};
	__property CollapsColor  = {default=8421504};
	__property CollapsDelay  = {default=20};
	__property CollapsSteps  = {default=0};
	__property ColorTo  = {default=536870911};
	__property ColorMirror  = {default=536870911};
	__property ColorMirrorTo  = {default=536870911};
	__property Ellipsis  = {default=0};
	__property FixedTop  = {default=0};
	__property FixedLeft  = {default=0};
	__property FixedHeight  = {default=0};
	__property FixedWidth  = {default=0};
	__property FreeOnClose  = {default=0};
	__property GradientDirection  = {default=0};
	__property Height ;
	__property Hover  = {default=0};
	__property HoverColor  = {default=536870911};
	__property HoverFontColor  = {default=536870911};
	__property Images ;
	__property Indent  = {default=0};
	__property LineSpacing  = {default=0};
	__property PictureContainer ;
	__property Position ;
	__property ShadowColor  = {default=8421504};
	__property ShadowOffset  = {default=2};
	__property ShowMoveCursor  = {default=0};
	__property StatusBar ;
	__property Styler ;
	__property Text ;
	__property TextVAlign  = {default=0};
	__property TopIndent  = {default=0};
	__property URLColor  = {default=16711680};
	__property Width ;
	__property OnCaptionClick ;
	__property OnCaptionDBlClick ;
	__property OnAnchorClick ;
	__property OnAnchorEnter ;
	__property OnAnchorExit ;
	__property OnAnchorHint ;
	__property OnClose ;
	__property OnEndMoveSize ;
	__property OnMinimize ;
	__property OnMaximize ;
	__property OnMouseEnter ;
	__property OnMouseLeave ;
	__property OnEndCollapsExpand ;
	__property OnPaint ;
public:
	#pragma option push -w-inl
	/* TCustomAdvPanel.Create */ inline __fastcall virtual TAdvPanel(Classes::TComponent* AOwner) : TCustomAdvPanel(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomAdvPanel.Destroy */ inline __fastcall virtual ~TAdvPanel(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TAdvPanel(HWND ParentWindow) : TCustomAdvPanel(ParentWindow) { }
	#pragma option pop
	
};


#pragma option push -b-
enum TGroupStyle { gsVertical, gsHorizontal };
#pragma option pop

class DELPHICLASS TAdvPanelGroup;
class PASCALIMPLEMENTATION TAdvPanelGroup : public TAdvPanel 
{
	typedef TAdvPanel inherited;
	
private:
	int FUpdateCount;
	int FHorzPadding;
	int FVertPadding;
	TGroupStyle FGroupStyle;
	bool FIsArranging;
	Stdctrls::TScrollBar* FScrollBar;
	Classes::TList* FPanels;
	TAdvPanelSettings* FDefaultPanel;
	int FColumns;
	bool FCode;
	bool FScrollSmooth;
	HIDESBASE MESSAGE void __fastcall WMSize(Messages::TMessage &Msg);
	void __fastcall SetHorzPadding(const int Value);
	void __fastcall SetVertPadding(const int Value);
	void __fastcall SetGroupStyle(const TGroupStyle Value);
	TCustomAdvPanel* __fastcall GetPanel(int Index);
	void __fastcall SetPanel(int Index, const TCustomAdvPanel* Value);
	void __fastcall SetDefaultPanel(const TAdvPanelSettings* Value);
	void __fastcall SetColumns(const int Value);
	int __fastcall GetPanelCount(void);
	
protected:
	void __fastcall ArrangeControlsVert(void);
	void __fastcall ArrangeControlsHorz(void);
	void __fastcall ArrangeControls(void);
	void __fastcall Scroll(System::TObject* Sender);
	int __fastcall PanelHeights(void);
	int __fastcall PanelWidths(void);
	void __fastcall UpdateScrollbar(void);
	virtual void __fastcall StateChange(void);
	DYNAMIC bool __fastcall DoMouseWheelDown(Classes::TShiftState Shift, const Types::TPoint &MousePos);
	DYNAMIC bool __fastcall DoMouseWheelUp(Classes::TShiftState Shift, const Types::TPoint &MousePos);
	virtual void __fastcall AlignControls(Controls::TControl* AControl, Types::TRect &Rect);
	
public:
	__fastcall virtual TAdvPanelGroup(Classes::TComponent* AOwner);
	__fastcall virtual ~TAdvPanelGroup(void);
	virtual void __fastcall Loaded(void);
	void __fastcall ChildPanelChanged(TCustomAdvPanel* APanel);
	__property bool IsArranging = {read=FIsArranging, nodefault};
	virtual void __fastcall SetBounds(int ALeft, int ATop, int AWidth, int AHeight);
	void __fastcall OpenAllPanels(void);
	void __fastcall CloseAllPanels(void);
	void __fastcall SavePanelPositions(void);
	void __fastcall LoadPanelPositions(void);
	void __fastcall UpdateGroup(void);
	void __fastcall Clear(void);
	HIDESBASE void __fastcall BeginUpdate(void);
	HIDESBASE void __fastcall EndUpdate(void);
	void __fastcall InitPanels(void);
	TCustomAdvPanel* __fastcall AddPanel(void);
	TCustomAdvPanel* __fastcall InsertPanel(int Index);
	void __fastcall RemovePanel(int Index);
	void __fastcall MovePanel(int FromIndex, int ToIndex);
	__property TCustomAdvPanel* Panels[int Index] = {read=GetPanel, write=SetPanel};
	__property int PanelCount = {read=GetPanelCount, nodefault};
	
__published:
	__property int Columns = {read=FColumns, write=SetColumns, nodefault};
	__property TAdvPanelSettings* DefaultPanel = {read=FDefaultPanel, write=SetDefaultPanel};
	__property TGroupStyle GroupStyle = {read=FGroupStyle, write=SetGroupStyle, nodefault};
	__property bool ScrollSmooth = {read=FScrollSmooth, write=FScrollSmooth, default=1};
	__property int HorzPadding = {read=FHorzPadding, write=SetHorzPadding, nodefault};
	__property int VertPadding = {read=FVertPadding, write=SetVertPadding, nodefault};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TAdvPanelGroup(HWND ParentWindow) : TAdvPanel(ParentWindow) { }
	#pragma option pop
	
};


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

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

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