rm_tb97ctls.hpp

这是一个功能强大

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

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

#ifndef Rm_tb97ctlsHPP
#define Rm_tb97ctlsHPP

#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 <Forms.hpp>	// Pascal unit
#include <Menus.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Buttons.hpp>	// Pascal unit
#include <Imglist.hpp>	// Pascal unit
#include <Actnlist.hpp>	// Pascal unit
#include <Stdctrls.hpp>	// Pascal unit
#include <Extctrls.hpp>	// Pascal unit
#include <Rm_tb97vers.hpp>	// Pascal unit

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

namespace Rm_tb97ctls
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TButtonDisplayMode { dmBoth, dmGlyphOnly, dmTextOnly };
#pragma option pop

#pragma option push -b-
enum TButtonState97 { bsUp, bsDisabled, bsDown, bsExclusive, bsMouseIn };
#pragma option pop

typedef Shortint TNumGlyphs97;

typedef void __fastcall (__closure *TButtonDropdownEvent)(System::TObject* Sender, bool &ShowMenu, bool &RemoveClicks);

class DELPHICLASS TToolbarButton97;
class PASCALIMPLEMENTATION TToolbarButton97 : public Controls::TGraphicControl 
{
	typedef Controls::TGraphicControl inherited;
	
private:
	bool FAllowAllUp;
	Classes::TAlignment FAlignment;
	bool FCancel;
	bool FDefault;
	TButtonDisplayMode FDisplayMode;
	bool FDown;
	bool FDropdownAlways;
	bool FDropdownArrow;
	int FDropdownArrowWidth;
	bool FDropdownCombo;
	Menus::TPopupMenu* FDropdownMenu;
	bool FFlat;
	void *FGlyph;
	int FGroupIndex;
	Classes::THelpContext FHelpContext;
	bool FHighlightWhenDown;
	Buttons::TButtonLayout FLayout;
	int FMargin;
	Controls::TModalResult FModalResult;
	bool FNoBorder;
	bool FOldDisabledStyle;
	bool FOpaque;
	bool FRepeating;
	int FRepeatDelay;
	int FRepeatInterval;
	bool FShowBorderWhenInactive;
	int FSpacing;
	bool FWordWrap;
	TButtonDropdownEvent FOnDropdown;
	Classes::TNotifyEvent FOnMouseEnter;
	Classes::TNotifyEvent FOnMouseExit;
	bool FInClick;
	bool FMouseInControl;
	bool FMouseIsDown;
	bool FMenuIsDown;
	bool FUsesDropdown;
	Extctrls::TTimer* FRepeatTimer;
	void __fastcall GlyphChanged(System::TObject* Sender);
	void __fastcall UpdateExclusive(void);
	void __fastcall SetAlignment(Classes::TAlignment Value);
	void __fastcall SetAllowAllUp(bool Value);
	bool __fastcall GetCallDormant(void);
	void __fastcall SetCallDormant(bool Value);
	void __fastcall SetDown(bool Value);
	void __fastcall SetDisplayMode(TButtonDisplayMode Value);
	void __fastcall SetDropdownAlways(bool Value);
	void __fastcall SetDropdownArrow(bool Value);
	void __fastcall SetDropdownArrowWidth(int Value);
	void __fastcall SetDropdownCombo(bool Value);
	void __fastcall SetDropdownMenu(Menus::TPopupMenu* Value);
	void __fastcall SetFlat(bool Value);
	Graphics::TBitmap* __fastcall GetGlyph(void);
	void __fastcall SetGlyph(Graphics::TBitmap* Value);
	Graphics::TBitmap* __fastcall GetGlyphMask(void);
	void __fastcall SetGlyphMask(Graphics::TBitmap* Value);
	void __fastcall SetGroupIndex(int Value);
	void __fastcall SetHighlightWhenDown(bool Value);
	int __fastcall GetImageIndex(void);
	void __fastcall SetImageIndex(int Value);
	Imglist::TCustomImageList* __fastcall GetImages(void);
	void __fastcall SetImages(Imglist::TCustomImageList* Value);
	void __fastcall SetLayout(Buttons::TButtonLayout Value);
	void __fastcall SetMargin(int Value);
	void __fastcall SetNoBorder(bool Value);
	TNumGlyphs97 __fastcall GetNumGlyphs(void);
	void __fastcall SetNumGlyphs(TNumGlyphs97 Value);
	void __fastcall SetOldDisabledStyle(bool Value);
	void __fastcall SetOpaque(bool Value);
	void __fastcall SetSpacing(int Value);
	AnsiString __fastcall GetVersion();
	void __fastcall SetVersion(const AnsiString Value);
	void __fastcall SetWordWrap(bool Value);
	void __fastcall RemoveButtonMouseTimer(void);
	void __fastcall Redraw(const bool Erase);
	bool __fastcall PointInButton(int X, int Y);
	void __fastcall ButtonMouseTimerHandler(System::TObject* Sender);
	void __fastcall RepeatTimerHandler(System::TObject* Sender);
	bool __fastcall IsCheckedStored(void);
	HIDESBASE bool __fastcall IsHelpContextStored(void);
	bool __fastcall IsImageIndexStored(void);
	HIDESBASE MESSAGE void __fastcall WMLButtonDblClk(Messages::TWMMouse &Message);
	HIDESBASE MESSAGE void __fastcall CMEnabledChanged(Messages::TMessage &Message);
	MESSAGE void __fastcall CMDialogChar(Messages::TWMKey &Message);
	MESSAGE void __fastcall CMDialogKey(Messages::TWMKey &Message);
	HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
	MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
	MESSAGE void __fastcall CMSysColorChange(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall WMCancelMode(Messages::TWMNoParams &Message);
	
protected:
	TButtonState97 FState;
	DYNAMIC HPALETTE __fastcall GetPalette(void);
	virtual void __fastcall Loaded(void);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
	DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	virtual void __fastcall Paint(void);
	DYNAMIC void __fastcall ActionChange(System::TObject* Sender, bool CheckDefaults);
	DYNAMIC TMetaClass* __fastcall GetActionLinkClass(void);
	virtual void __fastcall AssignTo(Classes::TPersistent* Dest);
	
public:
	__property Canvas ;
	__property bool CallDormant = {read=GetCallDormant, write=SetCallDormant, nodefault};
	__fastcall virtual TToolbarButton97(Classes::TComponent* AOwner);
	__fastcall virtual ~TToolbarButton97(void);
	DYNAMIC void __fastcall Click(void);
	void __fastcall MouseEntered(void);
	void __fastcall MouseLeft(void);
	
__published:
	__property Action ;
	__property Classes::TAlignment Alignment = {read=FAlignment, write=SetAlignment, default=2};
	__property bool AllowAllUp = {read=FAllowAllUp, write=SetAllowAllUp, default=0};
	__property Anchors  = {default=3};
	__property bool Cancel = {read=FCancel, write=FCancel, default=0};
	__property Color  = {default=-16777201};
	__property Constraints ;
	__property int GroupIndex = {read=FGroupIndex, write=SetGroupIndex, default=0};
	__property bool Default = {read=FDefault, write=FDefault, default=0};
	__property TButtonDisplayMode DisplayMode = {read=FDisplayMode, write=SetDisplayMode, default=0};
	__property bool Down = {read=FDown, write=SetDown, stored=IsCheckedStored, default=0};
	__property DragCursor  = {default=-12};
	__property DragMode  = {default=0};
	__property bool DropdownAlways = {read=FDropdownAlways, write=SetDropdownAlways, default=0};
	__property bool DropdownArrow = {read=FDropdownArrow, write=SetDropdownArrow, default=1};
	__property int DropdownArrowWidth = {read=FDropdownArrowWidth, write=SetDropdownArrowWidth, default=9};
	__property bool DropdownCombo = {read=FDropdownCombo, write=SetDropdownCombo, default=0};
	__property Menus::TPopupMenu* DropdownMenu = {read=FDropdownMenu, write=SetDropdownMenu};
	__property Caption ;
	__property Enabled  = {default=1};
	__property bool Flat = {read=FFlat, write=SetFlat, default=1};
	__property Font ;
	__property Graphics::TBitmap* Glyph = {read=GetGlyph, write=SetGlyph};
	__property Graphics::TBitmap* GlyphMask = {read=GetGlyphMask, write=SetGlyphMask};
	__property Classes::THelpContext HelpContext = {read=FHelpContext, write=FHelpContext, stored=IsHelpContextStored, default=0};
	__property bool HighlightWhenDown = {read=FHighlightWhenDown, write=SetHighlightWhenDown, default=1};
	__property int ImageIndex = {read=GetImageIndex, write=SetImageIndex, stored=IsImageIndexStored, default=-1};
	__property Imglist::TCustomImageList* Images = {read=GetImages, write=SetImages};
	__property Buttons::TButtonLayout Layout = {read=FLayout, write=SetLayout, default=0};
	__property int Margin = {read=FMargin, write=SetMargin, default=-1};
	__property Controls::TModalResult ModalResult = {read=FModalResult, write=FModalResult, default=0};
	__property bool NoBorder = {read=FNoBorder, write=SetNoBorder, default=0};
	__property TNumGlyphs97 NumGlyphs = {read=GetNumGlyphs, write=SetNumGlyphs, default=1};
	__property bool OldDisabledStyle = {read=FOldDisabledStyle, write=SetOldDisabledStyle, default=0};
	__property bool Opaque = {read=FOpaque, write=SetOpaque, default=1};
	__property ParentFont  = {default=1};
	__property ParentColor  = {default=0};
	__property ParentShowHint  = {default=1};
	__property bool Repeating = {read=FRepeating, write=FRepeating, default=0};
	__property int RepeatDelay = {read=FRepeatDelay, write=FRepeatDelay, default=400};
	__property int RepeatInterval = {read=FRepeatInterval, write=FRepeatInterval, default=100};
	__property bool ShowBorderWhenInactive = {read=FShowBorderWhenInactive, write=FShowBorderWhenInactive, default=0};
	__property ShowHint ;
	__property int Spacing = {read=FSpacing, write=SetSpacing, default=4};
	__property AnsiString Version = {read=GetVersion, write=SetVersion, stored=false};
	__property Visible  = {default=1};
	__property bool WordWrap = {read=FWordWrap, write=SetWordWrap, default=0};
	__property OnClick ;
	__property OnDblClick ;
	__property OnDragDrop ;
	__property OnDragOver ;
	__property TButtonDropdownEvent OnDropdown = {read=FOnDropdown, write=FOnDropdown};
	__property OnEndDrag ;
	__property OnMouseDown ;
	__property Classes::TNotifyEvent OnMouseEnter = {read=FOnMouseEnter, write=FOnMouseEnter};
	__property Classes::TNotifyEvent OnMouseExit = {read=FOnMouseExit, write=FOnMouseExit};
	__property OnMouseMove ;
	__property OnMouseUp ;
	__property OnStartDrag ;
};


class DELPHICLASS TToolbarButton97ActionLink;
class PASCALIMPLEMENTATION TToolbarButton97ActionLink : public Controls::TControlActionLink 
{
	typedef Controls::TControlActionLink inherited;
	
protected:
	TToolbarButton97* FClient;
	virtual void __fastcall AssignClient(System::TObject* AClient);
	virtual bool __fastcall IsCheckedLinked(void);
	virtual bool __fastcall IsHelpContextLinked(void);
	virtual bool __fastcall IsImageIndexLinked(void);
	virtual void __fastcall SetChecked(bool Value);
	virtual void __fastcall SetHelpContext(Classes::THelpContext Value);
	virtual void __fastcall SetImageIndex(int Value);
public:
	#pragma option push -w-inl
	/* TBasicActionLink.Create */ inline __fastcall virtual TToolbarButton97ActionLink(System::TObject* AClient) : Controls::TControlActionLink(AClient) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TBasicActionLink.Destroy */ inline __fastcall virtual ~TToolbarButton97ActionLink(void) { }
	#pragma option pop
	
};


typedef TMetaClass* TToolbarButton97ActionLinkClass;

class DELPHICLASS TEdit97;
class PASCALIMPLEMENTATION TEdit97 : public Stdctrls::TCustomEdit 
{
	typedef Stdctrls::TCustomEdit inherited;
	
private:
	bool MouseInControl;
	AnsiString __fastcall GetVersion();
	void __fastcall SetVersion(const AnsiString Value);
	void __fastcall DrawNCArea(const bool DrawToDC, const HDC ADC, const HRGN Clip);
	void __fastcall NewAdjustHeight(void);
	HIDESBASE MESSAGE void __fastcall CMEnabledChanged(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall CMMouseEnter(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall CMMouseLeave(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall WMKillFocus(Messages::TWMKillFocus &Message);
	HIDESBASE MESSAGE void __fastcall WMNCCalcSize(Messages::TWMNCCalcSize &Message);
	HIDESBASE MESSAGE void __fastcall WMNCPaint(Messages::TMessage &Message);
	MESSAGE void __fastcall WMPrint(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall WMPrintClient(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall WMSetFocus(Messages::TWMSetFocus &Message);
	
protected:
	virtual void __fastcall Loaded(void);
	
public:
	__fastcall virtual TEdit97(Classes::TComponent* AOwner);
	__fastcall virtual ~TEdit97(void);
	
__published:
	__property AutoSelect  = {default=1};
	__property Anchors  = {default=3};
	__property Align  = {default=0};
	__property BiDiMode ;
	__property CharCase  = {default=0};
	__property Constraints ;
	__property DragCursor  = {default=-12};
	__property DragKind  = {default=0};
	__property DragMode  = {default=0};
	__property Enabled  = {default=1};
	__property Font ;
	__property HideSelection  = {default=1};
	__property ImeMode  = {default=3};
	__property ImeName ;
	__property MaxLength  = {default=0};
	__property OEMConvert  = {default=0};
	__property ParentBiDiMode  = {default=1};
	__property ParentColor  = {default=0};
	__property ParentCtl3D  = {default=1};
	__property ParentFont  = {default=1};
	__property ParentShowHint  = {default=1};
	__property PasswordChar  = {default=0};
	__property PopupMenu ;
	__property ReadOnly  = {default=0};
	__property ShowHint ;
	__property TabOrder  = {default=-1};
	__property TabStop  = {default=1};
	__property Text ;
	__property AnsiString Version = {read=GetVersion, write=SetVersion, stored=false};
	__property Visible  = {default=1};
	__property OnChange ;
	__property OnClick ;
	__property OnDblClick ;
	__property OnDragDrop ;
	__property OnDragOver ;
	__property OnEndDock ;
	__property OnEndDrag ;
	__property OnEnter ;
	__property OnExit ;
	__property OnKeyDown ;
	__property OnKeyPress ;
	__property OnKeyUp ;
	__property OnMouseDown ;
	__property OnMouseMove ;
	__property OnMouseUp ;
	__property OnStartDock ;
	__property OnStartDrag ;
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TEdit97(HWND ParentWindow) : Stdctrls::TCustomEdit(ParentWindow) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
static const Shortint DefaultDropdownArrowWidth = 0x9;
extern PACKAGE bool ButtonsStayDown;
extern PACKAGE TToolbarButton97* ButtonMouseInControl;
extern PACKAGE bool __fastcall ControlIs97Control(Controls::TControl* AControl);
extern PACKAGE void __fastcall Register97ControlClass(TMetaClass* AClass);
extern PACKAGE void __fastcall Unregister97ControlClass(TMetaClass* AClass);

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

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