Re: Printing Inserted component

Return to index

Author

Message

Sergey Tkachenko

Posted: 02/23/2003 19:57:50

You need to process TRVPrint.OnPrintComponent:

procedure TForm1.RVPrint1PrintComponent(Sender: TCustomRVPrint;

  PrintMe: TControl; var ComponentImage: TBitmap);

begin

  if PrintMe is TRxGifAnimator then begin

    ComponentImage := TBitmap.Create;

    ComponentImage.Assign(TRxGifAnimator(PrintMe).Image);

    end

  else

    ComponentImage := DrawControl(PrintMe);

end;