多功能标签CLabelEx
作者:北方工业大学 阙荣文(querw)
引言做用户界面的时候经常要用到一些静态文本控件,显示一些文字信息,但是 MFC 提供的 CStatic类的功能过于简单,无法满足高级需求。为此我从 CStatic 派生了一个类 CLabelEx,扩展了CStatic。第一次投稿,水平不足请大家见谅。我从 vckbase.com 学到了很多很多东西 ,该是我回报的时候了。
一、功能简介新增的功能主要有:
1、设置背景图片SetBGBitmap();设置鼠标经过时的背景图片SetMouseOverBGBitmap();设置鼠标单击后的背景图片SetClickedBGBitmap();
2、设置标签图片,SetLabelBitmap();设置鼠标经过时的标签图片SetMouseOverLabelBitmap();设置鼠标单击时的标签图片
3、文字功能
(1)设置字体颜色,下划线等就不说了.
(2)感应鼠标经过时自动加上下划线,自动把文字变蓝(就像一个超链接一样)
4、边框和背景
可以设置/取消边框,指定边框颜色;设置背景色,并填充整个标签
二、实现原理1、其实就是在OnPaint()里画出各种效果: void CLabelEx::OnPaint()
{
CPaintDC dc(this); // device context for painting
dc.SetTextColor(m_crText);
dc.SetBkMode(TRANSPARENT);
dc.SelectObject(this->GetFont());
///准备工作
CRect rect;
CDC MemDC;
CPen BorderPen,*pOldPen,UnderLinePen;
CBrush BGBrush,*pOldBrush;
BITMAP bm;
int nTextLeft=0,nTextTop=0; //文字输出的位置
this->GetClientRect(&rect);
MemDC.CreateCompatibleDC(&dc);
MemDC.SetMapMode(dc.GetMapMode());
///画边框
if(m_bBorder)
{
BorderPen.CreatePen(PS_SOLID,1,m_crBorder);
BGBrush.CreateSolidBrush(m_crBG);
pOldPen=dc.SelectObject(&BorderPen);
pOldBrush=dc.SelectObject(&BGBrush);
dc.Rectangle(&rect);
dc.SelectObject(pOldPen);
dc.SelectObject(pOldBrush);
rect.DeflateRect(1,1);
}
///贴背景图
if(m_bClicked && m_ClickedBGBm.GetSafeHandle()!=NULL)
{
MemDC.SelectObject(m_ClickedBGBm);
dc.BitBlt(rect.left,rect.top,rect.Width(),rect.Height(),
&MemDC,0,0,SRCCOPY);
}
else if(m_bOver && m_MouseOverBGBm.GetSafeHandle()!=NULL)//鼠标经过的时候
{
MemDC.SelectObject(m_MouseOverBGBm);
dc.BitBlt(rect.left,rect.top,rect.Width(),rect.Height(),
&MemDC,0,0,SRCCOPY);
}
else if(m_BGBm.GetSafeHandle()!=NULL)
{
MemDC.SelectObject(m_BGBm);
dc.BitBlt(rect.left,rect.top,rect.Width(),rect.Height(),
&MemDC,0,0,SRCCOPY);
}
///贴标签图片
if(m_bClicked && m_ClickedLabelBm.GetSafeHandle()!=NULL)
{
m_ClickedLabelBm.GetBitmap(&bm);
double fScal=bm.bmWidth*1.0/bm.bmHeight;
nTextLeft=int(rect.Height()*fScal)+4;
MemDC.SelectObject(m_ClickedLabelBm);
dc.StretchBlt(rect.left,rect.top,int(rect.Height()*fScal),rect.Height(),
&MemDC,0,0,bm.bmWidth,bm.bmHeight,SRCCOPY);
}
else if(m_bOver && m_MouseOverLabelBm.GetSafeHandle()!=NULL)
{
m_MouseOverLabelBm.GetBitmap(&bm);
double fScal=bm.bmWidth*1.0/bm.bmHeight;
nTextLeft=int(rect.Height()*fScal)+4;
MemDC.SelectObject(m_MouseOverLabelBm);
dc.StretchBlt(rect.left,rect.top,int(rect.Height()*fScal),rect.Height(),
&MemDC,0,0,bm.bmWidth,bm.bmHeight,SRCCOPY);
}
else if(m_LabelBm.GetSafeHandle()!=NULL)
{
m_LabelBm.GetBitmap(&bm);
double fScal=bm.bmWidth*1.0/bm.bmHeight;
nTextLeft=int(rect.Height()*fScal)+4;
MemDC.SelectObject(m_LabelBm);
dc.StretchBlt(rect.left,rect.top,int(rect.Height()*fScal),rect.Height(),
&MemDC,0,0,bm.bmWidth,bm.bmHeight,SRCCOPY);
}
else
{
nTextLeft=4;
}
///输出文字
TEXTMETRIC tm;
dc.GetTextMetrics(&tm);
CString strText;
this->GetWindowText(strText);
nTextTop=rect.top+(rect.Height()-tm.tmHeight)/2;
if(strText.GetLength()>0)
{
dc.TextOut(nTextLeft,nTextTop,strText);
}
///画下划线
if(m_bUnderLine)
{
nTextLeft-=2;
nTextTop=nTextTop+tm.tmHeight+1;
UnderLinePen.CreatePen(PS_SOLID,1,m_crUnderLine);
pOldPen=dc.SelectObject(&UnderLinePen);
dc.MoveTo(nTextLeft,nTextTop);
dc.LineTo(nTextLeft+tm.tmAveCharWidth*strText.GetLength(),nTextTop);
}
}
注:对字体加下划线我没有使用直接设置字体下划线的方法,因为我觉得那样不好看,呵呵
2、感应鼠标用的方法如下所示:
在MouseMove里SetCapture()和ReleaseCapture(); void CLabelEx::OnMouseMove(UINT nFlags, CPoint point)
{
// TODO: Add your message handler code here and/or call default
if (m_bOver) // Cursor is currently over control
{
CRect rect;
GetClientRect(rect);
if (!rect.PtInRect(point))
{
m_bOver = FALSE;
if(m_bAutoUnderLine) ///自动下划线
{
this->SetUnderLine(FALSE,RGB(0,0,0));
}
if(m_bHighLight) //自动高亮
{
///恢复原来的字体颜色
this->SetTextColor(m_crBackText);
}
RedrawWindow();
ReleaseCapture();
return;
}
}
else // Cursor has just moved over control
{
m_bOver = TRUE;
if(m_bAutoUnderLine)
{
this->SetUnderLine(TRUE,RGB(0,0,255));
}
if(m_bHighLight)
{
m_crBackText=m_crText;
this->SetTextColor(RGB(0,0,255));
}
RedrawWindow();
SetCapture();
::SetCursor(m_hHandCur);
}
CStatic::OnMouseMove(nFlags, point);
}
注:这种方法简单方便,但是有一个问题,看附带的工程,单击Label1弹出一个对话框后Label1无法恢复原状。我一直没解决这个问题.若谁知道请告知我 querw@sina.com