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:
Code: Select all
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(SRichViewEdit1.ActiveEditor.RVData, i, i2) > 1 then
begin
SRichViewEdit1.DeletePage(2);
end;
end;
end;
hope you guys can help me out...
Greetings from Germany
Sry for my bad Language