mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: Default JPEG quality option (patch by Skif_off)

Browse source
This commit is contained in:
Alexander Koblov 2023-06-29 22:42:57 +03:00
commit 0dc158b75f
3 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/fmodview.pas
View file

@ -177,6 +177,8 @@ begin
sExt:= '.jpg';
tbQuality.Enabled:=true;
lblQuality.Enabled:=True;
tbQuality.Position:=gViewerJpegQuality;
teQuality.Text:=IntToStr(gViewerJpegQuality);
end;
end;

2
src/fviewer.pas
View file

@ -3245,7 +3245,7 @@ begin
try
CreatePreview(FileList.Strings[iActiveFile], iActiveFile, True);
sExt:= ExtractFileExt(FileList.Strings[iActiveFile]);
SaveImageAs(sExt, True, 80);
SaveImageAs(sExt, True, gViewerJpegQuality);
CreatePreview(FileList.Strings[iActiveFile], iActiveFile);
finally
DrawPreview.EndUpdate;

4
src/uglobs.pas
View file

@ -621,6 +621,7 @@ var
gViewerLineSpacing: Integer;
gViewerAutoCopy: Boolean;
gViewerSynEditMask: String;
gViewerJpegQuality: Integer;
{ Editor }
gEditWaitTime: Integer;
@ -2059,6 +2060,7 @@ begin
gPrintMargins:= Classes.Rect(200, 200, 200, 200);
gViewerAutoCopy := True;
gViewerSynEditMask := AllFilesMask;
gViewerJpegQuality := 80;
{ Editor }
gEditWaitTime := 2000;
@ -3149,6 +3151,7 @@ begin
gTextPosition := GetValue(Node, 'TextPosition', gTextPosition);
gViewerAutoCopy := GetValue(Node, 'AutoCopy', gViewerAutoCopy);
gViewerSynEditMask := GetValue(Node, 'SynEditMask', gViewerSynEditMask);
gViewerJpegQuality := GetValue(Node, 'JpegQuality', gViewerJpegQuality);
if LoadedConfigVersion < 7 then
begin
gThumbSave := GetValue(Node, 'SaveThumbnails', gThumbSave);
@ -3735,6 +3738,7 @@ begin
SetValue(Node, 'TextPosition', gTextPosition);
SetValue(Node, 'AutoCopy', gViewerAutoCopy);
SetValue(Node, 'SynEditMask', gViewerSynEditMask);
SetValue(Node, 'JpegQuality', gViewerJpegQuality);
{ Editor }
Node := FindNode(Root, 'Editor',True);