获取Timage中位图的坐标

Question

我在火猴中有一个TImage控件(而不是TImageControl)。该控件内的位图是居中的，不是整个TImage。如何获得位图的坐标(左和顶)？

Answer 1

与@GolezTrol建议的相同，但使用整数除法并检查是否有分配给图像的图片：

if Assigned (Image.Picture.Graphic) then     // is there an image assigned?
  begin
  ImgX := (Image.Width - Image.Picture.Graphic.Width) div 2;
  ImgY := (Image.Height - Image.Picture.Graphic.Height) div 2;
  end;