rm_tb97tlbr.hpp

这是一个功能强大

// CodeGear C++Builder
// Copyright (c) 1995, 2007 by CodeGear
// All rights reserved

// (DO NOT EDIT: machine generated header) 'Rm_tb97tlbr.pas' rev: 11.00

#ifndef Rm_tb97tlbrHPP
#define Rm_tb97tlbrHPP

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

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

namespace Rm_tb97tlbr
{
//-- type declarations -------------------------------------------------------
struct TToolbarParams
{
	
public:
	bool InitializeOrderByPosition;
	bool DesignOrderByPosition;
} ;

class DELPHICLASS TCustomToolbar97;
class PASCALIMPLEMENTATION TCustomToolbar97 : public Rm_tb97::TCustomToolWindow97 
{
	typedef Rm_tb97::TCustomToolWindow97 inherited;
	
private:
	TToolbarParams FToolbarParams;
	int FFloatingRightX;
	bool FOrderListDirty;
	void *SizeData;
	Classes::TList* SlaveInfo;
	Classes::TList* GroupInfo;
	Classes::TList* LineSeps;
	Classes::TList* OrderList;
	Controls::TControl* __fastcall GetOrderedControls(int Index);
	int __fastcall GetOrderIndex(Controls::TControl* Control);
	void __fastcall SetFloatingWidth(int Value);
	void __fastcall SetOrderIndex(Controls::TControl* Control, int Value);
	void __fastcall CleanOrderList(void);
	void __fastcall SetControlVisible(const Controls::TControl* Control, const bool LeftOrRight);
	bool __fastcall ShouldControlBeVisible(const Controls::TControl* Control, const bool LeftOrRight);
	void __fastcall FreeGroupInfo(const Classes::TList* List);
	void __fastcall BuildGroupInfo(const Classes::TList* List, const bool TranslateSlave, const Rm_tb97::TDockType OldDockType, const Rm_tb97::TDockType NewDockType);
	HIDESBASE MESSAGE void __fastcall CMControlListChange(Controls::TCMControlListChange &Message);
	HIDESBASE MESSAGE void __fastcall WMWindowPosChanging(Messages::TWMWindowPosMsg &Message);
	
protected:
	__property TToolbarParams ToolbarParams = {read=FToolbarParams};
	virtual void __fastcall Paint(void);
	DYNAMIC void __fastcall BuildPotentialSizesList(Classes::TList* SizesList);
	DYNAMIC bool __fastcall ChildControlTransparent(Controls::TControl* Ctl);
	DYNAMIC void __fastcall GetParams(Rm_tb97::TToolWindowParams &Params);
	DYNAMIC void __fastcall GetToolbarParams(TToolbarParams &Params);
	DYNAMIC void __fastcall ResizeBegin(Rm_tb97::TToolWindowSizeHandle ASizeHandle);
	DYNAMIC void __fastcall ResizeTrack(Types::TRect &Rect, const Types::TRect &OrigRect);
	DYNAMIC void __fastcall ResizeEnd(bool Accept);
	virtual void __fastcall GetBarSize(int &ASize, const Rm_tb97::TDockType DockType);
	virtual void __fastcall GetMinimumSize(int &AClientWidth, int &AClientHeight);
	DYNAMIC void __fastcall InitializeOrdering(void);
	virtual Types::TPoint __fastcall OrderControls(bool CanMoveControls, Rm_tb97::TDockType PreviousDockType, Rm_tb97::TDock97* DockingTo);
	
public:
	__property Controls::TControl* OrderedControls[int Index] = {read=GetOrderedControls};
	__property int OrderIndex[Controls::TControl* Control] = {read=GetOrderIndex, write=SetOrderIndex};
	__property int FloatingWidth = {read=FFloatingRightX, write=SetFloatingWidth, nodefault};
	__fastcall virtual TCustomToolbar97(Classes::TComponent* AOwner);
	__fastcall virtual ~TCustomToolbar97(void);
	DYNAMIC void __fastcall ReadPositionData(const Rm_tb97::TPositionReadIntProc ReadIntProc, const Rm_tb97::TPositionReadStringProc ReadStringProc, const void * ExtraData);
	DYNAMIC void __fastcall WritePositionData(const Rm_tb97::TPositionWriteIntProc WriteIntProc, const Rm_tb97::TPositionWriteStringProc WriteStringProc, const void * ExtraData);
	void __fastcall SetSlaveControl(const Controls::TControl* ATopBottom, const Controls::TControl* ALeftRight);
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TCustomToolbar97(HWND ParentWindow) : Rm_tb97::TCustomToolWindow97(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TToolbar97;
class PASCALIMPLEMENTATION TToolbar97 : public TCustomToolbar97 
{
	typedef TCustomToolbar97 inherited;
	
__published:
	__property ActivateParent  = {default=1};
	__property BorderStyle  = {default=1};
	__property Caption ;
	__property Color  = {default=-16777201};
	__property CloseButton  = {default=1};
	__property CloseButtonWhenDocked  = {default=0};
	__property DefaultDock ;
	__property DockableTo  = {default=15};
	__property DockedTo ;
	__property DockMode  = {default=0};
	__property DockPos  = {default=-1};
	__property DockRow  = {default=0};
	__property DragHandleStyle  = {default=0};
	__property FloatingMode  = {default=0};
	__property Font ;
	__property FullSize  = {default=0};
	__property HideWhenInactive  = {default=1};
	__property LastDock ;
	__property ParentFont  = {default=1};
	__property ParentShowHint  = {default=1};
	__property PopupMenu ;
	__property ShowCaption  = {default=1};
	__property ShowHint ;
	__property TabOrder  = {default=-1};
	__property UseLastDock  = {default=1};
	__property Version ;
	__property Visible  = {default=1};
	__property OnClose ;
	__property OnCloseQuery ;
	__property OnDragDrop ;
	__property OnDragOver ;
	__property OnMouseDown ;
	__property OnMouseMove ;
	__property OnMouseUp ;
	__property OnMove ;
	__property OnRecreated ;
	__property OnRecreating ;
	__property OnDockChanged ;
	__property OnDockChanging ;
	__property OnDockChangingEx ;
	__property OnDockChangingHidden ;
	__property OnResize ;
	__property OnVisibleChanged ;
public:
	#pragma option push -w-inl
	/* TCustomToolbar97.Create */ inline __fastcall virtual TToolbar97(Classes::TComponent* AOwner) : TCustomToolbar97(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomToolbar97.Destroy */ inline __fastcall virtual ~TToolbar97(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TToolbar97(HWND ParentWindow) : TCustomToolbar97(ParentWindow) { }
	#pragma option pop
	
};


typedef int TToolbarSepSize;

class DELPHICLASS TToolbarSep97;
class PASCALIMPLEMENTATION TToolbarSep97 : public Controls::TGraphicControl 
{
	typedef Controls::TGraphicControl inherited;
	
private:
	bool FBlank;
	TToolbarSepSize FSizeHorz;
	TToolbarSepSize FSizeVert;
	void __fastcall SetBlank(bool Value);
	void __fastcall SetSizeHorz(TToolbarSepSize Value);
	void __fastcall SetSizeVert(TToolbarSepSize Value);
	
protected:
	DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	virtual void __fastcall Paint(void);
	virtual void __fastcall SetParent(Controls::TWinControl* AParent);
	
public:
	__fastcall virtual TToolbarSep97(Classes::TComponent* AOwner);
	
__published:
	__property Width  = {stored=false};
	__property Height  = {stored=false};
	__property bool Blank = {read=FBlank, write=SetBlank, default=0};
	__property TToolbarSepSize SizeHorz = {read=FSizeHorz, write=SetSizeHorz, default=6};
	__property TToolbarSepSize SizeVert = {read=FSizeVert, write=SetSizeVert, default=6};
	__property Visible  = {default=1};
public:
	#pragma option push -w-inl
	/* TGraphicControl.Destroy */ inline __fastcall virtual ~TToolbarSep97(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
static const Shortint tb97DefaultBarWidthHeight = 0x8;
static const Shortint tb97TopMarginFloating = 0x2;
static const Shortint tb97TopMarginDocked = 0x0;
extern PACKAGE int tb97TopMargin[2];
static const Shortint tb97BottomMarginFloating = 0x1;
static const Shortint tb97BottomMarginDocked = 0x0;
extern PACKAGE int tb97BottomMargin[2];
static const Shortint tb97LeftMarginFloating = 0x4;
static const Shortint tb97LeftMarginDocked = 0x0;
extern PACKAGE int tb97LeftMargin[2];
static const Shortint tb97RightMarginFloating = 0x4;
static const Shortint tb97RightMarginDocked = 0x0;
extern PACKAGE int tb97RightMargin[2];
static const Shortint tb97LineSpacing = 0x6;

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

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