SRichViewEdit Header
SRichViewEdit Header
How I can to restrict editing header of TSRishViewEdit?
-
- Site Admin
- Posts: 17522
- Joined: Sat Aug 27, 2005 10:28 am
- Contact:
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:
This code disallows placing the caret in a header and a footer.
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;