VPF::VirtualTreeView, изменить толщину линии RootNode

Trooper

Дата 16.6.2011, 16:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 34
Регистрация: 12.3.2007

Репутация: нет
Всего: нет

Подскажите, как сделать в компоненте VirtualTreeView такое же рисование цветной линии и более высокой линии, как на рисунке (только под элементами корня)

Присоединённый файл ( Кол-во скачиваний: 68 )

1.JPG 15,75 Kb

Dik0n

Дата 16.6.2011, 19:38 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 153
Регистрация: 11.5.2011

Репутация: 2
Всего: 10

Цитата

VirtualTreeView

Trooper, наварное VirtualStringTree, если да, то как вариант можно так

Код


procedure TForm1.vtMeasureItem(Sender: TBaseVirtualTree;
  TargetCanvas: TCanvas; Node: PVirtualNode; var NodeHeight: Integer);
begin
  if Node.ChildCount > 0 then NodeHeight := 22;
end;

procedure TForm1.vtAfterItemPaint(Sender: TBaseVirtualTree;
  TargetCanvas: TCanvas; Node: PVirtualNode; ItemRect: TRect);
begin
  if Node.ChildCount = 0 then Exit;

  with TargetCanvas, ItemRect do
  begin
    Pen.Width := 2;
    Pen.Color := $B59784;

    MoveTo(Left, Bottom - 1);
    LineTo(Right, Bottom - 1);
  end;
end;

procedure TForm1.vtPaintText(Sender: TBaseVirtualTree;
  const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
  TextType: TVSTTextType);
begin
  if (Column = 0) and (Node.ChildCount > 0) then
  begin
    TargetCanvas.Font.Style := [fsBold];
    TargetCanvas.Font.Color := $B59784;
  end;
end;

ЗЫ: Ну а вообще там куча вариантов отрисовки, эксперементируй smile

Это сообщение отредактировал(а) Dik0n - 16.6.2011, 19:43

--------------------

▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓ ◄◄◄ Сотри монеткой защитный слой

Trooper

Дата 17.6.2011, 10:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 34
Регистрация: 12.3.2007

Репутация: нет
Всего: нет

Dik0n, Спасибо то, что надо!!!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »