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

FIX: Viewer - save/restore viewer mode

Browse source
This commit is contained in:
Alexander Koblov 2023-01-11 18:54:24 +03:00
commit 8032bedfbc
1 changed files with 8 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

22
src/fviewer.pas
View file

@ -501,6 +501,9 @@ const
sbpFullResolution = 2;
sbpImageSelection = 3;
const
WRAP_MODE: array[Boolean] of TViewerControlMode = (vcmText, vcmWrap);
type
{ TThumbThread }
@ -541,7 +544,7 @@ begin
Viewer.FMode:= AMode;
end;
case AMode of
1: Mode:= vcmText;
1: Mode:= WRAP_MODE[gViewerWrapText];
2: Mode:= vcmBin;
3: Mode:= vcmHex;
6: Mode:= vcmDec;
@ -1939,6 +1942,7 @@ begin
gImagePaintColor := btnPenColor.ButtonColor;
case ViewerControl.Mode of
vcmText: gViewerMode := 1;
vcmWrap: gViewerMode := 1;
vcmBin : gViewerMode := 2;
vcmHex : gViewerMode := 3;
vcmDec : gViewerMode := 6;
@ -2398,11 +2402,7 @@ begin
if Result then
begin
ViewerControl.Text:= AText;
if gViewerWrapText then
ViewerControl.Mode:= vcmWrap
else begin
ViewerControl.Mode:= vcmText;
end;
ViewerControl.Mode:= WRAP_MODE[gViewerWrapText];
ViewerControl.Encoding:= veUtf8;
end;
end;
@ -3261,10 +3261,7 @@ end;
procedure TfrmViewer.cm_ShowAsText(const Params: array of string);
begin
if gViewerWrapText then
ShowTextViewer(vcmWrap)
else
ShowTextViewer(vcmText);
ShowTextViewer(WRAP_MODE[gViewerWrapText]);
end;
procedure TfrmViewer.cm_ShowAsBin(const Params: array of string);
@ -3377,10 +3374,7 @@ begin
begin
if ViewerControl.Mode in [vcmText, vcmWrap] then
begin
if gViewerWrapText then
ViewerControl.Mode:= vcmWrap
else
ViewerControl.Mode:= vcmText;
ViewerControl.Mode:= WRAP_MODE[gViewerWrapText];
end;
end;
end;