Форум: "Media";
Текущий архив: 2003.03.27;
Скачать: [xml.tar.bz2];
Внизпечать графики Найти похожие ветки
← →
Yasha (2002-12-19 18:04) [0]подскажите пожалуйста как вывести на принтер TImage
← →
__Alx__ (2002-12-19 21:26) [1]CopyRect
с имейджа на канву принтера
← →
Mihey (2002-12-19 23:36) [2]Угу, используя TPrinter.
← →
LongIsland (2002-12-20 10:16) [3]
procedure TfmMain.mmPrintClick(Sender: TObject);
var
Info: PBitmapInfo;
InfoSize, ImageSize: DWord;
Image: Pointer;
begin
if not dgPrint.Execute then Exit;
Printer.BeginDoc;
GetDIBSizes(imMain.Picture.Bitmap.Handle, InfoSize, ImageSize);
Info:=AllocMem(InfoSize);
try
Image:=AllocMem(ImageSize);
try
GetDIB(imMain.Picture.Bitmap.Handle, 0, Info^, Image^);
StretchDIBits(Printer.Canvas.Handle,
0, 0, Printer.PageWidth, Printer.PageHeight,
0, 0, imMain.Width, imMain.Height,
Image, Info^, DIB_RGB_COLORS, SRCCOPY);
finally
FreeMem(Image, ImageSize);
end;
finally
FreeMem(Info, InfoSize);
end;
Printer.EndDoc;
end;
Дело в том, что распечатка больших рисунков, а также вывод на принтер, к которому кривоватые драйвера может привести к тому, что рисунок вообще не вылезет. Поэтому часто приходится выкручиваться. Такой способ меня пока не подводил.
Джентельмены...
Страницы: 1 вся ветка
Форум: "Media";
Текущий архив: 2003.03.27;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c