?? suibutton.hpp
字號:
class DELPHICLASS TsuiToolBarSpeedButton;
class PASCALIMPLEMENTATION TsuiToolBarSpeedButton : public Extctrls::TCustomPanel
{
typedef Extctrls::TCustomPanel inherited;
private:
bool m_MouseIn;
Graphics::TBitmap* m_Glyph;
Graphics::TColor m_ToColor;
MESSAGE void __fastcall MouseLeave(Messages::TMessage &Msg);
MESSAGE void __fastcall MouseEnter(Messages::TMessage &Msg);
void __fastcall SetGlyph(const Graphics::TBitmap* Value);
HIDESBASE MESSAGE void __fastcall WMERASEBKGND(Messages::TMessage &Msg);
protected:
virtual void __fastcall Paint(void);
public:
__fastcall virtual TsuiToolBarSpeedButton(Classes::TComponent* AOwner);
__fastcall virtual ~TsuiToolBarSpeedButton(void);
__published:
__property Graphics::TBitmap* Glyph = {read=m_Glyph, write=SetGlyph};
__property Color = {default=-16777201};
__property Graphics::TColor ToColor = {read=m_ToColor, write=m_ToColor, nodefault};
__property OnClick;
public:
/* TWinControl.CreateParented */ inline __fastcall TsuiToolBarSpeedButton(HWND ParentWindow) : Extctrls::TCustomPanel(ParentWindow) { }
};
class DELPHICLASS TsuiButton;
class PASCALIMPLEMENTATION TsuiButton : public TsuiCustomButton
{
typedef TsuiCustomButton inherited;
private:
Graphics::TBitmap* m_Glyph;
Buttons::TButtonLayout m_Layout;
Types::TPoint m_TextPoint;
int m_Spacing;
void __fastcall SetGlyph(const Graphics::TBitmap* Value);
void __fastcall SetLayout(const Buttons::TButtonLayout Value);
void __fastcall SetSpacing(const int Value);
unsigned __fastcall GetResHandle(void);
void __fastcall SetResHandle(const unsigned Value);
protected:
DYNAMIC void __fastcall ActionChange(System::TObject* Sender, bool CheckDefaults);
virtual void __fastcall PaintPic(Graphics::TCanvas* ACanvas, Graphics::TBitmap* Bitmap);
virtual void __fastcall PaintText(Graphics::TCanvas* ACanvas, System::UnicodeString Text);
virtual void __fastcall PaintFocus(Graphics::TCanvas* ACanvas);
virtual void __fastcall UIStyleChanged(void);
public:
__fastcall virtual TsuiButton(Classes::TComponent* AOwner);
__fastcall virtual ~TsuiButton(void);
__published:
__property FileTheme;
__property UIStyle;
__property Cancel = {default=0};
__property Default = {default=0};
__property Action;
__property Caption;
__property Font;
__property Enabled = {default=1};
__property TabOrder = {default=-1};
__property Transparent;
__property ModalResult;
__property AutoSize;
__property FocusedRectMargin;
__property Graphics::TBitmap* Glyph = {read=m_Glyph, write=SetGlyph};
__property Buttons::TButtonLayout Layout = {read=m_Layout, write=SetLayout, nodefault};
__property int Spacing = {read=m_Spacing, write=SetSpacing, nodefault};
__property MouseContinuouslyDownInterval;
__property OnClick;
__property OnMouseMove;
__property OnMouseDown;
__property OnMouseUp;
__property OnKeyDown;
__property OnKeyUp;
__property OnKeyPress;
__property OnMouseEnter;
__property OnMouseExit;
__property OnMouseContinuouslyDown;
__property unsigned ResHandle = {read=GetResHandle, write=SetResHandle, nodefault};
public:
/* TWinControl.CreateParented */ inline __fastcall TsuiButton(HWND ParentWindow) : TsuiCustomButton(ParentWindow) { }
};
class DELPHICLASS TsuiCheckBox;
class PASCALIMPLEMENTATION TsuiCheckBox : public Controls::TCustomControl
{
typedef Controls::TCustomControl inherited;
private:
bool m_Checked;
Suithemes::TsuiUIStyle m_UIStyle;
Suimgr::TsuiFileTheme* m_FileTheme;
bool m_Transparent;
bool m_AutoSize;
Classes::TNotifyEvent m_OnClick;
Stdctrls::TCheckBoxState __fastcall GetState(void);
void __fastcall SetState(const Stdctrls::TCheckBoxState Value);
void __fastcall SetFileTheme(const Suimgr::TsuiFileTheme* Value);
void __fastcall SetUIStyle(const Suithemes::TsuiUIStyle Value);
void __fastcall SetChecked(const bool Value);
void __fastcall SetTransparent(const bool Value);
void __fastcall SetAutoSize2(const bool Value);
bool __fastcall GetTabStop(void);
HIDESBASE void __fastcall SetTabStop(bool Value);
HIDESBASE MESSAGE void __fastcall CMFONTCHANGED(Messages::TMessage &Msg);
HIDESBASE MESSAGE void __fastcall WMERASEBKGND(Messages::TMessage &Msg);
HIDESBASE MESSAGE void __fastcall CMDialogChar(Messages::TWMKey &Msg);
HIDESBASE MESSAGE void __fastcall WMKillFocus(Messages::TWMKillFocus &Msg);
HIDESBASE MESSAGE void __fastcall WMSetFocus(Messages::TWMSetFocus &Msg);
HIDESBASE MESSAGE void __fastcall CMFocusChanged(Controls::TCMFocusChanged &Msg);
HIDESBASE MESSAGE void __fastcall WMKeyUp(Messages::TWMKey &Msg);
HIDESBASE MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Msg);
protected:
DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
virtual bool __fastcall NeedDrawFocus(void);
virtual void __fastcall Paint(void);
virtual bool __fastcall GetPicTransparent(void);
virtual int __fastcall GetPicThemeIndex(void);
virtual Sui2define::Tsk2SkinBitmapElement __fastcall GetPicThemeIndexOuter(void);
virtual void __fastcall CheckStateChanged(void);
virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
virtual void __fastcall Toggle(void);
virtual void __fastcall DoClick(void);
virtual bool __fastcall WantKeyUp(void);
virtual void __fastcall SetEnabled(bool Value);
public:
__fastcall virtual TsuiCheckBox(Classes::TComponent* AOwner);
DYNAMIC void __fastcall Click(void);
__published:
__property Suithemes::TsuiUIStyle UIStyle = {read=m_UIStyle, write=SetUIStyle, nodefault};
__property Suimgr::TsuiFileTheme* FileTheme = {read=m_FileTheme, write=SetFileTheme};
__property BiDiMode;
__property Anchors = {default=3};
__property PopupMenu;
__property ShowHint;
__property Visible = {default=1};
__property ParentShowHint = {default=1};
__property ParentBiDiMode = {default=1};
__property ParentFont = {default=1};
__property bool AutoSize = {read=m_AutoSize, write=SetAutoSize2, nodefault};
__property bool Checked = {read=m_Checked, write=SetChecked, nodefault};
__property Caption;
__property Enabled = {default=1};
__property Font;
__property Color = {default=-16777211};
__property TabStop = {read=GetTabStop, write=SetTabStop, default=1};
__property TabOrder = {default=-1};
__property ParentColor = {default=1};
__property Stdctrls::TCheckBoxState State = {read=GetState, write=SetState, nodefault};
__property bool Transparent = {read=m_Transparent, write=SetTransparent, nodefault};
__property OnClick = {read=m_OnClick, write=m_OnClick};
__property OnDblClick;
__property OnMouseMove;
__property OnMouseDown;
__property OnMouseUp;
__property OnKeyDown;
__property OnKeyUp;
__property OnKeyPress;
__property OnContextPopup;
__property OnDragDrop;
__property OnDragOver;
__property OnEndDock;
__property OnEndDrag;
__property OnEnter;
__property OnExit;
__property OnStartDock;
__property OnStartDrag;
public:
/* TCustomControl.Destroy */ inline __fastcall virtual ~TsuiCheckBox(void) { }
public:
/* TWinControl.CreateParented */ inline __fastcall TsuiCheckBox(HWND ParentWindow) : Controls::TCustomControl(ParentWindow) { }
};
class DELPHICLASS TsuiRadioButton;
class PASCALIMPLEMENTATION TsuiRadioButton : public TsuiCheckBox
{
typedef TsuiCheckBox inherited;
private:
int m_GroupIndex;
void __fastcall UnCheckGroup(void);
HIDESBASE MESSAGE void __fastcall WMSetFocus(Messages::TWMSetFocus &Msg);
protected:
virtual bool __fastcall WantKeyUp(void);
virtual void __fastcall DoClick(void);
virtual bool __fastcall GetPicTransparent(void);
virtual int __fastcall GetPicThemeIndex(void);
virtual Sui2define::Tsk2SkinBitmapElement __fastcall GetPicThemeIndexOuter(void);
virtual void __fastcall CheckStateChanged(void);
public:
__fastcall virtual TsuiRadioButton(Classes::TComponent* AOwner);
__published:
__property int GroupIndex = {read=m_GroupIndex, write=m_GroupIndex, nodefault};
public:
/* TCustomControl.Destroy */ inline __fastcall virtual ~TsuiRadioButton(void) { }
public:
/* TWinControl.CreateParented */ inline __fastcall TsuiRadioButton(HWND ParentWindow) : TsuiCheckBox(ParentWindow) { }
};
#pragma option push -b-
enum TsuiArrowButtonType { suiUp, suiDown };
#pragma option pop
class DELPHICLASS TsuiArrowButton;
class PASCALIMPLEMENTATION TsuiArrowButton : public TsuiCustomButton
{
typedef TsuiCustomButton inherited;
private:
TsuiArrowButtonType m_Arrow;
void __fastcall SetArrow(const TsuiArrowButtonType Value);
protected:
virtual void __fastcall UIStyleChanged(void);
virtual void __fastcall PaintPic(Graphics::TCanvas* ACanvas, Graphics::TBitmap* Bitmap);
virtual void __fastcall PaintText(Graphics::TCanvas* ACanvas, System::UnicodeString Text);
__published:
__property TsuiArrowButtonType Arrow = {read=m_Arrow, write=SetArrow, nodefault};
__property FileTheme;
__property UIStyle;
__property MouseContinuouslyDownInterval;
__property OnClick;
__property OnMouseMove;
__property OnMouseDown;
__property OnMouseUp;
__property OnKeyDown;
__property OnKeyUp;
__property OnKeyPress;
__property OnMouseEnter;
__property OnMouseExit;
__property OnMouseContinuouslyDown;
public:
/* TsuiCustomButton.Create */ inline __fastcall virtual TsuiArrowButton(Classes::TComponent* AOwner) : TsuiCustomButton(AOwner) { }
public:
/* TCustomControl.Destroy */ inline __fastcall virtual ~TsuiArrowButton(void) { }
public:
/* TWinControl.CreateParented */ inline __fastcall TsuiArrowButton(HWND ParentWindow) : TsuiCustomButton(ParentWindow) { }
};
//-- var, const, procedure ---------------------------------------------------
static const Word SUIPACK_MSG_CANPROCESSKEY = 0x8bb8;
} /* namespace Suibutton */
using namespace Suibutton;
#pragma pack(pop)
#pragma option pop
#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif // SuibuttonHPP
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -