Some fixes for ElTree/Inplaceeditors

Quanos Service Solutions GmbH

Enhance TElTreeView.Paint to

procedure TElTreeView.Paint;
var
  i: Integer;
  Editor: TWinControl;
begin
  FPainting := True;
  RedrawTree(Canvas, FOwner.FHPos, FVisible);

  for i := 0 to Self.FOwner.EditorManager.EditorsList.Count - 1 do
  begin
   if Self.FOwner.IsEditing then
   begin
     if IsWindowVisible(TElTreeInplaceEditor(Self.FOwner.EditorManager.EditorsList[i]).Editor.Handle) then
     begin
       Editor := TElTreeInplaceEditor(Self.FOwner.EditorManager.EditorsList[i]).Editor;
       Editor.PaintTo(Canvas, Editor.Left, Editor.Top);
     end;
   end;
  end;

  FPainting := False;
end;

procedure TElTreeView.DoEditItem(Item: TElTreeItem; SectionNum: integer);

 ...

 if FOwner.RightAlignedView then
  ...
      begin
        R.Right := R.Right - (2 * FDivLineWidth);                <- Add  2 *
        R.Left := R.Left + i * FDivLineWidth;
      end;

//    inc(R.Bottom);                                                       <- Remove this line

balabuev

Done.