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: Viewer - load options LeftMargin and ExtraLineSpacing from configuration file (issue #338)

Browse source
This commit is contained in:
Alexander Koblov 2022-01-29 16:01:24 +03:00
commit b4664cf31f
2 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/fviewer.pas
View file

@ -631,6 +631,8 @@ begin
ViewerControl.ShowCaret := gShowCaret;
ViewerControl.TabSpaces := gTabSpaces;
ViewerControl.MaxTextWidth := gMaxTextWidth;
ViewerControl.LeftMargin := gViewerLeftMargin;
ViewerControl.ExtraLineSpacing := gViewerLineSpacing;
end;
constructor TfrmViewer.Create(TheOwner: TComponent);

4
src/uglobs.pas
View file

@ -625,6 +625,7 @@ var
gTextPosition:PtrInt;
gPrintMargins: TRect;
gShowCaret: Boolean;
gViewerLeftMargin: Integer;
gViewerLineSpacing: Integer;
{ Editor }
@ -1999,6 +2000,7 @@ begin
gTextPosition:= 0;
gViewerMode:= 0;
gShowCaret := False;
gViewerLeftMargin := 4;
gViewerLineSpacing := 0;
gPrintMargins:= Classes.Rect(200, 200, 200, 200);
@ -3078,6 +3080,7 @@ begin
gViewerMode := GetValue(Node, 'ViewerMode' , gViewerMode);
gPrintMargins := GetValue(Node, 'PrintMargins' , gPrintMargins);
gShowCaret := GetValue(Node, 'ShowCaret' , gShowCaret);
gViewerLeftMargin := GetValue(Node, 'LeftMargin' , gViewerLeftMargin);
gViewerLineSpacing := GetValue(Node, 'ExtraLineSpacing' , gViewerLineSpacing);
gImagePaintColor := GetValue(Node, 'PaintColor', gImagePaintColor);
gBookBackgroundColor := GetValue(Node, 'BackgroundColor', gBookBackgroundColor);
@ -3698,6 +3701,7 @@ begin
SetValue(Node, 'ViewerMode' , gViewerMode);
SetValue(Node, 'PrintMargins', gPrintMargins);
SetValue(Node, 'ShowCaret' , gShowCaret);
SetValue(Node, 'LeftMargin' , gViewerLeftMargin);
SetValue(Node, 'ExtraLineSpacing' , gViewerLineSpacing);
SetValue(Node, 'PaintColor', gImagePaintColor);