MFC 添加背景图片并让控件背景透明和TREEVIEW添加背景图片

MFC 添加背景图片并让控件背景透明

收藏我要投稿/*添加背景图片*/

BOOL CTOOLDlg::OnEraseBkgnd(CDC* pDC)

{

// TODO: 在此添加消息处理程序代码和/或调用默认值

CDialog::OnEraseBkgnd(pDC);

HBITMAP m_hBitmap;

HDC m_hBkDC;

m_hBitmap

= ::LoadBitmap(::GetModuleHandle(NULL),MAKEINTRESOURCE(IDB_BITMAP2));

m_hBkDC = ::CreateCompatibleDC(pDC-> m_hDC);

if(m_hBitmap && m_hBkDC)

{

::SelectObject(m_hBkDC,m_hBitmap);

::StretchBlt(pDC-> m_hDC,0,0,700,610,m_hBkDC,0,0,700,610,SRCCOPY);

::DeleteObject(m_hBitmap);

::DeleteDC(m_hBkDC);

}

return TRUE;

}

/*设置控件背景透明*/

HBRUSH CTOOLDlg::OnCtlColor(CDC* pDC, CWnd* pWnd, UINT nCtlColor)

{

HBRUSH hbr = CDialogEx::OnCtlColor(pDC, pWnd, nCtlColor);

if(nCtlColor == CTLCOLOR_STATIC )

{

pDC->SetBkMode(TRANSPARENT);//设置背景透明

pDC->SetTextColor(RGB(255,255,0));//设置字体为黄色

return (HBRUSH)::GetStockObject(NULL_BRUSH);

}

// TODO: 如果默认的不是所需画笔，则返回另一个画笔

return hbr;

}

treeview添加背景图片

(2012-01-31 13:58:53)

转载▼

标签：

分类：Delphi

delphi

treevie

w

杂谈

在uses中加types;

procedure TForm1.TreeView1CustomDraw(Sender: TCustomTreeView; const ARect: TRect; var DefaultDraw: Boolean);

var

btop, bLeft: Integer;

rect: Trect;

x, y, h: integer;

begin

x := GetScrollPos(sender.Handle, SB_HORZ);

y := GetScrollPos(sender.Handle, SB_VERT);

h := 17;

rect := sender.ClientRect;

rect.Bottom := rect.Top + sender.Height;

btop := rect.Bottom - Image1.Picture.Bitmap.Height - y *

h;

bleft := rect.Right - Image1.Picture.Bitmap.Width - x;

sender.Canvas.FillRect(Arect);

rect := Types.rect(bleft - 1, btop - 1, bleft +

Image1.Picture.Bitmap.Width + 1, bTop + Image1.Picture.Bitmap.Height + 1);

if IntersectRect(rect, rect, arect) then

BitBlt(sender.Canvas.Handle, Arect.Left, Arect.Top, Arect.Right - Arect.Left ,

Arect.Bottom - Arect.top ,

Image1.Picture.Bitmap.Canvas.Handle, Arect.Left - bleft, Arect.Top - btop, SRCCOPY);

DefaultDraw := true;

end;

解决图片闪烁，移动：

procedure TForm1.TreeView1Expanding(Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean);

begin

treeview1.Invalidate;

end;

procedure TForm1.TreeView1Collapsing(Sender: TObject; Node: TTreeNode; var AllowCollapse: Boolean);

begin

treeview1.Invalidate;

end;

还有2种方法给treeview添加背景图片：

在formcreate事件中写：treeview.brush.bitmap:=image.picture.bitmap; 在treeview的oncustomDraw事件中写：

with treeview do

begin

Canvas.Brush.bitmap:=image.picture.bitmap;

canvas.FillRect(ARect);

end;