发表于：2002-09-24 09:51:02
DsFancyButton
是一个漂亮的图形按钮控件，边缘的渐变效果使按钮具有透明玻璃似的效果。还支持圆形、椭圆形、橄榄形等多种形状。可以在这个地址下载
。可惜是用PASCAL写的，而
在公司那花了20000RMB买回来的BCB6.0上居然装不上。于是偶就想将其改为BCB的。改后的代码由TABCButton.cpp及
TABCButton.h两个文件构成。编译等都OK，但生成的按钮闪烁不定.....实在是不能用，我估计是是消息没处理好，但具体错在什么地方也找不
出来。只好把代码贴出来，希望能通过“网聚天下人的力量”来解决问题。分数不多，以共同学习为目的。
代码：TABCButton.h
//------------------------------------------------------------------------#ifndef ABCButtonH
#define ABCButtonH
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include
//---------------------------------------------------------------------------
enum TTextStyle {txNone, txLowered, txRaised, txShadowed};
enum TButtonShape {shCapsule, shOval, shRectangle, shRoundRect};
class TABCButton : public TGraphicControl
{
private:
TColor FButtonColor;
bool FIsDown;
TColor FFrameColor;
int FFrameWidth;
int FCornerRadius;
HRGN FRgn;
HRGN MRgn;
TButtonShape FShape;
TColor FTextColor;
TTextStyle FTextStyle;
void __fastcall SetButtonColor(TColor Value);
MESSAGE void __fastcall CMEnabledChanged(TMessage &Message);
MESSAGE void __fastcall CMTextChanged(TMessage &Message);
MESSAGE void __fastcall CMDialogChar(TCMDialogChar &Message);
MESSAGE void __fastcall WMSize(TWMSize &Message);
protected:
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(CM_ENABLEDCHANGED, TMessage, CMEnabledChanged)
MESSAGE_HANDLER(CM_TEXTCHANGED, TMessage, CMTextChanged)
MESSAGE_HANDLER(CM_DIALOGCHAR, TCMDialogChar, CMDialogChar)
MESSAGE_HANDLER(WM_PAINT, TWMSize, WMSize)
MESSAGE_HANDLER(WM_LBUTTONDOWN, TWMLButtonDown, WMLButtonDown)
MESSAGE_HANDLER(WM_LBUTTONUP, TWMMouse, WMLButtonUp)
END_MESSAGE_MAP(TGraphicControl);
protected:
DYNAMIC void __fastcall Click(void);
virtual void __fastcall Paint(void);
void __fastcall SetFrameColor(TColor Value);
void __fastcall SetFrameWidth(int Value);
void __fastcall SetCornerRadius(int Value);
void __fastcall SetShape(TButtonShape Value);
void __fastcall SetTextStyle(TTextStyle Value);
void __fastcall WMLButtonDown(TWMLButtonDown &Message);
void __fastcall WMLButtonUp(TWMMouse &Message);
void __fastcall DrawShape();
void __fastcall WriteCaption();
public:
virtual __fastcall TABCButton(TComponent* Owner);
virtual __fastcall ~TABCButton();
__published:
__property TColor ButtonColor={read=FButtonColor,write=SetButtonColor};
__property Caption;
__property DragCursor;
__property DragMode;
__property Enabled;
__property Font;
__property TColor FrameColor={read=FFrameColor,write=SetFrameColor};
__property int FrameWidth={read=FFrameWidth,write=SetFrameWidth};
__property ParentFont;
__property ParentShowHint;
__property PopupMenu;
__property int CornerRadius={read=FCornerRadius,write=SetCornerRadius};
__property TButtonShape Shape={read=FShape,write=SetShape,default=shRoundRect};
__property ShowHint;
__property TTextStyle TextStyle={read=FTextStyle,write=SetTextStyle};
__property Visible;
__property OnClick;
__property OnDragDrop;
__property OnDragOver;
__property OnEndDrag;
__property OnMouseDown;
__property OnMouseUp;
__property OnMouseMove;
};
#endif
回复于：2002-09-24 09:53:17
代码：TABCButton.CPP(第一部分)
//--------------------------------------------------------------
//---------------------------------------------------------------------------
#pragma hdrstop
#include "ABCButton.h "
//---------------------------------------------------------------------------
#pragma package(smart_init)
namespace Abcbutton
{
void __fastcall PACKAGE Register()
{
TComponentClass classes[1] = {__classid(TABCButton)};
RegisterComponents( "Samples ", classes, 0);
}
}
__fastcall TABCButton::TABCButton(TComponent* Owner) : TGraphicControl(Owner)
{
TControlStyle TmpCS;
TmpCS <
ControlStyle=TmpCS;
Enabled=true;
FButtonColor=clBtnFace;
FIsDown=false;
FFrameColor=clGray;
FFrameWidth=6;
FCornerRadius=10;
FRgn=0;
FShape=shRoundRect;
FTextStyle=txRaised;
Height=25;
Visible=true;
Width=97;
}
__fastcall TABCButton::~TABCButton()
{
delete FRgn;
delete MRgn;
}
void __fastcall TABCButton::Paint()
{
int Dia;
TColor ClrUp, ClrDown;
Canvas-> Brush-> Style=bsClear;
if(FIsDown)
{
ClrUp=clBtnShadow; ClrDown=clBtnHighlight;
}else
{
ClrUp=clBtnHighlight; ClrDown=clBtnShadow;
}
switch(FShape)
{
case shRoundRect:
{
Dia=2*CornerRadius;
MRgn=CreateRoundRectRgn(0, 0, Width, Height, Dia, Dia);
break;
}
case shCapsule:
{
if(Width else Dia=Height;
MRgn=CreateRoundRectRgn(0, 0, Width, Height, Dia, Dia);
break;
}
case shRectangle:
{
MRgn=CreateRectRgn(0, 0, Width-1, Height-1);
break;
}
case shOval:
{
CreateEllipticRgn(0, 0, Width, Height);
break;
}
}
Canvas-> Brush-> Color=FButtonColor;
FillRgn(Canvas-> Handle,MRgn, Canvas-> Brush-> Handle);
Canvas-> Brush-> Color=ClrUp;
FrameRgn(Canvas-> Handle, MRgn, Canvas-> Brush-> Handle, 1, 1);
OffsetRgn(MRgn, 1, 1);
Canvas-> Brush-> Color=ClrDown;
FrameRgn(Canvas-> Handle, MRgn, Canvas-> Brush-> Handle, 1, 1);
DrawShape();
WriteCaption();
}
void __fastcall TABCButton::DrawShape()
{
TColor FC, Warna;
BYTE R, G, B;
int AwalR, AwalG, AwalB,
AkhirR, AkhirG, AkhirB,
n, t, Dia;
if(!(FFrameWidth%2)) t=FFrameWidth;
else t=FFrameWidth+1;
Warna=(TColor)ColorToRGB(ButtonColor);
FC=(TColor)ColorToRGB(FrameColor);
Canvas-> Brush-> Color=Warna;
// gradient preparation
AwalR=GetRValue(FC); AkhirR=GetRValue(Warna);
AwalG=GetGValue(FC); AkhirG=GetGValue(Warna);
AwalB=GetBValue(FC); AkhirB=GetBValue(Warna);
FRgn=0;
for(n=0;n {
R=AwalR+(int)(sqrt(t*t-sqrt(t-n))*(AkhirR-AwalR)/t);
G=AwalG+(int)(sqrt(t*t-sqrt(t-n))*(AkhirG-AwalG)/t);
B=AwalB+(int)(sqrt(t*t-sqrt(t-n))*(AkhirB-AwalB)/t);
Canvas-> Brush-> Color=(TColor)RGB(R, G, B);
switch(Shape)
{
case shOval:
{
FRgn=CreateEllipticRgn(1+n, 1+n, Width-n, Height-n);
break;
}
case shRoundRect:
{
Dia=CornerRadius;
if((Dia-n)> 0)
FRgn=CreateRoundRectRgn(1+n, 1+n, Width-n, Height-n, 2*(Dia-n),
2*(Dia-n));
else FRgn=CreateRectRgn(1+n, 1+n, Width-n-1, Height-n-1);
break;
}
case shCapsule:
{
if(Width else Dia=Height/2;
if ((Dia-n)> 0)
FRgn=CreateRoundRectRgn(1+n, 1+n, Width-n, Height-n, 2*(Dia-n),
2*(Dia-n));
else FRgn=CreateRectRgn(1+n, 1+n, Width-n-1, Height-n-1);
break;
}
}
FrameRgn(Canvas-> Handle, FRgn, Canvas-> Brush-> Handle, 1, 1);
}
}
void __fastcall TABCButton::WriteCaption()
{
UINT Flags;
int BtnL, BtnT, BtnR, BtnB;
TRect R, TR;
R=ClientRect;
TR=ClientRect;
Canvas-> Font=Font;
Canvas-> Brush-> Style=bsClear;
Flags=DT_CENTER|DT_SINGLELINE;
Canvas-> Font=Font;
if(FIsDown) FTextColor=FrameColor;
else FTextColor=Font-> Color;
BtnT=(Height+Canvas-> TextHeight(Caption))/2;
BtnB=BtnT+Canvas-> TextHeight(Caption);
BtnL=(Width-Canvas-> TextWidth(Caption))/2;
BtnR=BtnL+Canvas-> TextWidth(Caption);
TR=Rect(BtnL, BtnT, BtnR, BtnB);
R=TR;
if(((TextStyle==txLowered) && FIsDown) ||
((TextStyle==txRaised) && !FIsDown))
{
Font-> Color=clHighlight;
OffsetRect(TR, -1+1, -1+1);
DrawText(Canvas-> Handle, Caption.c_str(), Caption.Length(),&TR, Flags);
}
else if(((TextStyle==txLowered) && !FIsDown)||
((TextStyle==txRaised) && FIsDown))
{
Font-> Color=clBtnHighlight;
OffsetRect(TR, +2, +2);
DrawText(Canvas-> Handle, Caption.c_str(), Caption.Length(), &TR, Flags);
}
else if ((TextStyle==txShadowed) && FIsDown)
{
Font-> Color=clBtnShadow;
OffsetRect(TR, 3+1, 3+1);
DrawText(Canvas-> Handle, Caption.c_str(), Caption.Length(), &TR, Flags);
}
else if ((TextStyle==txShadowed) && (!FIsDown))
{
Font-> Color=clBtnShadow;
OffsetRect(TR, 2+1, 2+1);
DrawText(Canvas-> Handle, Caption.c_str(), Caption.Length(), &TR, Flags);
}
if(Enabled) Font-> Color=FTextColor;
else if((TextStyle==txShadowed) && (!Enabled))
Font-> Color=clBtnFace;
else Font-> Color=clBtnShadow;
if(FIsDown) OffsetRect(R, 1, 1);
else OffsetRect(R, -1, -1);
DrawText(Canvas-> Handle, Caption.c_str(),Caption.Length(), &R, Flags);
}
回复于：2002-09-24 09:55:31
代码 ABCButton.cpp(第二部分)
//-----------------------------------------------------------------
void __fastcall TABCButton::SetButtonColor(TColor Value)
{
if(Value!=FButtonColor)
{
FButtonColor=Value;
Invalidate();
}
}
void __fastcall TABCButton::WMLButtonDown(TWMLButtonDown &Message)
{
if (!PtInRegion(MRgn, Message.XPos, Message.XPos)) return ;
FIsDown=true;
Paint();
TGraphicControl::DefaultHandler(&Message);
// Dispatch(&Message);
}
void __fastcall TABCButton::WMLButtonUp(TWMMouse &Message)
{
if(!FIsDown) return;
FIsDown=false;
Paint();
TGraphicControl::DefaultHandler(&Message);
// Dispatch(&Message);
}
void __fastcall TABCButton::SetShape(TButtonShape Value)
{
if(Value!=FShape)
{
FShape=Value;
Invalidate();
}
}
void __fastcall TABCButton::SetTextStyle(TTextStyle Value)
{
if(Value!=FTextStyle)
{
FTextStyle=Value;
Invalidate();
}
}
void __fastcall TABCButton::SetFrameColor(TColor Value)
{
if(Value!=FFrameColor)
{
FFrameColor=Value;
Invalidate();
}
}
void __fastcall TABCButton::SetFrameWidth(int Value)
{
int w;
if(Width else w=Height;
if(Value!=FFrameWidth)
FFrameWidth=Value;
if(FFrameWidth <4)
FFrameWidth=4;
if(FFrameWidth> (w/2))
FFrameWidth=w/2;
Invalidate();
}
void __fastcall TABCButton::SetCornerRadius(int Value)
{
int w;
if(Width w=Width;
else w=Height;
if(Value!=FCornerRadius)
FCornerRadius=Value;
if(FCornerRadius <3)
FCornerRadius=3;
if(FCornerRadius> w)
FCornerRadius=w;
Invalidate();
}
void __fastcall TABCButton::CMEnabledChanged(TMessage &Message)
{
TGraphicControl::DefaultHandler(&Message);
Invalidate();
}
void __fastcall TABCButton::CMTextChanged(TMessage &Message)
{
Invalidate();
}
void __fastcall TABCButton::CMDialogChar(TCMDialogChar &Message)
{
if(IsAccel(Message.CharCode, Caption) && Enabled)
{
Click();
Message.Result=1;
}
else
{
;
TGraphicControl::DefaultHandler(&Message);
// Dispatch(&Message);
}
}
void __fastcall TABCButton::WMSize(TWMSize &Message)
{
// TGraphicControl::DefaultHandler(&Message);
TGraphicControl::Dispatch(&Message);
if(Message.Width> 145) Width=145;
if(Message.Height> 145) Height=145;
}
void __fastcall TABCButton::Click(void)
{
FIsDown=false;
Invalidate();
TControl::Click();
}
回复于：2002-09-24 15:43:35
为什么闪阿？因为有错误啊！
。。。。
嗬嗬，贴主忙着从delphi翻成BCB，却忘了With Canvas的作用范围。恰恰Font属性是控件和Canvas共有的...
所以麽就死循环了...闪阿...
WriteCaption方法中...
if(((TextStyle==txLowered) && FIsDown) ||
((TextStyle==txRaised) && !FIsDown))
{
Font-> Color=clHighlight;//错！ Canvas-> Font-> Color。。
下同。略去！
Inherited 视情况而定，如果在构造和析构时，不用再添足了...
DefaultHandler(&Message);是用来派发消息的吧...
回复于：2002-09-24 17:13:49
ysh (大白菜) :
帮你改好了。不再有闪烁。
这里已经很长了，不适合再贴，如何把程序给你
阅读(801) | 评论(0) | 转发(0) |
