Gradients in svg files
lazarus / 54-FPvectorial

----------------------------------------------------------------------
pgarcia · 2013-11-04 11:32

Hi, FPvectorial don't work for svg gradients or is something grong in
my code?

procedure TForm1.Button1Click(Sender: TObject);
var
  Vec: TvVectorialDocument;
  page: TvVectorialPage;
  ts: TStringList;
begin
  ts := TStringList.Create();
  ts.Add('<svg xmlns="http://www.w3.org/2000/svg" width="100%"
height="100%" viewBox="0 0 1 1" preserveAspectRatio="none">');
  ts.Add('<linearGradient id="g348" gradientUnits="userSpaceOnUse"
x1="0%" y1="0%" x2="100%" y2="100%"> ');
  ts.Add('<stop stop-color="#FFFFFF" offset="0"/><stop stop-
color="#E3A820" offset="1"/>');
  ts.Add('</linearGradient>  ');
  ts.Add('<rect x="0" y="0" width="1" height="1" fill="url(#g348)"
/>');
  ts.Add('</svg> ');
  Vec := TvVectorialDocument.Create;
  try
    Image1.Canvas.Brush.Color := clWhite;
    Image1.Canvas.FillRect(0, 0, Image1.Width, Image1.Height);
    vec.ReadFromStrings(ts, vfSVG);
    page := vec.GetCurrentPageAsVectorial;
    page.DrawBackground(image1.canvas);
    page.Render(image1.Canvas, 0, image1.Height, 40, -40);
    image1.Invalidate;
  finally
    Vec.Free;
  end;
end;

This code is called form the onclick of a tbutton and image1 is a
TImage.
Thanks for the responses in advance

----------------------------------------------------------------------
felipemdc · 2014-12-27 18:55

Hello, I'm working in supporting gradients, but they are quite
complex....