Вниз
Скачать: 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.026 c
15-1146207067
kaand
2006-04-28 10:51
2006.05.21
Удаление данных с диска без возможности восстановления


2-1146317725
Silica
2006-04-29 17:35
2006.05.21
Код ANSI


4-1140673293
delphi-oracle
2006-02-23 08:41
2006.05.21
Как получить строку SendMessage


3-1143189367
Emik
2006-03-24 11:36
2006.05.21
InterBase+SQL


15-1145858794
Spirit of RO
2006-04-24 10:06
2006.05.21
Используете ли вы




   Наверх