Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TTreeView [D5, Win2k]

Roadstar © (2004-08-18 09:59:00)
Здрасте!
Возникла такая проблема:
как в subj организовать перенос строк по словам, которые не помещаются в окне дерева?
Заранее благодарен.

Семен Сорокин (2004-08-18 11:18:00) [1]

> Roadstar (18.08.04 11:09) [6]

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

Roadstar (2004-08-18 11:09:00) [2]

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

Не вопрос!

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;

Семен Сорокин (2004-08-18 10:51:00) [3]
"и на елку залезть и ж... не ободрать" (с) пословица
код приведи.

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

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

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

Семен Сорокин (2004-08-18 10:28:00) [5]
Он мне отрисовывает вроде и мои изменения, но и свои рисует постарому. ОТАКЕ.

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

Roadstar (2004-08-18 10:14:00) [6]

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

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

Семен Сорокин (2004-08-18 10:04:00) [7]
OnCustomDrawItem должен помочь

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »