通过继承实现不同的CheckBox风格

2019-11-17 05:31:22

字体：大中小

来源：转载

供稿：网友

VCL中的TCheckBox控件在选中时显示的是一个“√”，但有的时候需要显示为“×”，下面这段代码是cker写的，实现了这个效果。
// 通过继续实现不同的CheckBox风格
// 代码作者：cker
//---------------------------------------------------------------------------
class TXCheckBox : public TCustomControl
{
PRivate:
    bool FDown;
    TCheckBoxState FState;
    bool FFocused;
    TColor FCheckColor;
public:
    __fastcall TXCheckBox(TComponent* AOwner);
protected:
    void __fastcall Paint();

    DYNAMIC void __fastcall MouseDown(TMouseButton Button, TShiftState Shift, int X, int Y);
    DYNAMIC void __fastcall MouseUp(TMouseButton Button, TShiftState Shift, int X, int Y);
    DYNAMIC void __fastcall MouseMove(TShiftState Shift, int X, int Y);

    DYNAMIC void __fastcall KeyDown(Word &Key, TShiftState Shift);
    DYNAMIC void __fastcall KeyUp(Word &Key, TShiftState Shift);

    void __fastcall SetDown(bool Value);
    void __fastcall SetState(TCheckBoxState Value);
    void __fastcall SetChecked(bool Value);
    bool __fastcall GetChecked();
    void __fastcall SetCheckColor(TColor Value);
    void __fastcall SetCaption(const TCaption& Value);
    TCaption __fastcall GetCaption();

    DYNAMIC void __fastcall DoEnter(void);
    DYNAMIC void __fastcall DoExit(void);

__published:
    __property TCaption Caption = {read=GetCaption, write=SetCaption};
    __property TColor CheckColor = {read=FCheckColor, write=SetCheckColor, default=clBlack};
    __property bool Checked = {read=GetChecked, write=SetChecked, default=false};
    __property bool Down = {read=FDown, write=SetDown, default=false};
    __property DragCursor;
    __property DragMode;
    __property Enabled;
    __property Font;
    __property ParentFont;
    __property PopupMenu;
    __property ShowHint;
    __property TCheckBoxState State = {read=FState, write=SetState, default=cbUnchecked};
    __property TabOrder;
    __property TabStop;
    __property OnClick;
    __property OnDragDrop;
    __property OnDragOver;
    __property OnEndDrag;
    __property OnKeyDown;
    __property OnKeyPress;
    __property OnKeyUp;
    __property OnMouseDown;
    __property OnMouseMove;
    __property OnMouseUp;
};

__fastcall TXCheckBox::TXCheckBox(TComponent* AOwner):TCustomControl(AOwner)
{
    Width = 200;
    Height = 20;
    ParentColor = false;
    Color = clBTnFace;
}

void __fastcall TXCheckBox::Paint()
{
    const int BW = 12;

    int BL, BT, BR, BB;
    int TX, TY, TW, TH;

    TRect Rect;

    Canvas->Font = Font;

    BT = (Height / 2)-(BW / 2);
    BB = BT + BW;
    BL = 1;
    BR = BW + 1;

    Canvas->Brush->Color = FDown ? clBtnFace : clWhite;

    Canvas->Pen->Width = 1;
    Canvas->Pen->Color = clBtnFace;
    Canvas->Rectangle(BL, BT, BR, BB);

    Canvas->Pen->Color = clBtnShadow;
    Canvas->MoveTo(BL, BB);
    Canvas->LineTo(BL, BT);
    Canvas->Line

上一篇：通过覆盖__atexit进行缓冲区溢出攻击

下一篇：通过键盘操作的，想进行c图形化编程的可能有参考价值

学习交流

索泰发布一款GTX 1070 Mini迷你版本:小机

索泰发布一款GTX 1070 Mini迷你版本:小机箱大爱...

热门图片

猜你喜欢的新闻

猜你喜欢的关注