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: Save last Viewer mode (patch by Rustem)

Browse source
This commit is contained in:
Alexander Koblov 2011-01-05 19:00:14 +00:00
commit 014babe43f
3 changed files with 23 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

2
components/viewer/viewercontrol.pas
View file

@ -375,7 +375,7 @@ type
property ColCount: Integer Read FColCount Write SetColCount;
published
property ViewerMode: TViewerMode Read FViewerMode Write SetViewerMode default vmText;
property ViewerMode: TViewerMode Read FViewerMode Write SetViewerMode default vmWrap;
property FileName: UTF8String Read FFileName Write SetFileName;
property Encoding: TViewerEncoding Read FEncoding Write SetEncoding default veAutoDetect;
property OnPositionChanged: TNotifyEvent Read FOnPositionChanged Write FOnPositionChanged;

24
src/fviewer.pas
View file

@ -175,7 +175,6 @@ type
);
procedure ImageMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure miLookBookClick(Sender: TObject);
procedure miPreviewClick(Sender: TObject);
procedure miSaveAsClick(Sender: TObject);
procedure miSaveClick(Sender: TObject);
@ -303,6 +302,13 @@ begin
Viewer.DrawPreview.RowCount:= Viewer.FileList.Count;
Viewer.LoadFile(0);
Viewer.Show;
case gViewerMode of
1: Viewer.miTextClick(Viewer.miText);
2: Viewer.miTextClick(Viewer.miBin);
3: Viewer.miTextClick(Viewer.miHex);
4: Viewer.miTextClick(Viewer.miWrapText);
//5: Viewer.miTextClick(Viewer.miLookBook);
end;
if Viewer.miPreview.Checked then
begin
Viewer.miPreview.Checked := not(Viewer.miPreview.Checked);
@ -672,14 +678,6 @@ begin
Image.Cursor:=crDefault;
end;
procedure TfrmViewer.miLookBookClick(Sender: TObject);
begin
ExitPluginMode;
ReopenAsTextIfNeeded;
ViewerControl.ViewerMode := vmBook;
miLookBook.Checked := True;
end;
procedure TfrmViewer.CreatePreview(FullPathToFile: String; index: integer; delete: Boolean = false);
var
bmpThumb : TBitmap = nil;
@ -1239,6 +1237,14 @@ begin
gImagePaintWidth := StrToInt(ComboBoxWidth.Text) ;
gImagePaintColor := ColorBoxPaint.Selected;
gTextPosition := ViewerControl.Position;
case ViewerControl.ViewerMode of
vmText: gViewerMode := 1;
vmBin : gViewerMode := 2;
vmHex : gViewerMode := 3;
vmWrap: gViewerMode := 4;
vmBook: gViewerMode := 4;
end;
if Assigned(WlxPlugins) then
begin
ExitPluginMode;

10
src/uglobs.pas
View file

@ -269,7 +269,8 @@ var
gCopyMovePath5,
gImagePaintMode: String;
gImagePaintWidth,
gColCount: Integer;
gColCount,
gViewerMode: Integer;
gImagePaintColor,
gBookBackgroundColor,
gBookFontColor: TColor;
@ -692,7 +693,7 @@ begin
gShowToolTipMode := [stm_show_for_all];
{ Auto refresh page }
gWatchDirs := [];
gWatchDirs := [watch_file_name_change, watch_attributes_change];
gWatchDirsExclude := '';
{ Icons page }
@ -723,6 +724,7 @@ begin
gBookBackgroundColor := clBlack;
gBookFontColor := clWhite;
gTextPosition:= 0;
gViewerMode:= 0;
{ - Other - }
gLuaLib := '/usr/lib/liblua5.1.so';
@ -1555,6 +1557,7 @@ begin
gImagePaintMode := GetValue(Node, 'PaintMode', gImagePaintMode);
gImagePaintWidth := GetValue(Node, 'PaintWidth', gImagePaintWidth);
gColCount := GetValue(Node, 'NumberOfColumns', gColCount);
gViewerMode := GetValue(Node, 'ViewerMode', gViewerMode);
gImagePaintColor := GetValue(Node, 'PaintColor', gImagePaintColor);
gBookBackgroundColor := GetValue(Node, 'BackgroundColor', gBookBackgroundColor);
gBookFontColor := GetValue(Node, 'FontColor', gBookFontColor);
@ -1794,6 +1797,7 @@ begin
SetValue(Node, 'PaintMode', gImagePaintMode);
SetValue(Node, 'PaintWidth', gImagePaintWidth);
SetValue(Node, 'NumberOfColumns', gColCount);
SetValue(Node, 'ViewerMode', gViewerMode);
SetValue(Node, 'PaintColor', gImagePaintColor);
SetValue(Node, 'BackgroundColor', gBookBackgroundColor);
SetValue(Node, 'FontColor', gBookFontColor);
@ -1841,4 +1845,4 @@ initialization
finalization
DestroyGlobs;
end.
end.