rm_ctrls.hpp

这是一个功能强大

	__property Controls::TControl* Caller = {read=FCaller};
	
__published:
	__property Classes::TNotifyEvent OnClose = {read=FOnClose, write=FOnClose};
	__property Classes::TNotifyEvent OnPopup = {read=FOnPopup, write=FOnPopup};
public:
	#pragma option push -w-inl
	/* TCustomForm.Create */ inline __fastcall virtual TRMPopupWindow(Classes::TComponent* AOwner) : Forms::TForm(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomForm.Destroy */ inline __fastcall virtual ~TRMPopupWindow(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TRMPopupWindow(HWND ParentWindow) : Forms::TForm(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TRMPopupWindowButton;
class PASCALIMPLEMENTATION TRMPopupWindowButton : public TRMToolbarButton 
{
	typedef TRMToolbarButton inherited;
	
private:
	bool FActive;
	TRMPopupWindow* FDropDownPanel;
	void __fastcall SetActive(bool aValue);
	void __fastcall DropdownPanel_OnClose(System::TObject* Sender);
	void __fastcall ShowDropDownPanel(void);
	
protected:
	virtual TRMPopupWindow* __fastcall GetDropDownPanel(void);
	void __fastcall SetDropdownPanel(TRMPopupWindow* Value);
	
public:
	__fastcall virtual TRMPopupWindowButton(Classes::TComponent* AOwner);
	DYNAMIC void __fastcall Click(void);
	__property bool Active = {read=FActive, write=SetActive, nodefault};
	
__published:
	__property TRMPopupWindow* DropDownPanel = {read=GetDropDownPanel, write=SetDropdownPanel};
public:
	#pragma option push -w-inl
	/* TToolbarButton97.Destroy */ inline __fastcall virtual ~TRMPopupWindowButton(void) { }
	#pragma option pop
	
};


#pragma option push -b-
enum TRMColorType { rmptFont, rmptLine, rmptFill, rmptHighlight, rmptCustom };
#pragma option pop

class DELPHICLASS TRMColorSpeedButton;
class PASCALIMPLEMENTATION TRMColorSpeedButton : public TRMToolbarButton 
{
	typedef TRMToolbarButton inherited;
	
private:
	Graphics::TColor FCurColor;
	
protected:
	virtual void __fastcall Paint(void);
	
__published:
	__property Graphics::TColor CurColor = {read=FCurColor, write=FCurColor, nodefault};
public:
	#pragma option push -w-inl
	/* TToolbarButton97.Create */ inline __fastcall virtual TRMColorSpeedButton(Classes::TComponent* AOwner) : TRMToolbarButton(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TToolbarButton97.Destroy */ inline __fastcall virtual ~TRMColorSpeedButton(void) { }
	#pragma option pop
	
};


class DELPHICLASS TRMColorPickerButton;
class PASCALIMPLEMENTATION TRMColorPickerButton : public TRMPopupWindowButton 
{
	typedef TRMPopupWindowButton inherited;
	
private:
	TRMPopupWindow* FPopup;
	TRMColorSpeedButton* FColorButtons[40];
	TRMColorSpeedButton* FAutoButton;
	TRMToolbarButton* FOtherButton;
	Dialogs::TColorDialog* FColorDialog;
	TRMColorType FColorType;
	Graphics::TColor FCurrentColor;
	Graphics::TColor FAutoColor;
	AnsiString FAutoCaption;
	int FHoriMargin;
	int FTopMargin;
	int FBottomMargin;
	int FDragBarHeight;
	int FDragBarSpace;
	int FButtonHeight;
	int FColorSpace;
	int FColorSize;
	int FColorSpaceTop;
	int FColorSpaceBottom;
	Classes::TNotifyEvent FOnColorChange;
	void __fastcall ColorButtonClick(System::TObject* Sender);
	void __fastcall DrawButtonGlyph(Graphics::TColor aColor);
	void __fastcall SetSelectedColor(const Graphics::TColor Value);
	void __fastcall SetColorType(const TRMColorType Value);
	Classes::TStrings* __fastcall GetCustomColors(void);
	void __fastcall SetCustomColors(const Classes::TStrings* Value);
	
protected:
	virtual TRMPopupWindow* __fastcall GetDropDownPanel(void);
	
public:
	__fastcall virtual TRMColorPickerButton(Classes::TComponent* AOwner);
	__fastcall virtual ~TRMColorPickerButton(void);
	
__published:
	__property int TopMargin = {read=FTopMargin, write=FTopMargin, nodefault};
	__property int BottomMargin = {read=FBottomMargin, write=FBottomMargin, nodefault};
	__property int HoriMargin = {read=FHoriMargin, write=FHoriMargin, nodefault};
	__property int DragBarHeight = {read=FDragBarHeight, write=FDragBarHeight, nodefault};
	__property int DragBarSpace = {read=FDragBarSpace, write=FDragBarSpace, nodefault};
	__property int ColorSpace = {read=FColorSpace, write=FColorSpace, nodefault};
	__property int ColorSpaceTop = {read=FColorSpaceTop, write=FColorSpaceTop, nodefault};
	__property int ColorSpaceBottom = {read=FColorSpaceBottom, write=FColorSpaceBottom, nodefault};
	__property int ColorSize = {read=FColorSize, write=FColorSize, nodefault};
	__property int ButtonHeight = {read=FButtonHeight, write=FButtonHeight, nodefault};
	__property AnsiString AutoCaption = {read=FAutoCaption, write=FAutoCaption};
	__property Graphics::TColor CurrentColor = {read=FCurrentColor, write=SetSelectedColor, nodefault};
	__property TRMColorType ColorType = {read=FColorType, write=SetColorType, nodefault};
	__property Classes::TStrings* CustomColors = {read=GetCustomColors, write=SetCustomColors};
	__property Classes::TNotifyEvent OnColorChange = {read=FOnColorChange, write=FOnColorChange};
};


#pragma option push -b-
enum TRMRulerOrientationType { roHorizontal, roVertical };
#pragma option pop

class DELPHICLASS TRMDesignerRuler;
class PASCALIMPLEMENTATION TRMDesignerRuler : public Extctrls::TPaintBox 
{
	typedef Extctrls::TPaintBox inherited;
	
private:
	#pragma pack(push,1)
	Types::TRect FDrawRect;
	#pragma pack(pop)
	int FGuide1X;
	int FGuide1Y;
	int FGuide2X;
	int FGuide2Y;
	int FGuideHeight;
	int FGuideWidth;
	bool FHalfTicks;
	int FMargin;
	TRMRulerOrientationType FOrientation;
	double FPixelIncrement;
	int FScrollOffset;
	int FThickness;
	int FTicksPerUnit;
	float FTickFactor;
	Rm_common::TRMUnitType FUnits;
	double FScale;
	void __fastcall DrawGuide(int aGuideX, int aGuideY);
	void __fastcall InitGuides(void);
	void __fastcall PaintRuler(void);
	void __fastcall SetOrientation(TRMRulerOrientationType aOrientation);
	void __fastcall SetUnits(Rm_common::TRMUnitType aUnit);
	void __fastcall SetScrollOffset(int Value);
	bool __fastcall UpdateGuidePosition(int aNewPosition, int &aGuideX, int &aGuideY);
	void __fastcall ChangeUnits(Rm_common::TRMUnitType aUnit);
	
protected:
	DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
	virtual void __fastcall Paint(void);
	
public:
	__fastcall virtual TRMDesignerRuler(Classes::TComponent* aOwner);
	__fastcall virtual ~TRMDesignerRuler(void);
	void __fastcall Scroll(int Value);
	void __fastcall SetGuides(int aPosition1, int aPosition2);
	__property TRMRulerOrientationType Orientation = {read=FOrientation, write=SetOrientation, nodefault};
	__property Rm_common::TRMUnitType Units = {read=FUnits, write=SetUnits, nodefault};
	__property int ScrollOffset = {read=FScrollOffset, write=SetScrollOffset, nodefault};
	__property double PixelIncrement = {read=FPixelIncrement};
	__property double Scale = {read=FScale, write=FScale};
};


#pragma option push -b-
enum TRMScrollBarKind { rmsbHorizontal, rmsbVertical };
#pragma option pop

typedef void __fastcall (__closure *TRMScrollEvent)(System::TObject* Sender, TRMScrollBarKind Kind);

class DELPHICLASS TRMScrollBar;
class DELPHICLASS TRMScrollBox;
class PASCALIMPLEMENTATION TRMScrollBox : public Controls::TCustomControl 
{
	typedef Controls::TCustomControl inherited;
	
private:
	TRMScrollBar* FHorzScrollBar;
	TRMScrollBar* FVertScrollBar;
	TRMScrollEvent FOnChange;
	MESSAGE void __fastcall WMEraseBackground(Messages::TMessage &Message);
	MESSAGE void __fastcall WMGetDlgCode(Messages::TWMNoParams &Message);
	HIDESBASE MESSAGE void __fastcall WMHScroll(Messages::TWMScroll &Message);
	HIDESBASE MESSAGE void __fastcall WMVScroll(Messages::TWMScroll &Message);
	
protected:
	virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
	
public:
	__fastcall virtual TRMScrollBox(Classes::TComponent* AOwner);
	__fastcall virtual ~TRMScrollBox(void);
	virtual void __fastcall Paint(void);
	__property OnKeyDown ;
	__property TRMScrollBar* HorzScrollBar = {read=FHorzScrollBar};
	__property TRMScrollBar* VertScrollBar = {read=FVertScrollBar};
	
__published:
	__property TRMScrollEvent OnChange = {read=FOnChange, write=FOnChange};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TRMScrollBox(HWND ParentWindow) : Controls::TCustomControl(ParentWindow) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TRMScrollBar : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	TRMScrollBox* FScrollBox;
	TRMScrollBarKind FKind;
	#pragma pack(push,1)
	tagSCROLLINFO FScrollInfo;
	#pragma pack(pop)
	int FWidth;
	int FSmallChange;
	int FLargeChange;
	int FRange;
	int FPosition;
	int FPageSize;
	int FThumbValue;
	__fastcall TRMScrollBar(TRMScrollBox* aScrollBox, TRMScrollBarKind aKind);
	void __fastcall UpdateScrollBar(void);
	int __fastcall GetBarFlag(void);
	void __fastcall ScrollMessage(Messages::TWMScroll &aMessage);
	int __fastcall GetTrackPos(void);
	void __fastcall SetPageSize(int Value);
	void __fastcall SetPosition(int Value);
	void __fastcall SetRange(int Value);
	
public:
	__property int TrackPos = {read=GetTrackPos, nodefault};
	
__published:
	__property int SmallChange = {read=FSmallChange, write=FSmallChange, nodefault};
	__property int LargeChange = {read=FLargeChange, write=FLargeChange, nodefault};
	__property int Position = {read=FPosition, write=SetPosition, nodefault};
	__property int Range = {read=FRange, write=SetRange, nodefault};
	__property int PageSize = {read=FPageSize, write=SetPageSize, nodefault};
	__property int ThumbValue = {read=FThumbValue, write=FThumbValue, nodefault};
	__property int Width = {read=FWidth, nodefault};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TRMScrollBar(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TRMScrollBar(void) : Classes::TPersistent() { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
static const Shortint MaxColorButtonNumber = 0x28;
extern PACKAGE TRMSeparatorMenuItem* __fastcall RMNewLine(void);
extern PACKAGE TRMMenuItem* __fastcall RMNewItem(const AnsiString ACaption, Classes::TShortCut AShortCut, bool AChecked, bool AEnabled, Classes::TNotifyEvent AOnClick, Classes::THelpContext hCtx, const AnsiString AName, int ATag = 0x0);

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

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