如何将一个BMP图片画在TPanel的中间（也就是让图片居中）用这个API（DrawDibDraw）画图片？谢谢！

Question

如何将一个BMP图片画在TPanel的中间（也就是让图片居中）用这个API（DrawDibDraw）画图片？谢谢！

Answer 1

var
  vDrawDIB: THandle;
  vBitmapInfoHeader: TBitmapInfoHeader;
  vBits: PChar;
  vBitmap: TBitmap;
  vImageSize: Longword;
  vInfoHeaderSize: Longword;
begin
  vBitmap := Image1.Picture.Bitmap;
  GetDIBSizes(vBitmap.Handle, vInfoHeaderSize, vImageSize);
  vDrawDIB := DrawDibOpen;
  GetMem(vBits, vImageSize);
  with TControlCanvas.Create do try
    GetDIB(vBitmap.Handle, vBitmap.Palette, vBitmapInfoHeader, vBits^);    Control := Panel1;
    DrawDibDraw(vDrawDIB, Handle,
      (Panel1.Width - vBitmap.Width) div 2,
      (Panel1.Height - vBitmap.Height) div 2,
      vBitmap.Width, vBitmap.Height,
      @vBitmapInfoHeader,
      vBits, 0, 0, vBitmap.Width, vBitmap.Height, DDF_HALFTONE or DDF_JUSTDRAWIT)
  finally
    Free;
    FreeMem(vBits, vImageSize);
    DrawDibClose(vDrawDIB);
  end;
end;