|
#1
|
|||
|
|||
Metafiles
Такая проблема.
При распечатке метафайла на принтере, распечатся получается бесцветная Такое чувство что 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, 22.09.2009 в 16:11. |
#2
|
||||
|
||||
А FillRect не пробовал? Предполагаю, что трабл с ФлудФилом...
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |