acsbutils.hpp

I mComputermaster programmisDelphi+pascal

	#pragma option pop
	
};


class DELPHICLASS TacComboBoxWnd;
class PASCALIMPLEMENTATION TacComboBoxWnd : public TacEditWnd 
{
	typedef TacEditWnd inherited;
	
public:
	HWND FListHandle;
	void *FDefListProc;
	Scommondata::TsCommonData* LBSkinData;
	TacComboListWnd* ListSW;
	bool __fastcall DroppedDown(void);
	int __fastcall ButtonHeight(void);
	virtual Types::TRect __fastcall ButtonRect();
	void __fastcall PaintButton(HDC DC);
	void __fastcall RepaintButton(void);
	void __fastcall PaintText(void);
	void __fastcall PrepareSimple(void);
	__fastcall virtual TacComboBoxWnd(HWND AHandle, Scommondata::TsCommonData* ASkinData, Sskinmanager::TsSkinManager* ASkinManager, const AnsiString SkinSection, bool Repaint);
	__fastcall virtual ~TacComboBoxWnd(void);
	virtual void __fastcall acWndProc(Messages::TMessage &Message);
};


class DELPHICLASS TacVirtualTreeViewWnd;
class PASCALIMPLEMENTATION TacVirtualTreeViewWnd : public TacEditWnd 
{
	typedef TacEditWnd inherited;
	
public:
	Graphics::TColor CompressedTextColor;
	Graphics::TColor FileTextColor;
	Graphics::TColor FolderTextColor;
	bool OwnerDraw;
	Typinfo::TPropInfo *PropInfo;
	void __fastcall AdvancedHeaderDraw(Classes::TPersistent* Sender, THeaderPaintInfo &PaintInfo, const THeaderPaintElements Elements);
	void __fastcall HeaderDrawQueryElements(Classes::TPersistent* Sender, THeaderPaintInfo &PaintInfo, THeaderPaintElements &Elements);
	virtual void __fastcall SaveStdParams(void);
	virtual void __fastcall SetSkinParams(void);
	virtual void __fastcall RestoreStdParams(void);
	tagSIZE __fastcall GetBorderDimensions();
	virtual void __fastcall acWndProc(Messages::TMessage &Message);
public:
	#pragma option push -w-inl
	/* TacEditWnd.Create */ inline __fastcall virtual TacVirtualTreeViewWnd(HWND AHandle, Scommondata::TsCommonData* ASkinData, Sskinmanager::TsSkinManager* ASkinManager, const AnsiString SkinSection, bool Repaint) : TacEditWnd(AHandle, ASkinData, ASkinManager, SkinSection, Repaint) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TacScrollWnd.Destroy */ inline __fastcall virtual ~TacVirtualTreeViewWnd(void) { }
	#pragma option pop
	
};


class DELPHICLASS TacWWComboBoxWnd;
class PASCALIMPLEMENTATION TacWWComboBoxWnd : public TacComboBoxWnd 
{
	typedef TacComboBoxWnd inherited;
	
private:
	bool FShowButton;
	bool __fastcall GetShowButton(Controls::TWinControl* aCtrl);
	
public:
	virtual Types::TRect __fastcall ButtonRect();
	__fastcall TacWWComboBoxWnd(Controls::TWinControl* aCtrl, Scommondata::TsCommonData* ASkinData, Sskinmanager::TsSkinManager* ASkinManager, AnsiString SkinSection, bool Repaint);
public:
	#pragma option push -w-inl
	/* TacComboBoxWnd.Destroy */ inline __fastcall virtual ~TacWWComboBoxWnd(void) { }
	#pragma option pop
	
};


