ADD: Viewer - ImageExifRotate option

This commit is contained in:
Alexander Koblov 2017-01-07 17:57:36 +00:00
commit 4deefb8c82
2 changed files with 5 additions and 1 deletions

View file

@ -1916,7 +1916,7 @@ begin
finally
FreeAndNil(fsFileStream);
end;
if SameText(sExt, 'jpg') then
if gImageExifRotate and SameText(sExt, 'jpg') then
begin
if FExif.LoadFromFile(sFileName) then
begin

View file

@ -477,6 +477,7 @@ var
{Viewer}
gPreviewVisible,
gImageStretch: Boolean;
gImageExifRotate: Boolean;
gImageStretchOnlyLarge: Boolean;
gImageCenter: Boolean;
gCopyMovePath1,
@ -1609,6 +1610,7 @@ begin
{Viewer}
gImageStretch := False;
gImageExifRotate := True;
gImageStretchOnlyLarge := False;
gImageCenter := True;
gPreviewVisible := False;
@ -2824,6 +2826,7 @@ begin
if Assigned(Node) then
begin
gImageStretch := GetValue(Node, 'ImageStretch', gImageStretch);
gImageExifRotate := GetValue(Node, 'ImageExifRotate', gImageExifRotate);
gImageStretchOnlyLarge := GetValue(Node, 'ImageStretchLargeOnly', gImageStretchOnlyLarge);
gImageCenter := GetValue(Node, 'ImageCenter', gImageCenter);
gPreviewVisible := GetValue(Node, 'PreviewVisible', gPreviewVisible);
@ -3312,6 +3315,7 @@ begin
Node := FindNode(Root, 'Viewer',True);
SetValue(Node, 'PreviewVisible',gPreviewVisible);
SetValue(Node, 'ImageStretch',gImageStretch);
SetValue(Node, 'ImageExifRotate', gImageExifRotate);
SetValue(Node, 'ImageStretchLargeOnly',gImageStretchOnlyLarge);
SetValue(Node, 'ImageCenter',gImageCenter);
SetValue(Node, 'CopyMovePath1', gCopyMovePath1);