Fix ElTree

Quanos Service Solutions GmbH

Hi,

we found a Problem in Painting the scrollbars if one scrollbar is needed when the other is needed

Add following in procedure TCustomElTree.AlignPieces;

    if FHScrollVisible and FUseCustomBars then
    begin
      ...
      HRectValid := True;                                                 <- New Line
    end
    else                                                                         <- New Line
      HRectValid := False;                                               <- New Line


and replace

    with HScrollRect do
      if FHScrollVisible and FUseCustomBars then
        SetWindowPos(FHScrollBar.Handle, HWND_TOP, Left, Top, Right - Left, Bottom - Top, SWP_NOACTIVATE or SWP_NOOWNERZORDER or SWP_NOZORDER or SWP_SHOWWINDOW or SWP_NOSENDCHANGING)
      else


with

    with HScrollRect do
      if FHScrollVisible and FUseCustomBars then
      begin
        if HRectValid then
          SetWindowPos(FHScrollBar.Handle, HWND_TOP, Left, Top, Right - Left, Bottom - Top, SWP_NOACTIVATE or SWP_NOOWNERZORDER or SWP_NOZORDER or SWP_SHOWWINDOW or SWP_NOSENDCHANGING);
      end
      else

Eugene Balabuev (LMD)

Hi,

Thianks for report. Your code has been incorporated.