Вниз
Скачать: 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.013 c
1-33106
Kiril
2003-07-29 22:31
2003.08.11
Есть ли готовая процедура, компонента (PosWithMistakes)?


1-33221
chs2r
2003-07-29 12:41
2003.08.11
Каким способом рисуется курсор в TWinControl ах?


4-33387
Dankin
2003-06-06 04:56
2003.08.11
Как можно пожно послать активному приложению команду вставить ;)


6-33241
Инна
2003-06-04 15:14
2003.08.11
WebSnap


3-33074
AkaSaint
2003-07-18 23:31
2003.08.11
Locking granularity, используемая Jet Access




   Наверх