快速业务通道

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

作者 佚名技术 来源 程序设计 浏览 发布时间 2012-06-30
ght / 2) + (Canvas->Font->Height / 2) + 1;
TW = Canvas->TextWidth(Caption);
TH = Canvas->TextHeight(Caption);
Canvas->TextOut(TX, TY, Caption);
switch(State)
{
case cbChecked:
{
Canvas->Pen->Color = FCheckColor;
Canvas->Pen->Width = 2;
BT--;
BB--;
Canvas->MoveTo(BL + 3, BT + 4);
Canvas->LineTo(BR - 3, BB - 2);
Canvas->MoveTo(BR - 3, BT + 4);
Canvas->LineTo(BL + 3, BB - 2);
}
break;
case cbGrayed:
{
if(Down)
{
Canvas->Pen->Color = clBtnFace;
Canvas->Brush->Color = clBtnFace;
Canvas->Rectangle(BL + 2, BT + 2, BR - 1, BB - 1);
}
Canvas->Brush->Color = clBtnShadow;
Canvas->Rectangle(BL + 2, BT + 2, BR - 1, BB - 1);
}
break;
}
Canvas->Brush->Color = clBtnFace;
Rect = Bounds(TX - 1, TY, TW + 3, TH + 1);
Canvas->FrameRect(Rect);
if(FFocused)
Canvas->DrawFocusRect(Rect);
}
//----------------------------------------------------------------------------
// 抱歉,这个提示又来了,为了防止不负责任的转载者,只好在此留些信息。
// 作者:cker
// 本文转自 C++Builder 研究 - http://www.ccrun.com/article/go.asp?i=631&d=qh555w
//----------------------------------------------------------------------------
TCaption __fastcall TXCheckBox::GetCaption()
{
return Text;
}
void __fastcall TXCheckBox::SetCaption( const TCaption& Value)
{
if (Text != Value) Text = Value;
Invalidate();
}
void __fastcall TXCheckBox::SetDown( bool Value)
{
if (FDown != Value)
{
FDown = Value;
Paint();
}
}
void __fastcall TXCheckBox::SetState(TCheckBoxState Value)
{
if (FState!= Value)
{
FState = Value;
Paint();
Click();
}
}
bool __fastcall TXCheckBox::GetChecked()
{
return State == cbChecked;
}
void __fastcall TXCheckBox::SetChecked( bool Value)
{
if (Value) State = cbChecked;
else State = cbUnchecked;
}
void __fastcall TXCheckBox::SetCheckColor( TColor Value)
{
FCheckColor = Value;
Paint();
}
void __fastcall TXCheckBox::DoEnter()
{
TCustomControl::DoEnter();
FFocused = true;
Paint();
}
void __fastcall TXCheckBox::DoExit()
{
TCustomControl::DoExit();
FFocused = false;
Paint();
}
void __fastcall TXCheckBox::MouseDown(TMouseButton Button, TShiftState Shift, int X, int Y)
{
SetFocus();
FFocused = true;
TCustomControl::MouseDown(Button, Shift, X, Y);
MouseCapture = true;
Down = true;
}
void __fastcall TXCheckBox::MouseUp(TMouseButton Button, TShiftState Shift, int X, int Y)
{
MouseCapture = false;
Down = false;
if ((X>=0) && (X<=Width) && (Y>=0) && (Y<=Height))
Checked = !Checked;
TCustomControl::MouseUp(Button, Shift, X, Y);
}
void __fastcall TXCheckBox::MouseMove(TShiftState Shift, int X, int Y)
{
if (MouseCapture)
Down = (X>=0) && (X<=Width) && (Y>=0) && (Y<=Height);
TCustomControl::MouseMove(Shift, X, Y);
}
void __fastcall TXCheckBox::KeyDown(Word &Key, TShiftState Shift)
{
if (Key == VK_SPACE) Down = true;
TCustomControl::KeyDown(Key, Shift);
}
void __fastcall TXCheckBox::KeyUp(Word &Key, TShiftState Shift)
{
if (Key == VK_SPACE)
{
Down = false;
Checked = !Checked;
}
}
测试代码:
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
TXCheckBox* x = new TXCheck

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

分享到: 更多

Copyright ©1999-2011 厦门凌众科技有限公司 厦门优通互联科技开发有限公司 All rights reserved

地址(ADD):厦门软件园二期望海路63号701E(东南融通旁) 邮编(ZIP):361008

电话:0592-5908028 传真:0592-5908039 咨询信箱:web@lingzhong.cn 咨询OICQ:173723134

《中华人民共和国增值电信业务经营许可证》闽B2-20100024  ICP备案:闽ICP备05037997号