rm_dsgctrls.hpp

这是一个功能强大

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

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

#ifndef Rm_dsgctrlsHPP
#define Rm_dsgctrlsHPP

#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 <Sysutils.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Stdctrls.hpp>	// Pascal unit
#include <Extctrls.hpp>	// Pascal unit
#include <Buttons.hpp>	// Pascal unit
#include <Comctrls.hpp>	// Pascal unit
#include <Commctrl.hpp>	// Pascal unit
#include <Menus.hpp>	// Pascal unit
#include <Rm_ctrls.hpp>	// Pascal unit
#include <Rm_common.hpp>	// Pascal unit
#include <Imglist.hpp>	// Pascal unit
#include <Rm_tb97ctls.hpp>	// Pascal unit
#include <Rm_tb97tlbr.hpp>	// Pascal unit
#include <Rm_tb97.hpp>	// Pascal unit
#include <Rm_tb97tlwn.hpp>	// Pascal unit

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

namespace Rm_dsgctrls
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum tbResizeKind { rkNone, rkTop, rkLeft, rkBottom, rkRight };
#pragma option pop

typedef Rm_tb97::TDockPosition TRMDockPosition;

typedef Rm_tb97::TToolWindowSizeHandle TRMToolWindowSizeHandle;

typedef TPanel TRMPanel;
;

typedef TPageControl TRMPageControl;
;

