delphi - Timage 内のビットマップの座標を取得する

Question

Firemonkey に TImage Control (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;