Как в TreeView писать итемы своим цветом

← →
vlgrig1961 (2004-01-19 09:01) [0]

Эдравствуйте уважаемые!
У меня такой вопрос Как в TreeView писать итемы своим цветом
Это делается в CustomDrawItem но такая вещь, после того
как написалось моим цветом (clRed) следующий итем сам меняет
шрифт ????? Почему???????

procedure TfForm1.TreeView1CustomDrawItem(Sender: CustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: boolean);
var
NodeRect: TRect;
begin
if Node.StateIndex>=-1 then exit;
if cdsSelected in State then exit;

with ObjView.Canvas do begin
Font.Name:=ObjView.Font.Name;
Font.Size:=ObjView.Font.Size;
Font.Style:=ObjView.Font.Style;
Font.Color:=ObjView.Font.Color;
if Node.StateIndex=3 then Font.Color := clRed;

NodeRect := Node.DisplayRect(True);
TextOut(NodeRect.Left, NodeRect.Top, Node.Text);
end;
end;

← →
Семен Сорокин (2004-01-19 10:07) [1]

убери следующие 2 строчки из обработчика, достаточно изменить свойства канвы, и он сам все что нужно отрисует, к тому же ты не меняешь DefaultDraw.

NodeRect := Node.DisplayRect(True);
TextOut(NodeRect.Left, NodeRect.Top, Node.Text);

Как в TreeView писать итемы своим цветом Найти похожие ветки