Fit image in control

[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;