class DELPHICLASS TacTabControlWnd;
class PASCALIMPLEMENTATION TacTabControlWnd : public TacMainWnd 
{
	typedef TacMainWnd inherited;
	
public:
	TacSpinWnd* BtnSW;
	int __fastcall TabCount(void);
	virtual Types::TRect __fastcall ClientRect();
	virtual Types::TRect __fastcall PageRect();
	Types::TRect __fastcall TabRect(const int Index);
	int __fastcall TabRow(int TabIndex);
	Types::TRect __fastcall TabsRect();
	Comctrls::TTabPosition __fastcall TabPosition(void);
	Comctrls::TTabStyle __fastcall Style(void);
	int __fastcall ActiveTabIndex(void);
	Types::TRect __fastcall SkinTabRect(int Index, bool Active);
	void __fastcall CheckUpDown(void);
	void __fastcall DrawSkinTabs(const Sconst::TCacheInfo &CI);
	void __fastcall DrawSkinTab(int Index, int State, Graphics::TBitmap* Bmp, const Types::TPoint &OffsetPoint)/* overload */;
	void __fastcall DrawSkinTab(int Index, int State, HDC DC)/* overload */;
	void __fastcall AC_WMPaint(Messages::TWMPaint &Message);
	__fastcall virtual ~TacTabControlWnd(void);
	virtual void __fastcall acWndProc(Messages::TMessage &Message);
public:
	#pragma option push -w-inl
	/* TacMainWnd.Create */ inline __fastcall virtual TacTabControlWnd(HWND AHandle, Scommondata::TsCommonData* ASkinData, Sskinmanager::TsSkinManager* ASkinManager, const AnsiString SkinSection, bool Repaint) : TacMainWnd(AHandle, ASkinData, ASkinManager, SkinSection, Repaint) { }
	#pragma option pop
	
};


class DELPHICLASS TacPageWnd;
class PASCALIMPLEMENTATION TacPageWnd : public TacMainWnd 
{
	typedef TacMainWnd inherited;
	
public:
	Comctrls::TTabPosition __fastcall TabPosition(void);
	void __fastcall PrepareCache(void);
	void __fastcall AC_WMEraseBKGnd(Messages::TWMPaint &Message);
	virtual void __fastcall acWndProc(Messages::TMessage &Message);
public:
	#pragma option push -w-inl
	/* TacMainWnd.Create */ inline __fastcall virtual TacPageWnd(HWND AHandle, Scommondata::TsCommonData* ASkinData, Sskinmanager::TsSkinManager* ASkinManager, const AnsiString SkinSection, bool Repaint) : TacMainWnd(AHandle, ASkinData, ASkinManager, SkinSection, Repaint) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TacMainWnd.Destroy */ inline __fastcall virtual ~TacPageWnd(void) { }
	#pragma option pop
	
};


