TCustomElTree.DrawFlatBorder not rendering bottom and right border

Fusion Systems Ltd

Hi,

This code (ElTree.pas [LMD2021], line 24016) seems to prevent theme services drawing the bottom and right border.

   if (LUseThemeMode <> ttmNone) and (BorderStyle = bsSingle) then
    begin
      SavedDC := SaveDC(DC);
      Inc(Rw.Right, 1);
      Inc(Rw.Bottom, 1);
      ExcludeClipRect(DC, RC.Left, RC.Top, RC.Right, RC.Bottom);

If the two Inc()s are commented out then the bottom and right border will draw as a solid line, the same as the top and left.

Eugene Balabuev (LMD)

Thanks for report. I need some time to look.

Eugene Balabuev (LMD)

Fixed.

Fusion Systems Ltd

Many thanks!