怎样让Treeview下的节点根据各种情况可以指定不同的颜色
解决方案 »
- TDataSource
- 求助,如何一运行程序就执行Timer控件中的内容?
- 怎樣讓2153如此的數據在一個范圍內一個一個的由上往下的慢慢顯示出來?
- 公司需要.转做delphi 需要一个关于delphi技术的群
- 何处有WinMessenger v2.1的原码下载
- EHLIB3.0中,按TAB增加一行怎了得?
- 谁有DELPHI7的注册码?
- (转载ohsee (静静) ):如何把密码保存在可执行程序本身上?=类似病毒吧?谢了。
- 有谁能提供InstallShield Express for delphi5下载点
- 关于toolbutton的风格?
- 一个com组件引用的问题。急急急
- 大家帮帮我吧。QR问题,郁闷了好几天了…………
procedure TEditForm.TreeView1CustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if Node.Selected then
begin
TreeView1.Canvas.Font.Color:=clRed;
TreeView1.Canvas.Font.Size:=12;
TreeView1.Canvas.Font.Name:='隶书';
end
else
begin
TreeView1.Canvas.Font.Color:=clblack;
TreeView1.Canvas.Font.Size:=9;
TreeView1.Canvas.Font.Name:='宋体';
end;
end;
//还可以设置 TreeView1.Canvas.Font 的其他属性,来达到显示不同的效果。