class DELPHICLASS TacPageControlWnd;
class PASCALIMPLEMENTATION TacPageControlWnd : public TacTabControlWnd 
{
	typedef TacTabControlWnd inherited;
	
public:
	virtual Types::TRect __fastcall ClientRect();
	virtual Types::TRect __fastcall PageRect();
	void __fastcall InitPages(bool Skinned);
	virtual void __fastcall acWndProc(Messages::TMessage &Message);
public:
	#pragma option push -w-inl
	/* TacTabControlWnd.Destroy */ inline __fastcall virtual ~TacPageControlWnd(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TacMainWnd.Create */ inline __fastcall virtual TacPageControlWnd(HWND AHandle, Scommondata::TsCommonData* ASkinData, Sskinmanager::TsSkinManager* ASkinManager, const AnsiString SkinSection, bool Repaint) : TacTabControlWnd(AHandle, ASkinData, ASkinManager, SkinSection, Repaint) { }
	#pragma option pop
	
};


class DELPHICLASS TacToolBarVCLWnd;
class PASCALIMPLEMENTATION TacToolBarVCLWnd : public TacMainWnd 
{
	typedef TacMainWnd inherited;
	
public:
	Comctrls::TToolBar* ToolBar;
	Comctrls::TToolButton* DroppedButton;
	int HotButtonIndex;
	Types::TRect __fastcall DisplayRect();
	void __fastcall WMNCPaint(const HDC aDC = (HDC)(0x0));
	Types::TRect __fastcall GetButtonRect(int Index);
	__fastcall virtual TacToolBarVCLWnd(HWND AHandle, Scommondata::TsCommonData* ASkinData, Sskinmanager::TsSkinManager* ASkinManager, const AnsiString SkinSection, bool Repaint);
	void __fastcall PrepareCache(void);
	int __fastcall IndexByMouse(const Types::TPoint &MousePos);
	void __fastcall RepaintButton(int Index);
	void __fastcall OurAdvancedCustomDraw(Comctrls::TToolBar* Sender, const Types::TRect &ARect, Comctrls::TCustomDrawStage Stage, bool &DefaultDraw);
	void __fastcall OurAdvancedCustomDrawButton(Comctrls::TToolBar* Sender, Comctrls::TToolButton* Button, Comctrls::TCustomDrawState State, Comctrls::TCustomDrawStage Stage, Comctrls::TTBCustomDrawFlags &Flags, bool &DefaultDraw);
	virtual void __fastcall acWndProc(Messages::TMessage &Message);
public:
	#pragma option push -w-inl
	/* TacMainWnd.Destroy */ inline __fastcall virtual ~TacToolBarVCLWnd(void) { }
	#pragma option pop
	
};


class DELPHICLASS TacStatusBarWnd;
class PASCALIMPLEMENTATION TacStatusBarWnd : public TacMainWnd 
{
	typedef TacMainWnd inherited;
	
public:
	Comctrls::TStatusBar* StatusBar;
	bool __fastcall SimplePanel(void);
	int __fastcall PartsCount(void);
	AnsiString __fastcall PartText(const int Index);
	Types::TRect __fastcall PartRect(const int Index);
	__fastcall virtual TacStatusBarWnd(HWND AHandle, Scommondata::TsCommonData* ASkinData, Sskinmanager::TsSkinManager* ASkinManager, const AnsiString SkinSection, bool Repaint);
	void __fastcall PaintPanels(void);
	void __fastcall DrawPanel(const int Index, const Types::TRect &Rect);
	void __fastcall InternalDrawPanel(const int Index, const AnsiString Text, const Types::TRect &Rect);
	void __fastcall DoDrawText(const AnsiString Text, Types::TRect &Rect, const int Flags);
	void __fastcall PrepareCache(void);
	void __fastcall WMPaint(const HDC aDC = (HDC)(0x0));
	void __fastcall WMNCPaint(const HDC aDC = (HDC)(0x0));
	virtual void __fastcall acWndProc(Messages::TMessage &Message);
public:
	#pragma option push -w-inl
	/* TacMainWnd.Destroy */ inline __fastcall virtual ~TacStatusBarWnd(void) { }
	#pragma option pop
	
};


class DELPHICLASS TacWinControl;
class PASCALIMPLEMENTATION TacWinControl : public Controls::TWinControl 
{
	typedef Controls::TWinControl inherited;
	
public:
	#pragma option push -w-inl
	/* TWinControl.Create */ inline __fastcall virtual TacWinControl(Classes::TComponent* AOwner) : Controls::TWinControl(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TacWinControl(HWND ParentWindow) : Controls::TWinControl(ParentWindow) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TWinControl.Destroy */ inline __fastcall virtual ~TacWinControl(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
#define acPropStr "ACSBSC"
static const Shortint CSBS_NORMAL = 0x0;
static const Shortint CSBS_HOTTRACKED = 0x2;
static const Shortint CSBS_THUMBALWAYS = 0x4;
static const Shortint CSBS_VISIBLE = 0x8;
static const Shortint THUMBTRACK_SNAPDIST = 0x18;
static const Shortint MINTHUMBSIZE_NT4 = 0x8;
static const Shortint MINTHUMBSIZE_2000 = 0x6;
static const Shortint SM_CXVERTSB = 0x1;
static const Shortint SM_CYVERTSB = 0x0;
static const Shortint SM_CXHORZSB = 0x0;
static const Shortint SM_CYHORZSB = 0x1;
static const Shortint SM_SCROLL_LENGTH = 0x0;
static const Shortint COOLSB_NONE = 0xffffffff;
static const Shortint HTSCROLL_NONE = 0xffffffff;
static const Shortint HTSCROLL_NORMAL = 0xffffffff;
static const Shortint SYSTEM_METRIC = 0xffffffff;
static const Shortint HTSCROLL_LEFT = 0x0;
static const Shortint HTSCROLL_UP = 0x0;
static const Shortint HTSCROLL_DOWN = 0x1;
static const Shortint HTSCROLL_RIGHT = 0x1;
static const Shortint HTSCROLL_THUMB = 0x5;
static const Shortint HTSCROLL_PAGELEFT = 0x2;
static const Shortint HTSCROLL_PAGERIGHT = 0x3;
static const Shortint HTSCROLL_PAGEUP = 0x2;
static const Shortint HTSCROLL_PAGEDOWN = 0x3;
static const Word COOLSB_TIMERID1 = 0xfffd;
static const Word COOLSB_TIMERID2 = 0xfffe;
static const Word COOLSB_TIMERID3 = 0xfff2;
static const Word COOLSB_TIMERINTERVAL1 = 0x12c;
static const Shortint COOLSB_TIMERINTERVAL2 = 0x37;
static const Shortint COOLSB_TIMERINTERVAL3 = 0x14;
#define acColor "Color"
#define acTitleFont "TitleFont"
#define acFont "Font"
#define acFixedFont "FixedFont"
#define acFixedColor "FixedColor"
#define acHeaderFont "HeaderFont"
#define acColumns "Columns"
#define acIndColor "IndicatorIconColor"
#define acFooterColor "FooterColor"
#define acFooterCellColor "FooterCellColor"
#define acTitleColor "TitleColor"
#define acVETColors "VETColors"
#define acCompressedTextColor "CompressedTextColor"
#define acFileTextColor "FileTextColor"
#define acFolderTextColor "FolderTextColor"
#define acTDBAdvGrid "TDBAdvGrid"
#define acOptions "Options"
#define acHeader "Header"
static const Shortint PreviewBorderWidth = 0x6;
extern PACKAGE int nLastSBPos;
extern PACKAGE bool acDlgMode;
extern PACKAGE bool inPaint;
extern PACKAGE void __fastcall InitCtrlData(HWND Wnd, HWND &ParentWnd, Types::TRect &WndRect, Types::TRect &ParentRect, tagSIZE &WndSize, Types::TPoint &WndPos, const AnsiString Caption);
extern PACKAGE void __fastcall RefreshScrolls(Scommondata::TsCommonData* SkinData, TacScrollWnd* &ListSW);
extern PACKAGE void __fastcall RefreshEditScrolls(Scommondata::TsCommonData* SkinData, TacScrollWnd* &ListSW);
extern PACKAGE void __fastcall RefreshTreeScrolls(Scommondata::TsCommonData* SkinData, TacScrollWnd* &ListSW);
extern PACKAGE void __fastcall UpdateScrolls(TacScrollWnd* sw, bool Repaint = false);
extern PACKAGE void __fastcall PrepareCache(Scommondata::TsCommonData* SkinData, HWND CtrlHandle = (HWND)(0x0), bool DlgMode = false);
extern PACKAGE void __fastcall UninitializeACScroll(HWND Handle, bool FreeSW, bool Repaint, TacScrollWnd* &ListSW);
extern PACKAGE void __fastcall InitControl(HWND Handle, Scommondata::TsCommonData* ASkinData, Sskinmanager::TsSkinManager* ASkinManager);
extern PACKAGE bool __fastcall Scrolls_SetStyle(HWND Handle, int wBar, int nStyle);
extern PACKAGE void __fastcall InitializeACScrolls(TacScrollWnd* sw, HWND AHandle, bool Repaint = true);
extern PACKAGE void __fastcall InitializeACWnd(TacMainWnd* sw, HWND AHandle);
extern PACKAGE void __fastcall UninitializeACWnd(HWND Handle, bool FreeSW, bool Repaint, TacMainWnd* &ListSW);
extern PACKAGE TacScrollWnd* __fastcall HookScrollWnd(HWND Handle, Sskinmanager::TsSkinManager* ASkinManager, Scommondata::TsCommonData* ASkinData = (Scommondata::TsCommonData*)(0x0));
extern PACKAGE int __fastcall Ac_SetScrollInfo(HWND Handle, int fnBar, const tagSCROLLINFO &si, bool fRedraw);
extern PACKAGE void __fastcall Ac_RedrawNonClient(HWND Handle, bool fFrameChanged);
extern PACKAGE TacScrollWnd* __fastcall Ac_GetScrollWndFromHwnd(HWND Handle);
extern PACKAGE TacScrollBar* __fastcall Ac_GetScrollBarFromHwnd(HWND Handle, Word nBar);
extern PACKAGE int __fastcall Ac_GetDefaultMinThumbSize(void);
extern PACKAGE bool __fastcall Ac_SetMinThumbSize(HWND Handle, Word wBar, Word Size);
extern PACKAGE int __fastcall GetScrollMetric(TacScrollBar* sBar, int metric, bool Btn = false);
extern PACKAGE void __fastcall AC_GetHScrollRect(TacScrollWnd* sw, HWND Handle, Types::TRect &R);
extern PACKAGE void __fastcall AC_GetVScrollRect(TacScrollWnd* sw, HWND Handle, Types::TRect &R);
extern PACKAGE int __fastcall Ac_NCPaint(TacScrollWnd* sw, HWND Handle, int wParam, int lParam, int ThumbPos = 0xffffffff, HDC aDC = (HDC)(0x0));
extern PACKAGE int __fastcall Ac_NCDrawHScrollbar(TacScrollBar* sb, HWND Handle, HDC DC, const Types::TRect &R, int uDrawFlags, int SliderPos = 0xffffffff);
extern PACKAGE int __fastcall Ac_NCDrawVScrollbar(TacScrollBar* sb, HWND Handle, HDC DC, const Types::TRect &R, int uDrawFlags, int SliderPos = 0xffffffff);
extern PACKAGE int __fastcall Ac_NCDrawScrollbar(TacScrollBar* sb, HWND Handle, HDC DC, const Types::TRect &R, int uDrawFlags, int ThumbPos = 0xffffffff);
extern PACKAGE int __fastcall Ac_NCCalcSize(TacScrollWnd* sw, HWND Handle, int wParam, int lParam);
extern PACKAGE int __fastcall Ac_Notify(TacScrollWnd* sw, HWND Handle, int wParam, int lParam);
extern PACKAGE int __fastcall Ac_ThumbTrackHorz(TacScrollBar* sbar, HWND Handle, int x, int y);
extern PACKAGE int __fastcall Ac_ThumbTrackVert(TacScrollBar* sbar, HWND Handle, int x, int y);
extern PACKAGE int __fastcall Ac_MouseMove(TacScrollWnd* sw, HWND Handle, int wParam, int lParam);
extern PACKAGE int __fastcall Ac_SetCursor(TacScrollWnd* sw, HWND Handle, int &wParam, int &lParam);
extern PACKAGE int __fastcall Ac_StyleChange(TacScrollWnd* sw, HWND Handle, int wParam, int lParam);
extern PACKAGE int __fastcall Ac_NCHitTest(TacScrollWnd* sw, HWND Handle, int wParam, int lParam);
extern PACKAGE int __fastcall Ac_GetHorzPortion(TacScrollBar* sb, HWND Handle, const Types::TRect &R, int x, int y);
extern PACKAGE int __fastcall Ac_GetVertPortion(TacScrollBar* sb, HWND Handle, const Types::TRect &R, int x, int y);
extern PACKAGE int __fastcall Ac_CalcThumbSize(TacScrollBar* sb, const Types::TRect &R, int &pthumbsize, int &pthumbpos, bool Ext = false);
extern PACKAGE bool __fastcall Ac_IsScrollInfoActive(const tagSCROLLINFO &si);
extern PACKAGE bool __fastcall Ac_IsScrollbarActive(TacScrollBar* sb);
extern PACKAGE int __fastcall Ac_GetHorzScrollPortion(TacScrollBar* sb, HWND Handle, const Types::TRect &R, int x, int y);
extern PACKAGE int __fastcall Ac_GetVertScrollPortion(TacScrollBar* sb, HWND Handle, const Types::TRect &R, int x, int y);
extern PACKAGE void __fastcall Ac_GetRealScrollRect(TacScrollBar* sb, Types::TRect &R);
extern PACKAGE Types::TRect __fastcall RotateRect0(TacScrollBar* sb, Types::TRect &R);
extern PACKAGE void __fastcall SendScrollMessage(HWND Handle, int scrMsg, int scrId, int pos);
extern PACKAGE int __fastcall Ac_NCLButtonDown(TacScrollWnd* sw, HWND Handle, int wParam, int lParam);
extern PACKAGE int __fastcall Ac_LButtonUp(TacScrollWnd* sw, HWND Handle, int wParam, int lParam);
extern PACKAGE int __fastcall Ac_Timer(TacScrollWnd* sw, HWND Handle, int wTimerId, int lParam);

}	/* namespace Acsbutils */
using namespace Acsbutils;
#pragma option pop	// -w-
#pragma option pop	// -Vx

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