Skip to content

Commit

Permalink
Update VirtualTrees.pas
Browse files Browse the repository at this point in the history
Minor improvement for TVTLineMode.lmBands, see #1091
  • Loading branch information
joachimmarder committed Mar 13, 2022
1 parent 7319d4d commit e2651d2
Showing 1 changed file with 2 additions and 4 deletions.
6 changes: 2 additions & 4 deletions Source/VirtualTrees.pas
Original file line number Diff line number Diff line change
Expand Up @@ -30834,13 +30834,11 @@ procedure TBaseVirtualTree.PaintTree(TargetCanvas: TCanvas; Window: TRect; Targe
begin
if BidiMode = bdLeftToRight then
begin
DrawDottedHLine(PaintInfo, CellRect.Left + IfThen(toFixedIndent in FOptions.PaintOptions, 1, IndentSize) * Integer(FIndent), CellRect.Right - 1,
CellRect.Bottom - 1);
DrawDottedHLine(PaintInfo, CellRect.Left + PaintInfo.Offsets[ofsCheckBox] - fImagesMargin, CellRect.Right - 1, CellRect.Bottom - 1);
end
else
begin
DrawDottedHLine(PaintInfo, CellRect.Left, CellRect.Right - IfThen(toFixedIndent in FOptions.PaintOptions, 1, IndentSize) * Integer(FIndent) - 1,
CellRect.Bottom - 1);
DrawDottedHLine(PaintInfo, CellRect.Left, CellRect.Right - IfThen(toFixedIndent in FOptions.PaintOptions, 1, IndentSize) * Integer(FIndent) - 1, CellRect.Bottom - 1);
end;
end
else
Expand Down

0 comments on commit e2651d2

Please sign in to comment.