Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

In this Discussion

TCustomElTree.DrawFlatBorder not rendering bottom and right border

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
      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.



Sign In or Register to comment.