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);
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;
Code: Select all
CaretMove
Change
Enter
Jump
KeyDown
LoadCustomFormat
ReadHyperlink
SaveCustomFormat
WriteHyperlink
Any ideas or suggestions highly appriciatede!!!
TIA
-Kurt