Возможно ли установить разный шрифт в разных подменю TreeView?

← →
Yuraz © (2003-07-29 11:42) [0]

Хотя бы цвет?

← →
Zergling © (2003-07-29 11:50) [1]

>> в разных подменю TreeView?

т.е. каждая ветка свои светом? Думаю не прокатит.

← →
Caligula (2003-07-29 11:55) [2]

Можно сделать что-нибудь в этом роде, если создать свой класс - наследник обычного TTreeView... Но конкретной схемы или исходника этого дела у меня нет.

← →
ZrenBy © (2003-07-29 12:02) [3]

procedure TfDep.twCustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if(cdsSelected in State)then begin
(Sender as TTreeView).Canvas.font.Color := $0000FF00;
(Sender as TTreeView).Canvas.Font.Name := "Courier";
(Sender as TTreeView).Canvas.Font.Size := 18;
end;

if(Node = ...

← →
Yuraz © (2003-07-29 12:56) [4]

ZrenBy © (29.07.03 12:02)
Воспользовался твоим советом, одно но, если размер меняю, то потом обратно отрисовывается, но уже на том большом шрифте. Т.е. не менять размер, и будет нормально. За совет спасибо!
Ещё бы узнать как например, я добавляю субменю
JustAddedNode: TTreeNode;
Как именно его отрисовать другого цвета, а другие не отрисовывать?

← →
ZrenBy © (2003-07-29 13:08) [5]

if(Node.Parent <> nil)then begin
(Sender as TTreeView).Canvas.font.Color := $0000FFFF;
(Sender as TTreeView).Canvas.Font.Name := "Courier";

if(Odd(Integer(Node.Data))=True)then begin
(Sender as TTreeView).Canvas.Font.Style := [];
end else begin
(Sender as TTreeView).Canvas.Font.Style := [fsItalic];
end;
end;

В Node.Data я храню нужную мне информацию

С назначением размера шрифта в TreeView заморочка есть: стандартный компонен для этого не рассчитан, и хотя отрисовать можно, но часть надписи будет "не кликабельной", т.е. не верно будет определяться размер листа дерева. Что-то такое мне на памяти смутно всплывает...

А еще посмотри сколько твоя прога занимала памяти ДО отрисовки и ПОСЛЕ. А еще после 10 пересовок.

Возможно ли установить разный шрифт в разных подменю TreeView? Найти похожие ветки