FloodFill Как залить цветом область произвольной формы?

[estra]

Может есть аналог процедуры FloodFill из VCL?

[Brovin Yaroslav]

Нет, 

 

Как вариант, использовать заливку полигона или пути:

procedure TForm1.FormPaint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF);
begin
  Canvas.Fill.Kind := TBrushKind.Solid;
  Canvas.Fill.Color := TAlphaColorRec.Red;

  Canvas.FillPolygon([TPointF.Create(0, 0),
                      TPointF.Create(100, 0),
                      TPointF.Create(100, 100)], 1);
end;