[FMX] Linear Gradient not working

[davidberneda]

It seems linear gradients do not work properly, nothing gets painted, here's a small example:

// GlobalUseSkia:=True <-- at .dpr

procedure TForm1.PaintBox1Paint(Sender: TObject; Canvas: TCanvas);
var Brush : TBrush;
    R : TRectF;
begin
  R:=PaintBox1.LocalRect;

  Brush:=TBrush.Create(TBrushKind.Gradient,TAlphaColors.Green);
  try
    Brush.Gradient.Color:=TAlphaColors.Green;
    Brush.Gradient.Color1:=TAlphaColors.Yellow;

//    Brush.Gradient.Style:=TGradientStyle.Linear;
//    Brush.Gradient.StartPosition.X:=0;
//    Brush.Gradient.StartPosition.Y:=0;
//    Brush.Gradient.StopPosition.X:=0;
//    Brush.Gradient.StopPosition.Y:=1;

    Canvas.FillRect(R,1,Brush);
  finally
    Brush.Free;
  end;
end;

[checkdigits]

// GlobalUseSkia:=True <-- at .dpr

You have the Skia library commented out - did you mean to do that?

[davidberneda]

No, its just for clarification. Without Skia the gradient is painted correctly, with Skia its not (nothing gets painted).

[TheOriginalBytePlayer]

This is the same issue as reported by #217 (comment) as styled controls often heavily use gradients.

[checkdigits]

I've added a comment about this to the original issue too: #217 (comment)

[paulocesarbot]

Fixed on new version 6.0.0-beta1