advpanel.hpp

TMS component pack v4.2 for delphi

	void __fastcall SetAnchorHint(const bool Value);
	void __fastcall SetAutoHideChildren(const bool Value);
	void __fastcall SetBevelInner(const Controls::TBevelCut Value);
	void __fastcall SetBevelOuter(const Controls::TBevelCut Value);
	void __fastcall SetBevelWidth(const int Value);
	void __fastcall SetBorderStyle(const Forms::TBorderStyle Value);
	void __fastcall SetCanMove(const bool Value);
	void __fastcall SetCanSize(const bool Value);
	void __fastcall SetCollapsColor(const Graphics::TColor Value);
	void __fastcall SetCollapsDelay(const int Value);
	void __fastcall SetCollapsSteps(const int Value);
	void __fastcall SetColorTo(const Graphics::TColor Value);
	void __fastcall SetColorMirror(const Graphics::TColor Value);
	void __fastcall SetColorMirrorTo(const Graphics::TColor Value);
	void __fastcall SetCursor(const Controls::TCursor Value);
	void __fastcall SetHover(const bool Value);
	void __fastcall SetHoverColor(const Graphics::TColor Value);
	void __fastcall SetHoverFontColor(const Graphics::TColor Value);
	void __fastcall SetIndent(const int Value);
	void __fastcall SetText(const AnsiString Value);
	void __fastcall SetTextVAlign(const TTextVAlignment Value);
	void __fastcall SetTopIndent(const int Value);
	void __fastcall SetURLColor(const Graphics::TColor Value);
	void __fastcall SetBorderWidth(const int Value);
	void __fastcall SetStatusBar(const TPanelStatusBar* Value);
	
public:
	__fastcall TAdvPanelSettings(void);
	__fastcall virtual ~TAdvPanelSettings(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	void __fastcall BeginUpdate(void);
	void __fastcall EndUpdate(void);
	
__published:
	__property bool AnchorHint = {read=FAnchorHint, write=SetAnchorHint, nodefault};
	__property bool AutoHideChildren = {read=FAutoHideChildren, write=SetAutoHideChildren, nodefault};
	__property Controls::TBevelCut BevelInner = {read=FBevelInner, write=SetBevelInner, nodefault};
	__property Controls::TBevelCut BevelOuter = {read=FBevelOuter, write=SetBevelOuter, nodefault};
	__property int BevelWidth = {read=FBevelWidth, write=SetBevelWidth, nodefault};
	__property Graphics::TColor BorderColor = {read=FBorderColor, write=SetBorderColor, nodefault};
	__property bool BorderShadow = {read=FBorderShadow, write=SetBorderShadow, nodefault};
	__property Forms::TBorderStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle, nodefault};
	__property int BorderWidth = {read=FBorderWidth, write=SetBorderWidth, nodefault};
	__property bool CanMove = {read=FCanMove, write=SetCanMove, nodefault};
	__property bool CanSize = {read=FCanSize, write=SetCanSize, nodefault};
	__property TPanelCaption* Caption = {read=FCaption, write=SetCaption};
	__property bool Collaps = {read=FCollaps, write=SetCollaps, nodefault};
	__property Graphics::TColor CollapsColor = {read=FCollapsColor, write=SetCollapsColor, nodefault};
	__property int CollapsDelay = {read=FCollapsDelay, write=SetCollapsDelay, nodefault};
	__property int CollapsSteps = {read=FCollapsSteps, write=SetCollapsSteps, nodefault};
	__property Graphics::TColor Color = {read=FColor, write=FColor, nodefault};
	__property Graphics::TColor ColorTo = {read=FColorTo, write=SetColorTo, nodefault};
	__property Graphics::TColor ColorMirror = {read=FColorMirror, write=SetColorMirror, nodefault};
	__property Graphics::TColor ColorMirrorTo = {read=FColorMirrorTo, write=SetColorMirrorTo, nodefault};
	__property Controls::TCursor Cursor = {read=FCursor, write=SetCursor, nodefault};
	__property Graphics::TFont* Font = {read=FFont, write=SetFont};
	__property bool FixedTop = {read=FFixedTop, write=FFixedTop, nodefault};
	__property bool FixedLeft = {read=FFixedLeft, write=FFixedLeft, nodefault};
	__property bool FixedHeight = {read=FFixedHeight, write=FFixedHeight, nodefault};
	__property bool FixedWidth = {read=FFixedWidth, write=FFixedWidth, nodefault};
	__property int Height = {read=FHeight, write=FHeight, nodefault};
	__property AnsiString Hint = {read=FHint, write=FHint};
	__property bool Hover = {read=FHover, write=SetHover, nodefault};
	__property Graphics::TColor HoverColor = {read=FHoverColor, write=SetHoverColor, nodefault};
	__property Graphics::TColor HoverFontColor = {read=FHoverFontColor, write=SetHoverFontColor, nodefault};
	__property int Indent = {read=FIndent, write=SetIndent, nodefault};
	__property TPanelPosition* Position = {read=FPosition, write=FPosition};
	__property Graphics::TColor ShadowColor = {read=FShadowColor, write=FShadowColor, nodefault};
	__property int ShadowOffset = {read=FShadowOffset, write=FShadowOffset, nodefault};
	__property bool ShowHint = {read=FShowHint, write=FShowHint, nodefault};
	__property bool ShowMoveCursor = {read=FShowMoveCursor, write=FShowMoveCursor, nodefault};
	__property TPanelStatusBar* StatusBar = {read=FStatusBar, write=SetStatusBar};
	__property AnsiString Text = {read=FText, write=SetText};
	__property TTextVAlignment TextVAlign = {read=FTextVAlign, write=SetTextVAlign, nodefault};
	__property int TopIndent = {read=FTopIndent, write=SetTopIndent, nodefault};
	__property Graphics::TColor URLColor = {read=FURLColor, write=SetURLColor, nodefault};
	__property int Width = {read=FWidth, write=FWidth, nodefault};
	__property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
};


