| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

HDC канваса.фонта у Тривию как освободить??? [D5, Win95/98, Win2k, WinXP]

Kacnep ©   (2002-10-08 14:14:00) 

Есть код...
procedure TfMain.tvListUsersCustomDrawItem(Sender: CustomTreeView;Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
var
N:TTreeNode;
begin
// if (cdsSelected in State)then Exit;
if Node.Level=0 then begin
N:=Node.getFirstChild;
if N=Nil then (Sender as TTreeView).Canvas.Font.Color:=clRed
else begin
if (GetUserStatus(N) in [usOffLine, usHidden])then (Sender as TTreeView).Canvas.Font.Color:=clRed
else (Sender as TTreeView).Canvas.Font.Color:=clBlue;
end
end
else begin
if (GetUserStatus(Node)in[usOffLine, usHidden]) then (Sender as TTreeView).Canvas.Font.Color:=clRed
else (Sender as TTreeView).Canvas.Font.Color := clBlue;
end;
end;

и когда Форма даже не активна ДИКО!!!! жутко жруться GDI Objects/
Когда ремарим вывод цветом просто подставляем Begin end; все нормально!!!! видимо надоо освободить HDC фонта но нету RELEASEHANDLE ^(((

---

Kacnep   (2002-10-08 14:28:00) [1]

СПАСИБО ОГРОМНОЕ! НЕ ПРЕДСТАВЛЯЕШЬ КАК ПОМОГ! ПАРИЛИСЬ УЖЕ НЕДЕЛИ 2!

---

REA   (2002-10-08 14:16:00) [2]

Поставь очередной патч к Delphi - там это пофиксено.

---

Наверх