TRichView.com

Huhu, i have found a smaller Answer to my Problem: if SRichViewEdit1.PageCount = 1 then begin exit; end; // SRichViewEdit1.RichViewEdit.Undo; This helps very much, because there are no problems with deleting Content by inserting an Item between (or before) other Items that will generate a new Page ...

var PageCount: Integer; begin if SRichViewEdit1.PageCount = 1 then exit; SRichViewEdit1.CanUpdate := False; while SRichViewEdit1.PageCount > 1 do begin PageCount := SRichViewEdit1.PageCount; SRichViewEdit1.DeletePage(SRichViewEdit1.PageCount); if PageCount = SRichViewEdit1.PageCount then with ...

procedure TFInsertControls.SRichViewEdit1PaintPage(Sender: TObject; PageNo: Integer; PageRect, R: TRect; Canvas: TCanvas; Prepaint, Printing: Boolean); var i, i2 : Integer; begin if SRichViewEdit1.PageCount > 1 then begin SRichViewEdit1.GetPageStartItemNo(2, i, i2); if SRichViewEdit1.GetPageNo ...

Moin moin, all i want to know is, how can i prevent the User to add a new Page on my Richview? I tried so many things out... Also the Forum is full of threads how it is possible to add a page break, but i couldnt find any of how to prevent of page break... my last try ends up like this: procedure ...