This forum is temporaily read-only. All existing discussions remain available for reference. For new questions, bug reports or support requests, please contact us at mail@lmdsupport.com.
TCustomElTree.DrawFlatBorder not rendering bottom and right border
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);
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.
Comments