TRichView.com

Posted: **Sat Jan 24, 2009 5:58 pm**

Hi,

Using 11 TDBRichViewEdit comps on one form with one RVStyle and one RVHtmlImport on it. I Get List out of bounce.... When Removing all TDBRichViewEdit except one, it is working, but when adding just one more TDBRichViewEdit I get list out of bounce....

On my datamodule I have added a RVAControlPanel and on each OnEnter event of each TDBRichViewEdit I have:

Code: Select all

dm.RVAControlPanel1.DefaultControl := TCustomRichViewEdit(Sender);

On each TDBRichView I have a LoadCustomFormat becurse I Loads/saves as HTML (only the body part of the HTML):

Code: Select all

procedure TSub1Form.Editor1LoadCustomFormat(
  Sender: TCustomRichView; Stream: TStream; var DoDefault: Boolean);
var
  s: string;
begin
  Stream.Position := 0;
  SetLength(s, Stream.Size);
  Stream.ReadBuffer(PChar(s)^, Length(s));
  try
    RvHtmlImporter1.RichView := Sender;
    RvHtmlImporter1.LoadHtml(s);
  finally
    Sender.Format;
  end;
  DoDefault := False;
end;

I have events on:

Code: Select all

CaretMove
Change
Enter
Jump
KeyDown
LoadCustomFormat
ReadHyperlink
SaveCustomFormat
WriteHyperlink

The form never shows when having more than one TDBRichViewEdit, so I suspects the conversion of the HTML, but ....

Any ideas or suggestions highly appriciatede!!!

TIA
-Kurt

Posted: **Sat Jan 24, 2009 10:17 pm**

I found the answer in the archives....

Re: Work with two DBRichViewEdit in same form

Posted: 04/14/2005 23:27:55
Link DBRichViewEdit2 to its own RVStyle.

And that did it!

-Kurt