如何获得TImage图片的最高位置？

Question

我在TPanel中有my $string = '123 abc 456 xzy red 137'; $string =~ s{(\d+|[a-z]+)}{ my $_ = $1; state $letters = 0; state $sum = 0; if( /[a-z]/ ) { $letters++; "($letters: $_)"; } elsif( /\d/ ) { $sum += $_; } }ge; say $string; ，Align := alClient，Stretch := True和Proportional := True的TImage。如何获取图像中绘制的图片的顶部像素位置？

也许描述问题的图片会有所帮助：

我看到了这个question，但无法得到我需要的密切相关的答案。

Answer 1

如果图像的纵横比大于面板的纵横比，则顶部和底部只剩下空间。假设是这种情况，所需的距离是

round(Panel.Height - (Panel.Width / Image.Picture.Width) * Image.Picture.Height) / 2);