delphi - 自動サイズ変更時にVirtualTreeView列のインデントを調整するにはどうすればよいですか？

Question

列の自動サイズ設定時に、VirtualStringTreeの列のコンテンツの左側と右側に同じインデントを設定したいと思います。

ヘッダーオプションhoDblClickResizeをオンにしたサンプルVSTを見てください。

この写真では、列ヘッダーをダブルクリックして、「時間」列のサイズを自動変更しました。列の左側と右側のインデントの違いを強調しました。

右のインデントが左のインデントと同じサイズになるようにVSTを調整するにはどうすればよいですか？VSTソースコードをハックする必要がありますか？もしそうなら、誰かが私をコードの正しい場所に向けることができますか？

Answer 1

イベントハンドラーを作成し、そこでパラメーターOnAfterGetMaxColumnWidthを増やしMaxWidthます。これを行っている物件は見つかりませんでした。

procedure VirtualStringTreeAfterGetMaxColumnWidth(Sender: TVTHeader; 
  Column: TColumnIndex; var MaxWidth: Integer);
begin
  MaxWidth := MaxWidth + VirtualStringTree.TextMargin;
end;