求助

Question

在程序中动态的向imagelist中插入Bitmap时当要插入的Bitmap的尺寸小于imagelist的尺寸时如何让该Bitmap显示居中

Answer 1

//算算坐标也可以呀～～
procedure TForm1.Button1Click(Sender: TObject);
begin
  with Image1.Picture do begin
    Bitmap.Width := 50;
    Bitmap.Height := 50;
    ImageList1.Draw(Bitmap.Canvas,
      (Bitmap.Width - ImageList1.Width) div 2,
      (Bitmap.Height - ImageList1.Height) div 2, 0);
  end;
end;