Fit image in control

[Uwe Raabe]

Zitat von WojTec:

Yes, but in examples both ratios are 16:9, it shouldn't be streched (of course only in case if both has the same aspect ratio, for example HD/FullHD/UltraHD stream on wide screen)?

1366x768 is not precisely (as in floating precision of your CPU) 16:9. If it were, ScaleX and ScaleY would be equal in your example.

[WojTec]

Ok, I understand, thank you

But another question is, if above code is oke, why eg. Photoshop has different result for this data?

[mikhal]

Could be a rounding error. Try another formula:

Result.Width := Round(AMediaWidth * AControlHeight / AMediaHeight);
and
Result.Height := Round(AMediaHeight * AControlWidth / AMediaWidth);
Your Version defines a small result in your term to round, leading to a possible inaccuracy with your following multipication.

Second: Round uses Banker's Rounding. If your term to round is in the middle of two numbers it will give you the even number.

Gretings
Mikhal

[WojTec]

Also returns one line not enough

[Uwe Raabe]

Zitat von WojTec:

But another question is, if above code is oke, why eg. Photoshop has different result for this data?

Probably because PS does it different.

[WojTec]

Yeah, what is different way to do this?

[Uwe Raabe]

Zitat von WojTec:

Yeah, what is different way to do this?

Perhaps something like:

Delphi-Quellcode:

if <ScaleX is almost the same as ScaleY> then begin
  Result.Width := AControlWidth;
  Result.Height := AControlHeight;
end
else begin
  < original code >
end;