[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]

{
Here is some code I use to print a bitmap with StretchDIBits.  The
function accomplishes the same thing as StretchBlt.  The difference is
that it operates with Device Independent Bitmaps (DIBs).  If you want to
use
StretchBlt, you would use it like this:
}

StretchBlt(DestinationRectangle.Handle, DestX, DestY, DestWidth,
              DestH, Bitmap.Handle,SourceX, SourceY, SourceWidth,
              SourceHeight, SRCCOPY);

{ ----- begin code ----- }
procedure TfrmMain.PrintBitmap(Bitmap: TBitmap; X, Y, W, H: Integer);
  var
    Info: PBitmapInfo;
    InfoSize: Integer;
    Image: Pointer;
    ImageSize: Longint;
  begin
    with Bitmap do
    begin
      GetDIBSizes(Handle, InfoSize, ImageSize);
      Info := MemAlloc(InfoSize);
      try
        Image := MemAlloc(ImageSize);
        try
          GetDIB(Handle, Palette, Info^, Image^);
          with Info^.bmiHeader do
            StretchDIBits(Printer.Canvas.Handle, X, Y, W,H,
                                0, 0, biWidth,biHeight,Image,Info^,
                                DIB_RGB_COLORS,SRCCOPY);
        finally
          FreeMem(Image, ImageSize);
        end;
      finally
        FreeMem(Info, InfoSize);
      end;
    end;
  end;
{ ----- end code ----- }

[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]