Цвет в TreeView

← →
Kacnep (2002-10-03 13:08) [0]

ЛЮЮЮДРИ не бейте за битый вопрос...
Использовал знания взятые Королевства Дельфи НО (сначала код)
procedure TfMain.tvListUsersCustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
var
N:TTreeNode;
st:TUserStatus;
begin
with tvListUser.Canvas do begin
if Node.Level=0 then begin
N:=Node.getFirstChild;
if N=Nil then Font.Color:=clRed else begin
st:=GetUserStatus(N); // ф-я возврщает байт статуса
if (st in [usOffLine, usHidden])and(not(cdsSelected in State)) then Font.Color:=clRed
else if not (cdsSelected in State) then Font.Color:=clBlue;
end
end
else
if (GetUserStatus(Node) in [usOffLine, usHidden])and(not(cdsSelected in State)) then Font.Color := clRed else
if (not(cdsSelected in State)) then Font.Color := clBlue;
end;
end;

КОД РАБОТАЕТ! НО при выводе в Таск Менеджере GDI Объектов - караул. Как только я начинаю бегать по веткам дерева (Есть группы - это первый уровень и есть пользователи -это второй уровень) начинают дико отъедаться ресурсы :(
Может что неправильно запрограмил???

← →
Proton_ (2002-10-03 14:36) [1]

скорее всего так и дложно быть

Цвет в TreeView Найти похожие ветки