class DELPHICLASS TRMTabControl;
class PASCALIMPLEMENTATION TRMTabControl : public Comctrls::TTabControl 
{
	typedef Comctrls::TTabControl inherited;
	
private:
	AnsiString __fastcall GetTabsCaption(int Index);
	void __fastcall SetTabsCaption(int Index, AnsiString Value);
	
public:
	__fastcall virtual TRMTabControl(Classes::TComponent* AOwner);
	int __fastcall AddTab(const AnsiString S);
	__property AnsiString TabsCaption[int Index] = {read=GetTabsCaption, write=SetTabsCaption};
public:
	#pragma option push -w-inl
	/* TCustomTabControl.Destroy */ inline __fastcall virtual ~TRMTabControl(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TRMTabControl(HWND ParentWindow) : Comctrls::TTabControl(ParentWindow) { }
	#pragma option pop
	
};


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


class DELPHICLASS TRMResizeableToolWindow;
class PASCALIMPLEMENTATION TRMResizeableToolWindow : public Rm_tb97tlwn::TToolWindow97 
{
	typedef Rm_tb97tlwn::TToolWindow97 inherited;
	
private:
	Rm_tb97::TDock97* __fastcall GetCurrentDock(void);
	bool __fastcall DockedSizingLoop(int X, int Y);
	tbResizeKind __fastcall GetResizeKind(int X, int Y);
	HIDESBASE void __fastcall DrawDraggingOutline(const HDC DC, const Types::PRect NewRect, const Types::PRect OldRect, const bool NewDocking, const bool OldDocking);
	
protected:
	virtual void __fastcall AdjustClientRect(Types::TRect &Rect);
	MESSAGE void __fastcall WM__LButtonDown(Messages::TWMMouse &Msg);
	MESSAGE void __fastcall WM__NCLButtonDown(Messages::TWMMouse &Msg);
	MESSAGE void __fastcall WM__SetCursor(Messages::TWMSetCursor &Message);
	void __fastcall GetMinMaxSize(int &AMinClientWidth, int &AMinClientHeight, int &AMaxClientWidth, int &AMaxClientHeight);
	__property Rm_tb97::TDock97* CurrentDock = {read=GetCurrentDock};
public:
	#pragma option push -w-inl
	/* TToolWindow97.Create */ inline __fastcall virtual TRMResizeableToolWindow(Classes::TComponent* AOwner) : Rm_tb97tlwn::TToolWindow97(AOwner) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TCustomToolWindow97.Destroy */ inline __fastcall virtual ~TRMResizeableToolWindow(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TRMResizeableToolWindow(HWND ParentWindow) : Rm_tb97tlwn::TToolWindow97(ParentWindow) { }
	#pragma option pop
	
};


typedef TRMResizeableToolWindow TRMToolWin;
;

typedef TCustomToolWindow97 TRMCustomDockableWindow;
;

#pragma option push -b-
enum TFontDevice { rmfdScreen, rmfdPrinter, rmfdBoth };
#pragma option pop

#pragma option push -b-
enum TFontListOption { rmfoAnsiOnly, rmfoTrueTypeOnly, rmfoFixedPitchOnly, rmfoNoOEMFonts, rmfoOEMFontsOnly, rmfoScalableOnly, rmfoNoSymbolFonts };
#pragma option pop

typedef Set<TFontListOption, rmfoAnsiOnly, rmfoNoSymbolFonts>  TFontListOptions;

class DELPHICLASS TRMFontComboBox;
class PASCALIMPLEMENTATION TRMFontComboBox : public Rm_ctrls::TRMComboBox97 
{
	typedef Rm_ctrls::TRMComboBox97 inherited;
	
private:
	int FFontHeight;
	Graphics::TBitmap* FTrueTypeBMP;
	Graphics::TBitmap* FDeviceBMP;
	Classes::TNotifyEvent FOnChange;
	TFontDevice FDevice;
	bool FUpdate;
	TFontListOptions FOptions;
	void __fastcall SetFontName(const AnsiString NewFontName);
	AnsiString __fastcall GetFontName();
	bool __fastcall GetTrueTypeOnly(void);
	void __fastcall SetDevice(TFontDevice Value);
	void __fastcall SetOptions(TFontListOptions Value);
	void __fastcall SetTrueTypeOnly(bool Value);
	void __fastcall Reset(void);
	HIDESBASE MESSAGE void __fastcall WMFontChange(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall CMFontChange(Messages::TMessage &Message);
	
protected:
	void __fastcall Init(void);
	virtual void __fastcall PopulateList(void);
	DYNAMIC void __fastcall Change(void);
	DYNAMIC void __fastcall Click(void);
	DYNAMIC void __fastcall DoChange(void);
	virtual void __fastcall CreateWnd(void);
	virtual void __fastcall MeasureItem(int Index, int &Height);
	virtual void __fastcall DrawItem(int Index, const Types::TRect &Rect, Windows::TOwnerDrawState State);
	
public:
	__fastcall virtual TRMFontComboBox(Classes::TComponent* AOwner);
	__fastcall virtual ~TRMFontComboBox(void);
	__property Text ;
	
__published:
	__property TFontDevice Device = {read=FDevice, write=SetDevice, default=0};
	__property AnsiString FontName = {read=GetFontName, write=SetFontName};
	__property TFontListOptions Options = {read=FOptions, write=SetOptions, default=0};
	__property bool TrueTypeOnly = {read=GetTrueTypeOnly, write=SetTrueTypeOnly, stored=false, nodefault};
	__property OnChange ;
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TRMFontComboBox(HWND ParentWindow) : Rm_ctrls::TRMComboBox97(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TRMTrackIcon;
class PASCALIMPLEMENTATION TRMTrackIcon : public Controls::TGraphicControl 
{
	typedef Controls::TGraphicControl inherited;
	
private:
	Graphics::TBitmap* TrackBmp;
	AnsiString FBitmapName;
	void __fastcall SetBitmapName(const AnsiString Value);
	
protected:
	virtual void __fastcall Paint(void);
	
public:
	__fastcall virtual TRMTrackIcon(Classes::TComponent* AOwner);
	__fastcall virtual ~TRMTrackIcon(void);
	
__published:
	__property AnsiString BitmapName = {read=FBitmapName, write=SetBitmapName};
};


class DELPHICLASS TRMRuler;
class PASCALIMPLEMENTATION TRMRuler : public Extctrls::TPanel 
{
	typedef Extctrls::TPanel inherited;
	
private:
	Comctrls::TCustomRichEdit* FRichEdit;
	int ScreenPixelsPerInch;
	int FDragOfs;
	HDC FLineDC;
	HPEN FLinePen;
	bool FDragging;
	bool FLineVisible;
	int FLineOfs;
	TRMTrackIcon* FirstInd;
	TRMTrackIcon* LeftInd;
	TRMTrackIcon* RightInd;
	Classes::TNotifyEvent FOnIndChanged;
	void __fastcall DrawLine(void);
	void __fastcall CalcLineOffset(Controls::TControl* Control);
	int __fastcall IndentToRuler(int Indent, bool IsRight);
	int __fastcall RulerToIndent(int RulerPos, bool IsRight);
	void __fastcall OnRulerItemMouseDown(System::TObject* Sender, Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	void __fastcall OnRulerItemMouseMove(System::TObject* Sender, Classes::TShiftState Shift, int X, int Y);
	void __fastcall OnFirstIndMouseUp(System::TObject* Sender, Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	void __fastcall OnLeftIndMouseUp(System::TObject* Sender, Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	void __fastcall OnRightIndMouseUp(System::TObject* Sender, Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	
protected:
	virtual void __fastcall Paint(void);
	
public:
	__fastcall virtual TRMRuler(Classes::TComponent* AOwner);
	void __fastcall UpdateInd(void);
	__property Comctrls::TCustomRichEdit* RichEdit = {read=FRichEdit, write=FRichEdit};
	__property Classes::TNotifyEvent OnIndChanged = {read=FOnIndChanged, write=FOnIndChanged};
public:
	#pragma option push -w-inl
	/* TCustomControl.Destroy */ inline __fastcall virtual ~TRMRuler(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TRMRuler(HWND ParentWindow) : Extctrls::TPanel(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TRMFrameStyleButton;
class PASCALIMPLEMENTATION TRMFrameStyleButton : public Rm_ctrls::TRMPopupWindowButton 
{
	typedef Rm_ctrls::TRMPopupWindowButton inherited;
	
private:
	Rm_ctrls::TRMPopupWindow* FPopup;
	int FCurrentStyle;
	Classes::TNotifyEvent FOnStyleChange;
	void __fastcall SetCurrentStyle(int Value);
	void __fastcall Item_OnClick(System::TObject* Sender);
	
protected:
	virtual Rm_ctrls::TRMPopupWindow* __fastcall GetDropDownPanel(void);
	
public:
	__fastcall virtual TRMFrameStyleButton(Classes::TComponent* aOwner);
	__fastcall virtual ~TRMFrameStyleButton(void);
	__property int CurrentStyle = {read=FCurrentStyle, write=SetCurrentStyle, nodefault};
	__property Classes::TNotifyEvent OnStyleChange = {read=FOnStyleChange, write=FOnStyleChange};
};


class DELPHICLASS TRMNewScrollBox;
class PASCALIMPLEMENTATION TRMNewScrollBox : public Forms::TScrollBox 
{
	typedef Forms::TScrollBox inherited;
	
private:
	Controls::TKeyEvent FOnkeyDown;
	HIDESBASE MESSAGE void __fastcall CNKeydown(Messages::TMessage &Message);
	
protected:
	DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
	
public:
	__fastcall virtual TRMNewScrollBox(Classes::TComponent* AOwner);
	
__published:
	__property Controls::TKeyEvent OnkeyDown = {read=FOnkeyDown, write=FOnkeyDown};
public:
	#pragma option push -w-inl
	/* TScrollingWinControl.Destroy */ inline __fastcall virtual ~TRMNewScrollBox(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TRMNewScrollBox(HWND ParentWindow) : Forms::TScrollBox(ParentWindow) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
static const Shortint AlignmentBorderSize = 0x2;
static const Shortint DockedBorderSize = 0x2;
static const Shortint ResizeBorderSize = 0x4;
extern PACKAGE AnsiString __fastcall RMMinimizeName(const AnsiString Filename, Graphics::TCanvas* Canvas, int MaxLen);
extern PACKAGE void __fastcall RMSaveToolbars(AnsiString aParentKey, Rm_ctrls::TRMToolbar* * t, const int t_Size);
extern PACKAGE void __fastcall RMRestoreToolbars(AnsiString aParentKey, Rm_ctrls::TRMToolbar* * t, const int t_Size);
extern PACKAGE void __fastcall RMSaveToolWinPosition(AnsiString aParentKey, TRMResizeableToolWindow* f);
extern PACKAGE void __fastcall RMRestoreToolWinPosition(AnsiString aParentKey, TRMResizeableToolWindow* f);
extern PACKAGE bool __fastcall RMDirectoryExists(const AnsiString aName);
extern PACKAGE bool __fastcall RMForceDirectories(AnsiString Dir);
extern PACKAGE bool __fastcall RMSelectDirectory(const AnsiString Caption, const WideString Root, AnsiString &Directory);

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

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