Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Цвет в TreeView [D5, Win95/98, NT4, Win2k, WinXP]

Kacnep © (2002-10-03 13:08:00)
ЛЮЮЮДРИ не бейте за битый вопрос...
Использовал знания взятые Королевства Дельфи НО (сначала код)
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:00) [1]
скорее всего так и дложно быть

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »