[code lang=”delphi”]procedure TForm1.PrintBitmap(TheImage : TImage);
\nvar
\n SourceRect, PrintRect: TRect;
\n Info: PBitmapInfo;
\n InfoSize: Integer;
\n Image: Pointer;
\n ImageSize: LongInt;
\n Bits: HBitmap;
\n DIBWidth, DIBHeight: LongInt;
\n PrintWidth, PrintHeight: LongInt;
\n PrintBitmap: TBitmap;
\nbegin
\n Printer.BeginDoc;
\n PrintBitmap := TBitmap.Create;
\n SourceRect.Left := TheImage.Left;
\n SourceRect.Top := TheImage.Top;
\n SourceRect.Right := TheImage.Left + Image1.Width;
\n SourceRect.Bottom := TheImage.Top + Image1.Height;<\/p>\n
{ Set up the height and width of the destination bitmap }
\n PrintBitmap.Height := SourceRect.Bottom – SourceRect.Top + 1;
\n PrintBitmap.Width := SourceRect.Right – SourceRect.Left + 1;<\/p>\n
{ Set the destination coordinates }
\n PrintRect.Top := 0;
\n PrintRect.Left := 0;
\n PrintRect.Right := PrintBitmap.Width;
\n PrintRect.Bottom := PrintBitmap.Height;<\/p>\n
{ Copy from the screen to the printer }
\n PrintBitmap.Canvas.CopyRect(PrintRect, self.Canvas, SourceRect);<\/p>\n
{ Here we will stretch the bitmap, and do the printing }
\n With Printer, Canvas Do
\n Begin
\n { Get the handle to the Print bitmap }
\n Bits := PrintBitmap.Handle;<\/p>\n
{ Get the information from the bitmap }
\n GetDIBSizes(Bits, InfoSize, ImageSize);<\/p>\n
{ Allocate the required memory for the operation }
\n GetMem(Info, InfoSize);
\n Try
\n GetMem(Image, ImageSize);
\n Try
\n GetDIB(Bits, 0, Info^, Image^);
\n With Info^.bmiHeader Do
\n Begin
\n DIBWidth := biWidth;
\n DIBHeight := biHeight;
\n End;
\n{ Adjust the print sizes (expand or contract) }
\n PrintWidth := MulDiv(DIBWidth, GetDeviceCaps(Handle,
\n LOGPIXELSX), PixelsPerInch);
\n PrintHeight := MulDiv(DIBHeight, GetDeviceCaps(Handle,
\n LOGPIXELSY), PixelsPerInch);
\n{ Move from one canvas to the other while stretching or compressing
\nthe image }
\n StretchDIBits(Canvas.Handle, 0, 0, PrintWidth, PrintHeight, 0,
\n 0,DIBWidth, DIBHeight, Image, Info^,
\n DIB_RGB_COLORS, SRCCOPY);
\n Finally<\/p>\n
FreeMem(Image, ImageSize);
\n End;
\n Finally
\n FreeMem(Info, InfoSize);
\n End;
\n End;
\n Printer.EndDoc;
\nend;
\n[\/code]<\/p>\n
[tags]Delphi, Graphic[\/tags]<\/p>\n","protected":false},"excerpt":{"rendered":"
[code lang=”delphi”]procedure TForm1.PrintBitmap(TheImage : TImage); var SourceRect, PrintRect: TRect; Info: PBitmapInfo; InfoSize: Integer; Image: Pointer; ImageSize: LongInt; Bits: HBitmap; DIBWidth, DIBHeight: LongInt; PrintWidth,…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":""},"categories":[11],"tags":[75,101],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p71Tml-2b","_links":{"self":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/135"}],"collection":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/comments?post=135"}],"version-history":[{"count":0,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/135\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/media?parent=135"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/categories?post=135"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/tags?post=135"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}