Получение координат растрового изображения внутри шкафа

Question

У меня есть элемент управления TImage (не TImageControl) в Firemonkey. Растровое изображение внутри этого элемента управления центрировано и не охватывает весь TImage. Как получить координаты растрового изображения (Left And Top)?

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;