SRichViewEdit Header

rellik · Post by **rellik** » Sat Nov 07, 2015 11:40 am

How I can to restrict editing header of TSRishViewEdit?

rellik · Post by **rellik** » Sat Nov 07, 2015 12:21 pm

answer to myself:

SrishViewEdit.RVHeader.ReadOnly:=true.

And another question to Sergey: May I show header only on the first page?

rellik · Post by **rellik** » Sat Nov 07, 2015 12:49 pm

I mush have header only on the firsp page, and can't edit them. It is possible?

Post by **Sergey Tkachenko** » Sat Nov 07, 2015 5:55 pm

Special header and footer for the first page are added if SRV.PageProperty.TitlePage := True

An alternative solution for making header/footer readonly.
Process OnChangeActiveEditor event:

Code: Select all

procedure TForm1.SRichViewEdit1ChangeActiveEditor(Sender: TSRichViewEdit; ActiveEditor: TRichViewEdit);
begin
  if (ActiveEditor=Sender.RVHeader) or (ActiveEditor=Sender.RVFooter) or
    ((ActiveEditor=Sender.RVNote) and (Sender.CurrentNoteParentEditor<>Sender.RichViewEdit)) then
  Sender.StartEditing(srvrveMain);
end;

This code disallows placing the caret in a header and a footer.