Matafiles

  • Автор темы Lazerus
  • Дата начала
L

Lazerus

Гость
#1
Такая проблема.
При распечатке метафайла на принтере, распечатся получается бесцветная Такое чувство что 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;