1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| procedure TfrmMain.treefieldsCustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
with sender do
begin
//if (node=sender.Selected) then
if (cdsSelected in state) then
begin
canvas.brush.color:=CLNavy;
canvas.Font.Color:=CLWhite;
canvas.Font.style:=[fsbold];
end
else
begin
canvas.brush.color:=clwindow;
canvas.Font.Color:=CLBlack;
canvas.Font.style:=[];
end;
canvas.FillRect(node.DisplayRect(false));
canvas.TextOut(node.DisplayRect(true).left,node.DisplayRect(true).top,node.Text);
end;
end; |
Partager