通過繼承實現不同的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圖形化編程的可能有參考價值