Matafiles

Тема в разделе "Delphi - Базы данных", создана пользователем Lazerus, 22 сен 2009.

  1. Lazerus

    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;
     

Поделиться этой страницей