treeview添加背景图片

最新推荐文章于 2022-11-19 22:39:49 发布

转载最新推荐文章于 2022-11-19 22:39:49 发布 · 1.8k 阅读

文章标签：

#image #integer

My delphi 专栏收录该内容

6 篇文章

订阅专栏

本文介绍了使用 Delphi 对 TreeView 控件进行自定义绘制的方法，包括如何解决图片闪烁问题及两种添加背景图片的方式。此外，还提供了 TreeView 在展开和折叠节点时的优化方案。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在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;