Richview RichEdit srichviewedit PageSize page setup and synchronization

RichView   RichEdit SRichViewEdit PageSize Page setup and synchronization

      Use RichView, establish Doc When you file , By setting TRVDocParameters After setting the page , Generated Doc File or Rtf When you file , The file is saved Page Set up , But the file created , Import required DBSRichViewEdit After the save , Unable to import Page Set up the data , At the same time through DBSRichViewEdit, The display cannot be synchronized Page Set up .

    Usually we document Page Set up , adopt TRVDocParameters Set up ： 

        Refer to the above parameters , Set up ：

procedure SetDocParameters(DP: TRVDocParameters;sPage:string);
begin
  if sPage='A4' then
  begin
    DP.PageWidth := 210;    //   It's in millimeters 
    DP.PageHeight := 297;
    DP.LeftMargin := 40;
    DP.RightMargin := 25;
    DP.TopMargin := 30;
    DP.BottomMargin := 30;
    DP.HeaderY := 10;
    DP.FooterY := 10;
   end;
  if sPage='A5' then
  begin
    DP.PageWidth := 148;
    DP.PageHeight := 210;
    DP.LeftMargin := 30;
    DP.RightMargin := 20;
    DP.TopMargin := 20;
    DP.BottomMargin := 20;
    DP.HeaderY := 10;
    DP.FooterY := 10;
  end;
end;

        such , We can pass the code , Sets the of the specified page DOC Document. .

        for example ： The process       procedure Generate(sPage:string); Is the process of creating text , The specific code is omitted .

        When executed  Generate(‘A4') and  Generate(‘A5') when , because SRichViewEdit What is the default A4, The screen shows A４ The page of .

 

     Upper figure A4 Interface , The figure below A5 Interface . 

         After research TSRichViewEdit class , Modify or set up Page Page data , Only through PageProperty Property creation or modification .

         stay procedure Generate(sPage:string);, In the code , When importing a document through a stream , Add code ：

    

  if sPage='A4' then
  begin
    RV.PageProperty.PageWidth := 21;      //   The unit is centimeter 
    RV.PageProperty.PageHeight := 29.7;   
    RV.PageProperty.LeftMargin := 4;
    RV.PageProperty.RightMargin := 2.5;
    RV.PageProperty.TopMargin := 3;
    RV.PageProperty.BottomMargin := 3;
    RV.PageProperty.HeaderY := 1;
    RV.PageProperty.FooterY := 1;
   end;
  if sPage='A5' then
  begin
    RV.PageProperty.PageWidth := 14.8;
    RV.PageProperty.PageHeight := 21;
    RV.PageProperty.LeftMargin := 3;
    RV.PageProperty.RightMargin := 2;
    RV.PageProperty.TopMargin := 2;
    RV.PageProperty.BottomMargin := 2;
    RV.PageProperty.HeaderY := 1;
    RV.PageProperty.FooterY := 1;
  end;

        Realization RichEdit SRichViewEdit PageSize Synchronous display .