| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как перерисовать один NODE in TTreeView без изменения текста [D7, Win2k, WinXP]
cdadmitriy © (2004-06-22 15:07:00)Как перерисовать один NODE in TTreeView без изменения текста
cdadmitriy (2004-06-23 08:46:00) [1]???
GrayFace (2004-06-22 18:06:00) [2]Может быть, WM_DRAWITEM.
cdadmitriy (2004-06-22 17:06:00) [3]меняется например TmyD(node.data).stat и по нему
меняется рисовка
procedure TFormView.MyTreeCustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
DefaultDraw:=true;
if Node.Data<>Nil Then if (TMyD(Node.Data).FStat)=WorkStatus Then
if Node.Level=0 Then Sender.Canvas.Brush.Color:=clLime else Sender.Canvas.Brush.Color:=$78D964;
end;
Amoeba (2004-06-22 16:17:00) [4]В чем суть проблемы? Задай вопрос по человечески, а то ни черта нельзя понять из-за чего возникла такая необходимость.
cdadmitriy (2004-06-22 16:10:00) [5]???
| |
