Print Bitmap/ru: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		## Как отправить изображение на принтер
2	2
3	3		``` pascal
4	4		// uses Printers; // необходимо подключить модуль
5	5		var
6	6		Scale :LongInt;
7	7		begin
8	8		with Printer do
9	9		begin
10	10		BeginDoc;
11	11		Scale := Min(
12	12		Printer.PageWidth div Image1.Picture.Bitmap.Width,
13	13		Printer.PageHeight div Image1.Picture.Bitmap.Height);
14	14
15	15		Printer.Canvas.StretchDraw(
16	16		Rect(0, 0, Image1.Picture.Bitmap.WidthScale, Image1.Picture.Bitmap.HeightScale),
17	17		Image1.Picture.Bitmap);
18	18
19	19		EndDoc;
20	20		end;
21	21		end;
22	22		```
23	23
24		-	\
25	24		Печать jpeg картинки с масштабированием через Bitmap на лист А4
26	25
27	26		``` pascal
28	27		// uses Printers; // необходимо подключить модуль
29	28		procedure PrintImage(Image: TImage);
30	29		var
31	30		TempImageBMP: Graphics.TBitmap;
32	31		TempImageJPEG: TImage;
33	32		ScaleX, ScaleY: Double;
34	33		RectLeft,RectTop,RectRight,RectBottom: Integer;
35	34		begin
36	35
37	36		TempImageBMP := Graphics.TBitmap.Create;
38	37		TempImageBMP.Assign(Image.Picture.Graphic);
39	38		TempImageJPEG := TImage.Create(Self);
40	39		TempImageJPEG.Picture.Bitmap := TempImageBMP;
41	40
42	41		Printer.BeginDoc;
43	42		// Расчет соотношение сторон
44	43		ScaleX := Printer.PageWidth / TempImageJPEG.Picture.Bitmap.Width;
45	44		ScaleY := Printer.PageHeight / TempImageJPEG.Picture.Bitmap.Height;
46	45
47	46		RectLeft:=0;
48	47		RectTop:=0;
49	48		RectRight := trunc(TempImageJPEG.Picture.Bitmap.Width * scaleX);
50	49		RectBottom := trunc(TempImageJPEG.Picture.Bitmap.Height * scaleY);
51	50		Printer.Canvas.StretchDraw(
52	51		Rect(RectLeft,RectTop,RectRight,RectBottom),
53	52		TempImageJPEG.Picture.Bitmap);
54	53		Printer.EndDoc;
55	54
56	55		TempImageBMP.Free;
57	56		TempImageJPEG.Free;
58	57		end;
59	58		```
60	59
61	60		---
62	61		From the Free Pascal wiki, page "Print Bitmap/ru", as it stood on 2020-02-23 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history