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

最新推荐文章于 2021-03-03 23:13:14 发布

aibi9196

最新推荐文章于 2021-03-03 23:13:14 发布

阅读量171

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/delphi2007/archive/2008/11/05/1326905.html

本文介绍了一种使用Delphi和Windows SDK API (DrawDibDraw)将BMP图片居中绘制到TPanel上的方法。通过获取图片尺寸，利用DrawDibDraw函数计算图片在面板上的位置，实现图片的居中显示。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

如何将一个BMP图片画在TPanel的中间（也就是让图片居中）用这个API（DrawDibDraw）画图片？谢谢！ Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiMultimedia/html/delphi_20061026162537198.html
如何将一个BMP图片画在TPanel的中间（也就是让图片居中）用这个API（DrawDibDraw）画图片？谢谢！

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;