Polygon schraffieren ohne Brush.Style

[Neutral General]

Ich meine sowas:

Delphi-Quellcode:

var bmp: TBitmap;
    metafile: TMetafile;
    metaFileCanvas: TMetafileCanvas;
begin
  metafile := TMetafile.Create;
  metafile.Transparent := True;
  metaFileCanvas := TMetafileCanvas.Create(metafile, 0);

  bmp := TBitmap.Create;
  try
    bmp.Width = 500;  // Oder wie groß auch immer
    bmp.Height = 500;
    
    // Polygon mit Schraffur zeichnen
    bmp.Canvas.Brush.Color := clRed;
    bmp.Canvas.Brush.Style := bsCross;
    bmp.Canvas.Polygon([Point(12,2), Point(50,70), Point(150,320), Point(30,90)]);

    metaFileCanvas.Draw(0, 0, bmp); // Bitmap mit Polygon auf Metafilecanvas übertragen.
  finally
    bmp.Free;
  end;
end;