Главная страница
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.012 c
14-88225
Supreme 2
2003-03-11 18:32
2003.03.27
Народ, я вернулся!!!


3-87835
Leo_pr
2003-03-07 15:13
2003.03.27
Драйвер BDE


3-87826
sunrider
2003-03-08 23:51
2003.03.27
Ошибка при выполнении модификации данных в Thread


6-88109
Morfein
2003-02-04 23:42
2003.03.27
SMTP


1-87901
MAXX_MAIL
2003-03-15 23:25
2003.03.27
События.