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

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;

---

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

> Roadstar   (18.08.04 11:09) [6]

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

---

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

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



Память: 0.46 MB
Время: 0.023 c