Вниз
Скачать: CL | DM;

Возможно ли установить разный шрифт в разных подменю 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 я храню нужную мне информацию


 
KSergey ©   (2003-07-29 13:12) [6]

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


 
Calm ©   (2003-07-29 13:26) [7]

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



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.009 c
1-33156
Альф
2003-07-25 16:12
2003.08.11
Как ограничить перемещение по гриду ???


14-33315
АТ
2003-07-24 17:03
2003.08.11
Установил Delphi7, кажется зря...


14-33360
Мазут Береговой
2003-07-25 09:02
2003.08.11
Давненько я не был здесь! Как у вас тут все изменилось!


14-33367
Best Gun
2003-07-21 23:22
2003.08.11
Какими болванкамив вы пользуетесь?


11-33083
Bartov
2002-12-02 10:23
2003.08.11
Справочная система – для ВСЕХ!




   Наверх