Вниз
Скачать: CL | DM;

Как распечатать bmp файл   Найти похожие ветки 

 
49 Cent   (2006-05-03 17:06) [0]

Есть стандартный (определенного размера) bmp файл, который необходимо распечатать. Какой наиболее эффективный способ? Куда копать?


 
Джо ©   (2006-05-03 17:08) [1]

> Куда копать?

uses Printer;

Printer.BeginDoc;
try
 Printer.Canvas.Draw
 или
 Printer.Canvas.StretchDraw
finally
Printar.EndDoc;


 
AlexanderMS ©   (2006-05-03 17:09) [2]

Самый простой:
Printer.BeginDoc;
Printer.Canvas.Draw(10,10,Image1.Picture.Bitmap);
Printer.EndDoc;



> Куда копать?

Можно в справку по Delphi.


 
49 Cent   (2006-05-03 17:45) [3]

Оказывается, что в 7 Делфи надо указывать в uses Printers, а в других версиях Printer. У меня последний вопрос:


bmp:=TBitmap.Create;
bmp.Height:=shape1.Height;
bmp.Width:=shape1.Width;
DC:=GetDC(0);
bitblt(bmp.Canvas.Handle, 0, 0, bmp.Height,bmp.Width,DC, 0,85, SRCCOPY);

Printer.BeginDoc;
try
Printer.Canvas.StretchDraw(bmp.Canvas.ClipRect,bmp);
finally
Printer.EndDoc;


В результате печати получается очень-очень маленькая картинка? Как вылечить?
Заранее благодарен.


 
Джо ©   (2006-05-03 17:53) [4]

> [3] 49 Cent   (03.05.06 17:45)
> Оказывается, что в 7 Делфи надо указывать в uses Printers,
> а в других версиях Printer.

Во всех Printers, в [1] опечатка (и не одна).


> Как вылечить?

Указывать соответветствующий (больший) Rect.



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.028 c
2-1146654892
Alex7
2006-05-03 15:14
2006.05.21
Поиск ошибки


10-1119469828
beg
2005-06-22 23:50
2006.05.21
Сводная таблица(Excel)


9-1130332463
Кефир87
2005-10-26 17:14
2006.05.21
TDXSound без VCL


4-1141220906
Начинающий10
2006-03-01 16:48
2006.05.21
Сворачивание формы


15-1145698818
ZeFiR
2006-04-22 13:40
2006.05.21
Google APIs+Delphi=?




   Наверх