[LAzerus]

Такая проблема.
При распечатке метафайла на принтере, распечатся получается бесцветная Такое чувство что FloodFill не хочет выполняться.
Что делать?
Вот код:

Код:

var
  Metafile: TMetafile;
  MetaCanvas: TMetafileCanvas;
  MS:  TMemoryStream;
  Bitmap: TBitmap;
begin
  Metafile := TMetaFile.Create;
  MS := TMemoryStream.Create;
  Metafile.Height := 200;
  Metafile.Width  := 200;
  MetaCanvas := TMetafileCanvas.Create(Metafile, 0);
  MetaCanvas.Ellipse(20,20,150,150);
  MetaCanvas.Brush.Color := clYellow;
  MetaCanvas.Brush.Style := bsSolid;
  MetaCanvas.FloodFill(90, 90,  clBlack, fsBorder);
  MetaCanvas.Free;
  Metafile.Enhanced := False;
  Image1.Picture.Metafile := Metafile;
  image1.Picture.SaveToFile('C:\ABC.emf');
  Metafile.Free;
  Image1.Picture.Metafile.SaveToStream(MS);

  MS.Position := 0;
  dxMemData1.Open;
  dxMemData1.Insert;
  dxMemData1AAA.LoadFromStream(MS);
  dxMemData1.Post;
  frxReport1.ShowReport(True);
end;

Admin: Пользуемся тегами!