RichView in RB

In case you use a RichView object you need to make this modifications in ppRichView.pas to make the PDF export work

1. Add wppdfRBDev to the uses clause

2. In tppDrawRichView.DoDraw ad a new condition:

...

  else if (aDevice is tppwpdfdevice) then begin

    lCanvas := tppwpdfdevice(aDevice).Canvas;

    ADrawRect := DrawRect;

  end

  ...

3. Ad a new condition in line 1200:

  ...

  Or (aDevice is tppwpdfdevice) ...