Главная страница
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.016 c
1-93513
Agent[007]
2004-01-12 21:30
2004.01.29
TStrings to TBitmap


14-93673
Holy
2004-01-07 11:19
2004.01.29
Инсталятор


14-93695
strong
2004-01-06 14:45
2004.01.29
Delphi 8


3-93393
Centurion
2003-12-30 13:48
2004.01.29
Прерывание запросов


14-93698
Knight
2004-01-06 12:18
2004.01.29
Можно ли построить диаграмму в Excel...