Re: Redraw drag&dropped TComponent

Return to index

Author

Message

Sergey Tkachenko

Posted: 11/14/2004 22:33:17

I confirm this bug.

It was added when I changed the method of display "freezing" while making

drag&drop operation.

It will be fixed in the next update.

Quick fix:

Open RVEdit.pas, change

procedure TCustomRichViewEdit.RefreshAll;

var rve: TCustomRichViewEdit;

    i: Integer;

begin

  rve := GetRootEditor;

  while rve<>nil do begin

    rve.Refresh;

    for i := 0 to rve.ControlCount-1 do

      if rve.Controls[i]<>rve.InplaceEditor then

        rve.Controls[i].Refresh;

    rve := TCustomRichViewEdit(rve.InplaceEditor);

  end;

end;