suisidechannel.hpp

新颖按钮控件

// Borland C++ Builder
// Copyright (c) 1995, 2002 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'SUISideChannel.pas' rev: 6.00

#ifndef SUISideChannelHPP
#define SUISideChannelHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <SUIButton.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Buttons.hpp>	// Pascal unit
#include <ExtCtrls.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

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

namespace Suisidechannel
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TsuiSideChannelAlign { suiLeft, suiRight };
#pragma option pop

#pragma option push -b-
enum TsuiSideChannelPopupMode { suiMouseOn, suiMouseClick };
#pragma option pop

class DELPHICLASS TsuiSideChannel;
class PASCALIMPLEMENTATION TsuiSideChannel : public Extctrls::TCustomPanel 
{
	typedef Extctrls::TCustomPanel inherited;
	
private:
	Extctrls::TPanel* m_MousePanel;
	Extctrls::TPanel* m_TopBarPanel;
	Buttons::TSpeedButton* m_PinBtn;
	Suibutton::TsuiButton* m_BarBtn;
	Extctrls::TTimer* m_Timer;
	int m_nWidth;
	bool m_bMoving;
	AnsiString m_Caption;
	TsuiSideChannelAlign m_Align;
	bool m_StayOn;
	TsuiSideChannelPopupMode m_PopupMode;
	bool m_QuickMove;
	Classes::TNotifyEvent m_OnResize;
	Controls::TCanResizeEvent m_OnCanResize;
	Classes::TNotifyEvent m_OnPop;
	Classes::TNotifyEvent m_OnPush;
	void __fastcall OnMouseIn(System::TObject* Sender, Classes::TShiftState Shift, int X, int Y);
	void __fastcall OnLeftBarClick(System::TObject* Sender);
	void __fastcall OnTopPanelResize(System::TObject* Sender);
	void __fastcall OnPinClick(System::TObject* Sender);
	void __fastcall OnTimerCheck(System::TObject* Sender);
	void __fastcall OnSelfResize(System::TObject* Sender);
	void __fastcall OnSelfCanResize(System::TObject* Sender, int &NewWidth, int &NewHeight, bool &Resize);
	HIDESBASE void __fastcall SetWidth(int NewValue);
	void __fastcall SetSideColor(Graphics::TColor NewValue);
	Graphics::TColor __fastcall GetSideColor(void);
	void __fastcall SetSideWidth(int NewValue);
	int __fastcall GetSideWidth(void);
	void __fastcall SetCaption(AnsiString NewValue);
	HIDESBASE void __fastcall SetAlignment(Classes::TAlignment NewValue);
	Classes::TAlignment __fastcall GetAlignment(void);
	HIDESBASE void __fastcall SetAlign(const TsuiSideChannelAlign Value);
	void __fastcall SetStayOn(const bool Value);
	HIDESBASE MESSAGE void __fastcall CMFONTCHANGED(Messages::TMessage &Msg);
	
public:
	__fastcall virtual TsuiSideChannel(Classes::TComponent* AOwner);
	__fastcall virtual ~TsuiSideChannel(void);
	void __fastcall Pop(bool bQuick = true);
	void __fastcall Push(bool bQuick = true);
	
__published:
	__property Anchors  = {default=3};
	__property BiDiMode ;
	__property Width  = {read=m_nWidth, write=SetWidth};
	__property Graphics::TColor SideBarColor = {read=GetSideColor, write=SetSideColor, nodefault};
	__property int SideBarWidth = {read=GetSideWidth, write=SetSideWidth, nodefault};
	__property Caption  = {read=m_Caption, write=SetCaption};
	__property Font ;
	__property Alignment  = {read=GetAlignment, write=SetAlignment, default=2};
	__property TsuiSideChannelAlign Align = {read=m_Align, write=SetAlign, nodefault};
	__property bool StayOn = {read=m_StayOn, write=SetStayOn, nodefault};
	__property Visible  = {default=1};
	__property Color  = {default=-2147483633};
	__property ParentColor  = {default=0};
	__property ParentShowHint  = {default=1};
	__property ParentBiDiMode  = {default=1};
	__property ParentFont  = {default=1};
	__property TsuiSideChannelPopupMode PopupMode = {read=m_PopupMode, write=m_PopupMode, nodefault};
	__property bool QuickMove = {read=m_QuickMove, write=m_QuickMove, nodefault};
	__property OnResize  = {read=m_OnResize, write=m_OnResize};
	__property OnCanResize  = {read=m_OnCanResize, write=m_OnCanResize};
	__property Classes::TNotifyEvent OnPush = {read=m_OnPush, write=m_OnPush};
	__property Classes::TNotifyEvent OnPop = {read=m_OnPop, write=m_OnPop};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TsuiSideChannel(HWND ParentWindow) : Extctrls::TCustomPanel(ParentWindow) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------

}	/* namespace Suisidechannel */
using namespace Suisidechannel;
#pragma option pop	// -w-
#pragma option pop	// -Vx

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