Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.018 c
14-88229
Слесарь Матерящийся
2003-03-12 09:54
2003.03.27
Риски и угрозы для России в 2003 году


1-88062
Верещагин
2003-03-15 12:44
2003.03.27
Fast Report


1-87890
LoCKeR
2003-03-16 12:49
2003.03.27
Как показать файлы, как в проводнике?


1-87916
D.M.
2003-03-17 12:10
2003.03.27
Получения списка папок.


3-87875
Oleg(tm)
2003-03-09 19:23
2003.03.27
Как получить через ADO результаты работы триггера?