paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-25 03:29:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

SetSize with output dimensions depending on orientation

Browse Source
This commit is contained in:
regs01 2024-09-26 10:41:36 +00:00 committed by Michael Van Canneyt
parent 6d03a2582e
commit 1eff5ae28a
1 changed files with 12 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
packages/fcl-image/src/fpreadjpeg.pas
View File

@ -447,22 +447,18 @@ var
end;
end;
function TranslateSize(AWidth, AHeight: Integer): TSize;
function TranslateSize(out ASize: TSize): TSize;
var
iInt: Integer;
begin
// image dimension depending on orientation
case FOrientation of
eoUnknown, eoNormal, eoMirrorHor, eoRotate180, eoMirrorVert:
begin
Result.Width := AWidth;
Result.Height := AHeight;
end;
eoMirrorHorRot270, eoRotate90, eoMirrorHorRot90, eoRotate270:
begin
Result.Width := AHeight;
Result.Height := AWidth;
end;
// returning image dimension depending on orientation
if FOrientation in [eoMirrorHorRot270, eoRotate90, eoMirrorHorRot90, eoRotate270] then
begin
iInt := ASize.Width;
ASize.Width := ASize.Height;
ASize.Height := iInt;
end;
end;
end;
begin
InitReadingPixels;
@ -473,7 +469,8 @@ begin
jpeg_start_decompress(@FInfo);
LOutputSize := TranslateSize(FInfo.output_width, FInfo.output_height);
LOutputSize := Size(FInfo.output_width, FInfo.output_height);
TranslateSize(LOutputSize);
FWidth := LOutputSize.Width;
FHeight := LOutputSize.Height;
Img.SetSize(FWidth, FHeight);