CODEWITHSUNDEEP
delphifiremonkeytimage
runs
runs

Reputation: 95

Getting the coordinates of the Bitmap inside a Timage

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)?

Upvotes: 2

Views: 1484

Answers (1)

jpfollenius
jpfollenius

Reputation: 16612

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;

Upvotes: 5

Related Questions