Как сделать так чтобы перенс длинои в 300 символов делился на две строки???

Пример:
+Городаааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааа
-Улицы

Нужно чтоб было так:
+Городааааааааааааааааааааааааааааааааа
аааааааааааааааааааааааааааааааааааааа
-Улицы

VirtuallView прозьба не предлагать (Сложный слишком и глючный)..

Заранее спасибо!!!
[email protected]

Думаю, надо делать свой обработчик OnCustomDrawItem и в нем выводить текст в зависимости от его длины в одну или несколько строк. Я попробовал, но мне не удалось изменить высоту Item'a. Кто может подскажет, как можно сделать TreeView с разной высотой Item'ов?

Я не знаю как это вообще делается.

Вот достаточно корявый кусок кода (вы уж извиняйте), который отрисовывает TreeView, без плюсиков, черточек, линий и прочего (это примитивный минимум):

Код

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean); var  NodeRect: TRect; begin  with TreeView1.Canvas do  begin    DefaultDraw := false;    if cdsSelected in State then      Font.Color := clRed;    NodeRect := Node.DisplayRect(False);    Brush.Color := clBlue;    Brush.Style := bsClear;    FillRect(NodeRect);    Brush.Color := clRed;    NodeRect.Left := NodeRect.Left + (Node.Level * TreeView1.Indent);    NodeRect.Left := NodeRect.Left + TreeView1.Indent;    // Разбивка на строки будет более красивая в будущем,    // пока сойдет так:    TextOut(NodeRect.Left, NodeRect.Top, Copy (Node.Text, 1, 5));    NodeRect.Top := NodeRect.Top + 10;    TextOut(NodeRect.Left, NodeRect.Top, Copy (Node.Text, 5, Length (Node.Text)));  end; end;

Вопрос, который, созрел у меня в предыдущем посте остался - как же увеличить высоту Item'a, чтобы например текст уместился в 2 строки?

Цитата(Dimich @ 16.11.2004, 09:39)

Вопрос, который, созрел у меня в предыдущем посте остался - как же увеличить высоту Item'a, чтобы например текст уместился в 2 строки?

Так можно установить эталонную высоту итемов:

Код

TreeView_SetItemHeight(TreeView1.Handle, 10);

(вместо 10 - подставь нужную высоту)

Далее, у каждого итема можно задать свойство Integral - это число умножается на эталонную высоту и получается высота итема (по умолчанию Integral = 1).
Чтобы задать Integral итема, делай так:

Код

uses CommCtrl; procedure TForm1.Button1Click(Sender: TObject); var  tviex : TTVItemEx; begin  tviex.mask := TVIF_INTEGRAL or TVIF_HANDLE;  tviex.hItem := treeview1.Selected.ItemId;;  tviex.iIntegral := 2;  SendMessage (TreeView1.Handle, TVM_SETITEM, 0, LPARAM(@tviex));  TreeView1.Invalidate; end;

Это сделает выбранный итем дерева размером в 2 строки...
Борланд по каким-то причинам не стал делать возможность изменения высоты отдельного итема на уровне VCL, поэтому если изменить высоту с помощью WinAPI, то становится как-то глюкаво