1. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Первый товар уже в продаже: Консультация на тему ИБ от Ondrik8

    Скрыть объявление
  2. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Второй товар маркетплейса: Надёжная обфускация вашей программы от PingVinich

    Скрыть объявление

Matafiles

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

  1. Lazerus

    Lazerus Гость

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

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