advtrackbar.hpp

来自「TMSPack基本上涵盖了Delphi所有的基础控件」· HPP 代码 · 共 1,003 行 · 第 1/4 页

	__property RateActive ;
	__property RateInActive ;
	__property ShowHint ;
	__property Slider ;
	__property ShowFocus  = {default=0};
	__property TabOrder  = {default=-1};
	__property TabStop  = {default=1};
	__property Thumb ;
	__property TickMark ;
	__property TickImages ;
	__property TrackHint ;
	__property TrackLabel ;
	__property Transparent  = {default=1};
	__property Visible  = {default=1};
	__property OnContextPopup ;
	__property OnChange ;
	__property OnDragDrop ;
	__property OnDragOver ;
	__property OnEndDock ;
	__property OnEndDrag ;
	__property OnEnter ;
	__property OnExit ;
	__property OnKeyDown ;
	__property OnKeyPress ;
	__property OnKeyUp ;
	__property OnStartDock ;
	__property OnStartDrag ;
	__property OnClick ;
	__property OnMouseDown ;
	__property OnMouseMove ;
	__property OnMouseUp ;
	__property OnDrawTick ;
	__property OnGetTrackHint ;
public:
	#pragma option push -w-inl
	/* TCustomTrackBar.Create */ inline __fastcall virtual TAdvTrackBar(Classes::TComponent* AOwner) : TCustomTrackBar(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomTrackBar.Destroy */ inline __fastcall virtual ~TAdvTrackBar(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TAdvTrackBar(HWND ParentWindow) : TCustomTrackBar(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TRangeSliderSlider;
class PASCALIMPLEMENTATION TRangeSliderSlider : public TTrackBarSlider 
{
	typedef TTrackBarSlider inherited;
	
private:
	Graphics::TColor FColorRemainingDisabledTo;
	Graphics::TColor FColorRemainingDisabled;
	Graphics::TColor FColorRemainingTo;
	Graphics::TColor FColorRemaining;
	Gdipicture::TGDIPPicture* FIPictureRemaining;
	Gdipicture::TGDIPPicture* FIPictureRemainingDisabled;
	void __fastcall SetColorRemaining(const Graphics::TColor Value);
	void __fastcall SetColorRemainingDisabled(const Graphics::TColor Value);
	void __fastcall SetColorRemainingDisabledTo(const Graphics::TColor Value);
	void __fastcall SetColorRemainingTo(const Graphics::TColor Value);
	void __fastcall SetPictureRemaining(const Gdipicture::TGDIPPicture* Value);
	void __fastcall SetPictureRemainingDisabled(const Gdipicture::TGDIPPicture* Value);
	
public:
	__fastcall TRangeSliderSlider(void);
	__fastcall virtual ~TRangeSliderSlider(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property Graphics::TColor ColorRemaining = {read=FColorRemaining, write=SetColorRemaining, nodefault};
	__property Graphics::TColor ColorRemainingTo = {read=FColorRemainingTo, write=SetColorRemainingTo, nodefault};
	__property Graphics::TColor ColorRemainingDisabled = {read=FColorRemainingDisabled, write=SetColorRemainingDisabled, nodefault};
	__property Graphics::TColor ColorRemainingDisabledTo = {read=FColorRemainingDisabledTo, write=SetColorRemainingDisabledTo, nodefault};
	__property Gdipicture::TGDIPPicture* PictureRemaining = {read=FIPictureRemaining, write=SetPictureRemaining};
	__property Gdipicture::TGDIPPicture* PictureRemainingDisabled = {read=FIPictureRemainingDisabled, write=SetPictureRemainingDisabled};
};


#pragma option push -b-
enum TActiveThumb { atLeft, atRight };
#pragma option pop

class DELPHICLASS TAdvRangeSlider;
class PASCALIMPLEMENTATION TAdvRangeSlider : public TCustomTrackBar 
{
	typedef TCustomTrackBar inherited;
	
private:
	bool FThumbOverlap;
	TActiveThumb FActiveThumb;
	int FPositionRight;
	TTrackBarThumb* FThumbRight;
	bool FThumbRightHot;
	bool FThumbRightDown;
	bool FSlidingRight;
	void __fastcall OnThumbRightChanged(System::TObject* Sender);
	HIDESBASE MESSAGE void __fastcall CMMouseLeave(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall WMMouseWheel(Messages::TWMMouseWheel &Message);
	int __fastcall GetPositionLeft(void);
	int __fastcall GetPositionRight(void);
	TTrackBarThumb* __fastcall GetThumbLeft(void);
	TTrackBarThumb* __fastcall GetThumbRight(void);
	void __fastcall SetPositionLeft(const int Value);
	void __fastcall SetPositionRight(int Value);
	void __fastcall SetThumbLeft(const TTrackBarThumb* Value);
	void __fastcall SetThumbRight(const TTrackBarThumb* Value);
	TRangeSliderSlider* __fastcall GetRangeSlider(void);
	void __fastcall SetRangeSlider(const TRangeSliderSlider* Value);
	
protected:
	virtual void __fastcall Paint(void);
	DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
	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 Loaded(void);
	TThumbOverlap __fastcall GetThumbOverlap(void);
	virtual void __fastcall SetPosition(int Value);
	virtual bool __fastcall CanMoveOnTickClick(void);
	virtual AnsiString __fastcall GetTrackLabelText();
	virtual bool __fastcall CanClipThumb(void);
	virtual TTrackBarSlider* __fastcall CreateTrackBarSlider(void);
	bool __fastcall CanClipRightThumb(void);
	virtual bool __fastcall CanMovePosition(int Value);
	bool __fastcall CanMovePositionRight(int Value);
	virtual void __fastcall DrawSlider(void);
	void __fastcall DrawThumbRight(void);
	virtual void __fastcall DrawThumb(void);
	Types::TRect __fastcall ThumbRightRect();
	virtual int __fastcall GetPosiblePositionMin(void);
	virtual int __fastcall GetPosiblePositionMax(void);
	int __fastcall GetPosiblePositionRightMin(void);
	int __fastcall GetPosiblePositionRightMax(void);
	
public:
	__fastcall virtual TAdvRangeSlider(Classes::TComponent* AOwner);
	__fastcall virtual ~TAdvRangeSlider(void);
	HIDESBASE void __fastcall SetComponentStyle(Advstyleif::TTMSStyle AStyle);
	
__published:
	__property Align  = {default=0};
	__property Anchors  = {default=3};
	__property BackGroundStretched  = {default=0};
	__property BackGround ;
	__property BackGroundDisabled ;
	__property BorderColor ;
	__property BorderColorDisabled ;
	__property ColorTo ;
	__property ColorDisabled ;
	__property ColorDisabledTo ;
	__property Ctl3D ;
	__property Direction ;
	__property DragCursor  = {default=-12};
	__property DragKind  = {default=0};
	__property DragMode  = {default=0};
	__property Enabled  = {default=1};
	__property Constraints ;
	__property Color  = {default=-16777211};
	__property HelpContext  = {default=0};
	__property Hint ;
	__property Max  = {default=10};
	__property Min  = {default=0};
	__property Orientation  = {default=0};
	__property ParentCtl3D  = {default=1};
	__property ParentShowHint  = {default=1};
	__property PageSize  = {default=1};
	__property PopupMenu ;
	__property int PositionLeft = {read=GetPositionLeft, write=SetPositionLeft, default=0};
	__property int PositionRight = {read=GetPositionRight, write=SetPositionRight, default=8};
	__property ShowHint ;
	__property TRangeSliderSlider* Slider = {read=GetRangeSlider, write=SetRangeSlider};
	__property ShowFocus  = {default=0};
	__property TabOrder  = {default=-1};
	__property TabStop  = {default=1};
	__property TTrackBarThumb* ThumbLeft = {read=GetThumbLeft, write=SetThumbLeft};
	__property TTrackBarThumb* ThumbRight = {read=GetThumbRight, write=SetThumbRight};
	__property TickMark ;
	__property TickImages ;
	__property TrackHint ;
	__property TrackLabel ;
	__property Transparent  = {default=1};
	__property Visible  = {default=1};
	__property OnContextPopup ;
	__property OnChange ;
	__property OnDragDrop ;
	__property OnDragOver ;
	__property OnEndDock ;
	__property OnEndDrag ;
	__property OnEnter ;
	__property OnExit ;
	__property OnKeyDown ;
	__property OnKeyPress ;
	__property OnKeyUp ;
	__property OnStartDock ;
	__property OnStartDrag ;
	__property OnClick ;
	__property OnMouseDown ;
	__property OnMouseMove ;
	__property OnMouseUp ;
	__property OnDrawTick ;
	__property OnGetTrackHint ;
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TAdvRangeSlider(HWND ParentWindow) : TCustomTrackBar(ParentWindow) { }
	#pragma option pop
	
};


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


//-- var, const, procedure ---------------------------------------------------
static const Shortint MAJ_VER = 0x1;
static const Shortint MIN_VER = 0x2;
static const Shortint REL_VER = 0x0;
static const Shortint BLD_VER = 0x2;

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

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