[Lazarus] Patch for fpVectorial

[Leonardo M. Ramé]

On 2011-06-08 14:46:36 +0200, Felipe Monteiro de Carvalho wrote:
> On Wed, Jun 8, 2011 at 2:16 PM, Leonardo M. Ramé <l.rame at griensu.com> wrote:
> > Sorry, I use the fpvectorial package from fpc trunk, which is now on rev
> > 17692. Where is rev1666? is it from another repository?.
> 
> Yes, it is from the lazarus-ccr where I develop unstable features.
> 
> But I merged all changes in rev17693 to fpc trunk
> 

Felipe, It doesn't work.

I did this simple test:

var
  Vec: TvVectorialDocument; 
  lClYellow: TvColor = (Red: $FF; Green: $FF; Blue: $00; Alpha: FPValphaOpaque);

begin
  Vec := TvVectorialDocument.Create;
  try
    Vec.Width := Round(100);
    Vec.Height := Round(100);
    Vec.SetPenColor(lClYellow);
    Vec.SetPenWidth(1);
    Vec.StartPath(0, 0);
    Vec.AddLineToPath(100, 100);
    Vec.EndPath(); 
    DrawFPVectorialToCanvas(Vec, PaintBox1.Canvas);
  finally
    Vec.Free;
  end;
end;

This should draw a yellow line (with my patch it did), but now it draws
a black line.

-- 
Leonardo M. Ramé
http://leonardorame.blogspot.com