Delphi Programming

Unit VirtualTrees;
private procedure AdjustCoordinatesByIndent(var PaintInfo: TVTPaintInfo; Indent: Integer);


This routine is called by TBaseVirtualTree.PaintTree in relation to the painting of the main column. The main column is the one with the tree lines in it. It takes the space for the tree lines into account. It shrinks the ContentRect from the left, and shifts the node glyphs to the right, all by an amount equalt to the indent property value (usually 18 pixels).

If bidi is not left to right, then the movement goes the other way.