TTreeView

← →
Roadstar (2004-08-18 09:59) [0]

Здрасте!
Возникла такая проблема:
как в subj организовать перенос строк по словам, которые не помещаются в окне дерева?
Заранее благодарен.

← →
Семен Сорокин © (2004-08-18 10:04) [1]

OnCustomDrawItem должен помочь

← →
Roadstar (2004-08-18 10:14) [2]

> Семен Сорокин

Я уже попробовал.
Он мне отрисовывает вроде и мои изменения, но и свои рисует постарому. ОТАКЕ.
Че делать?

← →
Семен Сорокин © (2004-08-18 10:28) [3]

Он мне отрисовывает вроде и мои изменения, но и свои рисует постарому. ОТАКЕ.

на вот этот параметр: var DefaultDraw: Boolean внимания не обращал? что Help говорит?

← →
Roadstar (2004-08-18 10:39) [4]

> Семен Сорокин

Ты выключал я его!
Он мне тогда не рисует иконы и крестики перед нодами.
Вот засада!

← →
Семен Сорокин © (2004-08-18 10:51) [5]

"и на елку залезть и ж... не ободрать" (с) пословица
код приведи.

← →
Roadstar (2004-08-18 11:09) [6]

> Семен Сорокин

Не вопрос!

procedure TDispForm.ConfigurationTestAdvancedCustomDrawItem(
Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState;
Stage: TCustomDrawStage; var PaintImages, DefaultDraw: Boolean);
Var
ARect : TRect;
Flag : Cardinal;
begin
ARect := Node.DisplayRect(True);
ARect.Right := 150;
ARect.Bottom := ARect.Bottom + 100;
if cdPostPaint = Stage then begin
DefaultDraw := False;
PaintImages := true;
With ConfigurationTest.Canvas Do
Begin
Font.Assign(ConfigurationTest.Font);
If cdsSelected In State then
begin
Brush.Color := clBlue;
Font.Color := clWhite;
end
else
begin
Brush.Color := clWindow;
Font.Color := clBlack;
end;
Flag := DT_LEFT or DT_WORDBREAK;
DrawText(ConfigurationTest.Canvas.Handle, PChar(Node.Text),length(Node.Text),ARect,Flag);
Refresh;
End;
end;
end;

> Roadstar (18.08.04 11:09) [6]

Тебе физически высоту Item"а надо задавать, а не только при отрисовке...
см. ф-ю TreeView_SetItemHeight из commcrls.pas

TTreeView Найти похожие ветки