Текущий архив: 2003.03.27;
Скачать: CL | DM;

Вниз

печать графики   Найти похожие ветки 

← →
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 вся ветка

Текущий архив: 2003.03.27;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.031 c