class DELPHICLASS TThemeNotifierWindow;
class PASCALIMPLEMENTATION TThemeNotifierWindow : public Controls::TWinControl 
{
	typedef Controls::TWinControl inherited;
	
private:
	Classes::TNotifyEvent FOnThemeChange;
	
protected:
	virtual void __fastcall WndProc(Messages::TMessage &Msg);
	
__published:
	__property Classes::TNotifyEvent OnThemeChange = {read=FOnThemeChange, write=FOnThemeChange};
public:
	#pragma option push -w-inl
	/* TWinControl.Create */ inline __fastcall virtual TThemeNotifierWindow(Classes::TComponent* AOwner) : Controls::TWinControl(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TThemeNotifierWindow(HWND ParentWindow) : Controls::TWinControl(ParentWindow) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TWinControl.Destroy */ inline __fastcall virtual ~TThemeNotifierWindow(void) { }
	#pragma option pop
	
};


#pragma option push -b-
enum TAdvPanelStyle { psXP, psFlat, psTMS, psClassic, psOffice2003Blue, psOffice2003Olive, psOffice2003Silver, psOffice2003Classic, psOffice2007Luna, psOffice2007Obsidian, psWhidbey, psWindowsXP, psCustom, psOffice2007Silver };
#pragma option pop

class PASCALIMPLEMENTATION TAdvPanelStyler : public Classes::TComponent 
{
	typedef Classes::TComponent inherited;
	
private:
	TAdvPanelSettings* FSettings;
	AnsiString FComments;
	int FTag;
	TThemeNotifierWindow* FNotifierWnd;
	TAdvPanelStyle FStyle;
	bool FAutoThemeAdapt;
	void __fastcall SetSettings(const TAdvPanelSettings* Value);
	void __fastcall SetStyle(const TAdvPanelStyle Value);
	
protected:
	void __fastcall ThemeChanged(System::TObject* Sender);
	void __fastcall Changed(System::TObject* Sender);
	
public:
	__fastcall virtual TAdvPanelStyler(Classes::TComponent* AOwner);
	__fastcall virtual ~TAdvPanelStyler(void);
	virtual void __fastcall Loaded(void);
	void __fastcall SetComponentStyle(Advstyleif::TTMSStyle AStyle);
	
__published:
	__property bool AutoThemeAdapt = {read=FAutoThemeAdapt, write=FAutoThemeAdapt, default=0};
	__property TAdvPanelSettings* Settings = {read=FSettings, write=SetSettings};
	__property AnsiString Comments = {read=FComments, write=FComments};
	__property TAdvPanelStyle Style = {read=FStyle, write=SetStyle, default=0};
	__property int Tag = {read=FTag, write=FTag, nodefault};
private:
	void *__ITMSStyle;	/* Advstyleif::ITMSStyle */
	
public:
	operator ITMSStyle*(void) { return (ITMSStyle*)&__ITMSStyle; }
	
};


class PASCALIMPLEMENTATION TCustomAdvPanel : public Extctrls::TCustomPanel 
{
	typedef Extctrls::TCustomPanel inherited;
	
private:
	AnsiString FText;
	Advimage::TAdvImage* FImage;
	TBackGroundPosition FBackgroundPosition;
	TPanelCaption* FCaption;
	Controls::TImageList* FImages;
	Graphics::TColor FURLColor;
	Graphics::TColor FOldColor;
	bool FCollaps;
	int FFullHeight;
	AnsiString FAnchor;
	int FHoverHyperLink;
	int FOldHoverHyperLink;
	int FCaptionHoverHyperLink;
	#pragma pack(push,1)
	Types::TRect FCurrHoverRect;
	#pragma pack(pop)
	#pragma pack(push,1)
	Types::TRect FCaptionCurrHoverRect;
	#pragma pack(pop)
	bool FAnchorHint;
	TAnchorEvent FAnchorExit;
	TAnchorEvent FAnchorClick;
	TAnchorEvent FAnchorEnter;
	bool FHover;
	Graphics::TColor FHoverColor;
	Graphics::TColor FHoverFontColor;
	int FShadowOffset;
	Graphics::TColor FShadowColor;
	bool FCanSize;
	bool FCanMove;
	TTextVAlignment FTextVAlign;
	TAnchorHintEvent FOnAnchorHint;
	Classes::TNotifyEvent FOnClose;
	Classes::TNotifyEvent FOnMinimize;
	Classes::TNotifyEvent FOnMaximize;
	TPanelPosition* FPosition;
	Classes::TNotifyEvent FOnCaptionClick;
	bool FFixedHeight;
	bool FFixedLeft;
	bool FFixedWidth;
	bool FFixedTop;
	#pragma pack(push,1)
	Types::TPoint FTopLeft;
	#pragma pack(pop)
	#pragma pack(push,1)
	Types::TPoint FWidthHeight;
	#pragma pack(pop)
	Classes::TNotifyEvent FOnEndMoveSize;
	Controls::TCursor FOldCursor;
	bool FInMove;
	Picturecontainer::TPictureContainer* FContainer;
	Picturecontainer::THTMLPictureCache* FImageCache;
	bool FShowMoveCursor;
	Graphics::TBitmap* FShadedHeader;
	bool FIsWinXP;
	bool FFreeOnClose;
	bool FIsCollapsing;
	Classes::TNotifyEvent FOnCaptionDblClick;
	int FCollapsDelay;
	int FCollapsSteps;
	Graphics::TColor FCollapsColor;
	TAutoSize* FAutoSize;
	bool FAutoHideChildren;
	bool FCanUpdate;
	Graphics::TColor FColorTo;
	Graphics::TColor FBorderColor;
	int FIndex;
	bool FBuffered;
	bool FBorderShadow;
	int FIndent;
	int FTopIndent;
	int FLineSpacing;
	bool FEllipsis;
	TAdvPanelStyler* FStyler;
	Classes::TNotifyEvent FOnEndCollapsExpand;
	int FOldWidth;
	int FOldHeight;
	TPaintEvent FOnPaint;
	Classes::TNotifyEvent FOnMouseLeave;
	Classes::TNotifyEvent FOnMouseEnter;
	TGradientDirection FGradientDirection;
	bool FHoverCloseBtn;
	bool FHoverMinMaxBtn;
	TPanelStatusBar* FStatusBar;
	Graphics::TColor FColorMirror;
	Graphics::TColor FColorMirrorTo;
	bool FOptimizePaint;
	void __fastcall OnStatusBarChange(System::TObject* Sender);
	HIDESBASE void __fastcall SetText(const AnsiString Value);
	void __fastcall SetBackgroundPosition(const TBackGroundPosition Value);
	void __fastcall SetImage(const Advimage::TAdvImage* Value);
	void __fastcall BackgroundChanged(System::TObject* sender);
	void __fastcall SetCaption(const TPanelCaption* Value);
	void __fastcall SetImages(const Controls::TImageList* Value);
	void __fastcall SetURLColor(const Graphics::TColor Value);
	void __fastcall SetCollaps(const bool Value);
	void __fastcall SetGradientDirection(const TGradientDirection Value);
	int __fastcall GetHeightEx(void);
	void __fastcall SetHeightEx(const int Value);
	AnsiString __fastcall IsAnchor(int x, int y, Types::TRect &hoverrect);
	void __fastcall SetHover(const bool Value);
	HIDESBASE MESSAGE void __fastcall CMHintShow(Messages::TMessage &Msg);
	HIDESBASE MESSAGE void __fastcall CMMouseLeave(Messages::TMessage &Msg);
	HIDESBASE MESSAGE void __fastcall CMMouseEnter(Messages::TMessage &Msg);
	HIDESBASE MESSAGE void __fastcall WMNCHitTest(Messages::TWMNCHitTest &Msg);
	HIDESBASE MESSAGE void __fastcall WMEraseBkGnd(Messages::TMessage &Message);
	MESSAGE void __fastcall WMSizing(Messages::TMessage &Msg);
	HIDESBASE MESSAGE void __fastcall WMSize(Messages::TMessage &Msg);
	MESSAGE void __fastcall WMMoving(Messages::TMessage &Msg);
	MESSAGE void __fastcall WMExitSizeMove(Messages::TMessage &Msg);
	HIDESBASE MESSAGE void __fastcall WMSetCursor(Messages::TWMSetCursor &Msg);
	MESSAGE void __fastcall WMLDblClk(Messages::TWMMouse &Message);
	HIDESBASE MESSAGE void __fastcall WMPaint(Messages::TWMPaint &Msg);
	void __fastcall SetShadowColor(const Graphics::TColor Value);
	void __fastcall SetShadowOffset(const int Value);
	void __fastcall SetCanSize(const bool Value);
	void __fastcall SetTextVAlign(const TTextVAlignment Value);
	void __fastcall ShowHideChildren(bool Show);
	void __fastcall SetAutoSizeEx(const TAutoSize* Value);
	void __fastcall SetColorTo(const Graphics::TColor Value);
	void __fastcall SetColorMirror(const Graphics::TColor Value);
	void __fastcall SetColorMirrorTo(const Graphics::TColor Value);
	void __fastcall SetEllipsis(const bool Value);
	void __fastcall SetBorderColor(const Graphics::TColor Value);
	void __fastcall SetIndex(const int Value);
	void __fastcall CaptionChange(System::TObject* Sender);
	void __fastcall CaptionStateChange(System::TObject* Sender);
	void __fastcall CaptionShadeChange(System::TObject* Sender);
	void __fastcall CaptionPositionChange(System::TObject* Sender);
	void __fastcall SetBorderShadow(const bool Value);
	void __fastcall SetIndent(const int Value);
	void __fastcall SetTopIndent(const int Value);
	void __fastcall SetStyler(const TAdvPanelStyler* Value);
	void __fastcall SetLineSpacing(const int Value);
	AnsiString __fastcall GetRawText();
	AnsiString __fastcall GetVersionComp();
	void __fastcall SetVersion(const AnsiString Value);
	int __fastcall GetVersionNr(void);
	void __fastcall SetStatusBar(TPanelStatusBar* Value);
	int __fastcall GetWidthEx(void);
	void __fastcall SetWidthEx(int Value);
	
protected:
	virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation AOperation);
	DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
	bool __fastcall DoVisualStyles(void);
	virtual void __fastcall Paint(void);
	DYNAMIC void __fastcall Resize(void);
	void __fastcall DrawCaptionBkg(Graphics::TCanvas* Canvas, const Types::TRect &r);
	virtual void __fastcall ShadeHeader(void);
	virtual void __fastcall WndProc(Messages::TMessage &Message);
	virtual void __fastcall CreateWnd(void);
	virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
	void __fastcall StoreFullHeight(Classes::TWriter* Writer);
	void __fastcall LoadFullHeight(Classes::TReader* Reader);
	virtual void __fastcall AlignControls(Controls::TControl* AControl, Types::TRect &Rect);
	void __fastcall DoAutoSize(void);
	virtual void __fastcall StateChange(void);
	void __fastcall AssignSettings(TAdvPanelSettings* Settings);
	void __fastcall AssignStyle(TAdvPanelSettings* Settings);
	DYNAMIC void __fastcall ChangeScale(int M, int D);
	
public:
	__fastcall virtual TCustomAdvPanel(Classes::TComponent* AOwner);
	virtual void __fastcall SetBounds(int ALeft, int ATop, int AWidth, int AHeight);
	__fastcall virtual ~TCustomAdvPanel(void);
	virtual void __fastcall Loaded(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	void __fastcall LoadPosition(void);
	void __fastcall SavePosition(void);
	void __fastcall Synchronize(void);