在Timage中获取Bitmap的坐标

Question

我在Firemonkey中有一个TImage控件（不是TImageControl）。该控件内的位图居中，而且不是整个TImage的ocupies。如何获取位图的坐标（左侧和顶部）？

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;