Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Обрезке текста в VitrualStringTree


Автор: estra 25.12.2009, 12:36
Если текст в нод не помещается, он обрезается и в конце строки ставится '…' (многоточие).
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
Перенеси этот обработчик в OnPaintText, должно помочь. Это событие происходит раньше OnDrawText, и после него производится уточнение кое-каких параметров. А после OnDrawText сразу вызывается DrawTextW (хотя по-идее эта виндовая функция сама должна все обработать).

Автор: estra 25.12.2009, 23:25
спасибо, помогло smile

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)