problem with ArcTo(...)

I have problems with Canvas.ArcTo( ... ) function. On screen everything is fine. With wPDF I always get a vertical line from top of the canvas to the starting point of the arc in the final pdf file. I tried with wPDF 4.81, 4.82 and 5 trial and always got the same result.

It seems that y value of actual pen position is ignored (or assumed to be zero) when drawing the arc.

Arc( ... ) is not an alternative, because it's not working with StrokeAndFillPath in my case.

Is it a bug? Any known workaround?

Best regards,

Dirk

Here is part of my source code and a screenshot of the result:

  WPPDFPrinter1.BeginDoc;

  WPPDFPrinter1.StartPage( GetDeviceCaps( Printer.Handle , PHYSICALWIDTH ) ,
													 GetDeviceCaps( Printer.Handle , PHYSICALHEIGHT ) ,
													 GetDeviceCaps( Printer.Handle , LOGPIXELSX ) ,
													 GetDeviceCaps( Printer.Handle , LOGPIXELSY ) , 0 );

  Canvas := WPPDFPrinter1.Canvas;

  Canvas.Pen.Width := 5;

  Canvas.Pen.Color := clBlack;
  Canvas.MoveTo( 1000 , 500 );
  Canvas.ArcTo( 1500 , 500 , 500 , 1500 , 1000 , 500 , 500 , 1000 );

  Canvas.Pen.Color := clRed;
  Canvas.MoveTo( 1100 , 550 );
  Canvas.LineTo( 1050 , 550 );

  Canvas.Pen.Color := clBlack;
  Canvas.ArcTo( 1550 , 550 , 550 , 1550 , 1050 , 550 , 550 , 1050 );

  WPPDFPrinter1.EndPage;

  WPPDFPrinter1.EndDoc;

[Blocked Image: https://www.ahnenblatt.de/files/wpdf-ArcTo-problem.jpg]

Hi wpsupport,

1.: here: [Blocked Image: https://www.ahnenblatt.de/files/Page1.EMF]

2.: yes, but the wpdf result is very chaotic: [Blocked Image: https://www.ahnenblatt.de/files/canvas%20vs%20wpdf.jpg]

Best regards,

Dirk

P.S.: What does "Blocked image" mean? I can open the links - nothing is blocked ... or is it blocked for others/you?

Yes, I use SetArcDirection twice with second parameter AD_COUNTERCLOCKWISE and AD_CLOCKWISE to get a full shape (piece of donut).

That's how I got the "chaotic" shapes in pdf file.

Shouldn't the shapes be the same on screen and in pdf?

- Dirk

Any news in my case?

I still need a solution to get the same shapes in pdf as on screen (the "chaotic" one - the simple one was only for demonstration).

1. Could you reproduce the situation? You never confirmed that.

2. Is it a bug in wpdf? Only in 4.8x or also in 5.x?

3. Which version have you used to get a correct pdf? In my case SetArcDirection changed nothing - I am using 4.8x - but also tried the 5.x trial.

4. What should I do next?

5. Can you confirm that an update to 5.x would help? 5.x trial did no change.

6. Where could I find the changelog of wpdf to check if something was changed?

- Dirk

Again sample code and the result.

procedure DrawShape( Canvas: TCanvas );
begin

  Canvas.Brush.Color := clLime;
  Canvas.Brush.Style := bsSolid;
  Canvas.Pen.Width   := 5;
  Canvas.Pen.Color   := clGrayText;

  Canvas.MoveTo( 1000 , 500 );

  BeginPath( Canvas.Handle );
  SetArcDirection( Canvas.Handle, AD_COUNTERCLOCKWISE );
  Canvas.ArcTo( 1500 , 500 , 500 , 1500 , 1000 , 500 , 500 , 1000 );

  Canvas.LineTo( 550 , 1050 );

  SetArcDirection( Canvas.Handle, AD_CLOCKWISE );
  Canvas.ArcTo( 550 , 1550 , 1550 , 550 , 550 , 1050 , 1050 , 550 );

  Canvas.LineTo( 1000 , 500 );

  EndPath(Canvas.Handle);
  StrokeAndFillPath(Canvas.Handle);

end;

procedure TForm1.Button1Click(Sender: TObject);
begin

  ...
  DrawShape( WPPDFPrinter1.Canvas );
  ...

end;

procedure TForm1.Button2Click(Sender: TObject);
var
  Canvas: TCanvas;
begin

  DrawShape( PaintBox1.Canvas );

end;

And this is the result (left PaintBox - right pdf file):

[Blocked Image: https://www.ahnenblatt.de/files/wpdf-ArcTo-problem2.jpg]

How can I get the same result in pdf?

- Dirk

Sounds good. Thanks.

I hope, I have not wait too long ... ;-)

- Dirk