Getting the coordinates of the Bitmap inside a Timage

Question

I have a TImage Control (not TImageControl) in Firemonkey. The Bitmap inside that control is centered and ocupies not the entire TImage. How can I get the coordinates of the Bitmap (Left And Top)?

Answer 1

Same as @GolezTrol suggests but with integer division and a check if there is a picture assigned to the image:

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;