Permalink
Browse files

Slightly increase height of nodes in VirtualTree's. Closes #468.

  • Loading branch information...
ansgarbecker committed Jan 12, 2019
1 parent 806c9e5 commit 92c8eb5bc893e43cbb8d9dd595fcd7b47f193fac
Showing with 1 addition and 1 deletion.
  1. +1 −1 source/apphelpers.pas
@@ -1465,7 +1465,7 @@ procedure FixVT(VT: TVirtualStringTree; MultiLineCount: Word=1);
begin
// This is called either in some early stage, or from preferences dialog
VT.BeginUpdate;
SingleLineHeight := GetTextHeight(VT.Font) + 3;
SingleLineHeight := GetTextHeight(VT.Font) + 5;
// Multiline nodes?
VT.DefaultNodeHeight := SingleLineHeight * MultiLineCount;
VT.Header.Height := SingleLineHeight;

0 comments on commit 92c8eb5

Please sign in to comment.