VPF::Обрезке текста в VitrualStringTree - Форум программистов

estra

Дата 25.12.2009, 12:36 (ссылка)

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

Загрузка ...

Шустрый

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

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

Если текст в нод не помещается, он обрезается и в конце строки ставится '…' (многоточие).
user posted image

Когда в моем дереве выбирается нод, в событии DrawText шрифт этого нода делается жирным

Код


procedure TMainForm.VSTDrawText(Sender: TBaseVirtualTree; TargetCanvas: TCanvas;
  Node: PVirtualNode; Column: TColumnIndex; const Text: string;
  const CellRect: TRect; var DefaultDraw: Boolean);
begin
   if vsSelected in Node.States then
      TargetCanvas.Font.Style := TargetCanvas.Font.Style + [fsBold]
   else
      TargetCanvas.Font.Style := TargetCanvas.Font.Style - [fsBold];
end;

При этом текст уже обрезается неверно (не так, когда нод не выбран)
user posted image

Как при изменении стиля шрифта "сказать" VirtualTreeView, чтобы он пересчитал длинну строки и правильно ее обрезал с учетом нового стиля?

kami

Дата 25.12.2009, 18:53 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

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

Перенеси этот обработчик в OnPaintText, должно помочь. Это событие происходит раньше OnDrawText, и после него производится уточнение кое-каких параметров. А после OnDrawText сразу вызывается DrawTextW (хотя по-идее эта виндовая функция сама должна все обработать).

estra

Дата 25.12.2009, 23:25 (ссылка)

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

Загрузка ...

Шустрый

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

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

спасибо, помогло smile

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