Skip to content

Commit e2651d2

Browse files
committed
Update VirtualTrees.pas
Minor improvement for TVTLineMode.lmBands, see #1091
1 parent 7319d4d commit e2651d2

File tree

1 file changed

+2
-4
lines changed

1 file changed

+2
-4
lines changed

Source/VirtualTrees.pas

+2-4
Original file line numberDiff line numberDiff line change
@@ -30834,13 +30834,11 @@ procedure TBaseVirtualTree.PaintTree(TargetCanvas: TCanvas; Window: TRect; Targe
3083430834
begin
3083530835
if BidiMode = bdLeftToRight then
3083630836
begin
30837-
DrawDottedHLine(PaintInfo, CellRect.Left + IfThen(toFixedIndent in FOptions.PaintOptions, 1, IndentSize) * Integer(FIndent), CellRect.Right - 1,
30838-
CellRect.Bottom - 1);
30837+
DrawDottedHLine(PaintInfo, CellRect.Left + PaintInfo.Offsets[ofsCheckBox] - fImagesMargin, CellRect.Right - 1, CellRect.Bottom - 1);
3083930838
end
3084030839
else
3084130840
begin
30842-
DrawDottedHLine(PaintInfo, CellRect.Left, CellRect.Right - IfThen(toFixedIndent in FOptions.PaintOptions, 1, IndentSize) * Integer(FIndent) - 1,
30843-
CellRect.Bottom - 1);
30841+
DrawDottedHLine(PaintInfo, CellRect.Left, CellRect.Right - IfThen(toFixedIndent in FOptions.PaintOptions, 1, IndentSize) * Integer(FIndent) - 1, CellRect.Bottom - 1);
3084430842
end;
3084530843
end
3084630844
else

0 commit comments

Comments
 (0)