Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.01.29;
Скачать: CL | DM;

Вниз

Как в 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);



Страницы: 1 вся ветка

Текущий архив: 2004.01.29;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.014 c
6-93618
Andersen
2003-11-25 16:49
2004.01.29
DNS - сервер


14-93697
Anatoly Podgoretsky
2003-12-29 14:54
2004.01.29
С Днем Рождения 29.12.2003


14-93684
wWw
2004-01-06 20:27
2004.01.29
Как заставить замолкнуть сообщение WinXP


6-93594
Micah'GF
2003-11-25 17:40
2004.01.29
socket не хочет давать сокет


1-93514
Kinderrr
2004-01-18 21:57
2004.01.29
Класс для работы со скинами WinAmp