Code: Select all
procedure SRVMakeBW(Srv: TSRichViewEdit);
//var i: TSRVHeaderFooterType;
begin
MakeBW(Srv.RichViewEdit.Style);
MakeBW(Srv.RVHeader.Style);
MakeBW(Srv.RVFooter.Style);
//for i := Low(TSRVHeaderFooterType) to High(TSRVHeaderFooterType) do
// MakeBW(Srv.SubDocuments[i].GetRVStyle);
end;