Re: RichAction and TPDFDocument componant

Author

Message

Mike Anderson

Posted: 02/18/2005 23:20:31

Thanks Sergey for reply,

The easy way to explain; add two component to RichAction demo.

pdf: TPDFDocument; // i have registered version, I think you too, if not

please use demo version

rvrh:TRVReportHelper ;

Here is the code

procedure TForm3.Button5Click(Sender: TObject);

var

i:smallint;

pt: TPoint;

begin

RichViewEdit1.SaveRTF('C:\test.rtf',False);

RichViewEdit1.Modified:=False;

rvrh.RichView.Style := RVStyle1;

rvrh.RichView.RTFReadProperties.ParaStyleMode := rvrsAddIfNeeded;

rvrh.RichView.RTFReadProperties.TextStyleMode := rvrsAddIfNeeded;

rvrh.RichView.RTFReadProperties.UnicodeMode := rvruMixed;

rvrh.RichView.Clear;

rvrh.RichView.DeleteUnusedStyles(True,True,True);

rvrh.RichView.LoadRTF('C:\test.rtf'); // not working no page loaded

showmessage(inttostr(rvrh.PagesCount));

// Also you can ignore lines bellow, just above line..

if rvrh.Ready then

begin

Screen.Cursor := crHourGlass;

pdf.Resolution := Screen.PixelsPerInch;

pdf.FileName := 'c:\test1.pdf';

pdf.BeginDoc;

pdf.Page[0].Size := GetPageSize;

pdf.Page[0].Orientation := GetPageOrientation;

try

rvrh.Init(pdf.Canvas, 641); // here is the error because no page loaded

in rvrh -

while rvrh.FormatNextPage(971) do;

for i := 0 to rvrh.PagesCount-1 do begin

if i>0 then begin

pdf.NewPage;

pdf.Page[i].Size := pdf.Page[0].Size;

pdf.Page[i].Orientation := pdf.Page[0].Orientation;

end;

SetViewportOrgEx(pdf.Canvas.Handle, 5, 5, @pt);

rvrh.DrawPage(i+1, pdf.Canvas, False, 971);

SetViewportOrgEx(pdf.Canvas.Handle, pt.x, pt.y, nil);

end;

pdf.EndDoc;

finally

end;

Thnaks

"Sergey Tkachenko" <[email protected]> wrote in message

news:[email protected]...

> Not enough information.

> Did you copy document to rvrh correctly?

> Did you initialize pdf? (called pdf.BeginDoc)

>> Hello,

>> I have TPDFDocument from http://www.llion.net/ I would like to use

>> TPDFDocument with RichAction

>> I mean, use RichAction and create PDF from same program. but I'm getting

>> error

>> List Index out of bound (0) on line

>> rvrh.Init(pdf.Canvas, DocWidth);

>> {

>> rvrh: TRVReportHelper;

>> rvrh using same TRVStyle with in RichView form.

>> }

>> any idea ?

>> Thanks