您的位置:首页 > 其它

VirtualTreeview鼠标移动到相应节点时,节点背景颜色发生变化

2015-03-04 00:00 465 查看
摘要: VirtualTreeview鼠标移动到相应节点时,节点背景颜色发生变化

VirtualTreeview鼠标移动到相应节点时,节点背景颜色发生变化

procedure TForm1.VirtualStringTree1BeforeItemErase(

Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode;

ItemRect: TRect;
var ItemColor: TColor;

var EraseAction: TItemEraseAction);

begin

if Sender.HotNode = Node
then

begin

EraseAction := eaColor;

ItemColor := clGreen;

end;

end;

procedure TForm1.VirtualStringTree1MouseMove(Sender: TObject;

Shift: TShiftState; X, Y: Integer);

begin

VirtualStringTree1.Invalidate;

end;
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
相关文章推荐