Re: Redraw drag&dropped TComponent

Author

Message

Pieter E.

Posted: 11/15/2004 0:59:53

Dear Sergey,

Next problem:

The controls which are drag & dropped ones, don't show the resizable rectangle

anymore, so resizing is imposible. Drag & drop does works.

Pieter E.

"Pieter E." <[email protected]> wrote:

>Dear Sergey,

>I found a way of showing the TEdit and TMemo correctly.

>The new code for RVEdit.pas is:

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

> rve.Controls[i].Refresh;

> rve.Controls[i].Hide;

> rve.Controls[i].Show;

> end

> rve := TCustomRichViewEdit(rve.InplaceEditor);

> end;

>end;

>It isn't the most beautiful way but it works!

>(Maybe it is only a problem in C++ Builder)

>Pieter E.

>(PS. rve.Controls[i].Hide; && rve.Controls[i].Show; are added to the code)

>"Pieter E." <[email protected]> wrote:

>>Dear Sergey,

>>I changed the RVEdit.pas en rebuild it. It seems better, but there are

still

>>some problems.

>>1. TEdit and TMemo look still not right. They doesn't show correctly.

>>2. After drag&drop reselecting en redragging is impossible or very difficult.

>>Pieter E.

>>"Sergey Tkachenko" <[email protected]> wrote:

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

>>>