paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-02 14:00:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: editor options: added option Show Special Characters

Browse Source 
git-svn-id: trunk@15350 -
This commit is contained in:
mattias 2008-06-07 01:31:00 +00:00
parent bf145b6d96
commit 7045b20e83
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/editoroptions.pp
View File

@ -1772,6 +1772,8 @@ begin
Result := 'ScrollPastEol';
eoShowScrollHint:
Result := 'ShowScrollHint';
eoShowSpecialChars:
Result := 'ShowSpecialChars';
eoSmartTabs:
Result := 'SmartTabs';
eoTabsToSpaces:
@ -2430,6 +2432,7 @@ begin
SetOption(dlgScrollByOneLess, eoScrollByOneLess);
SetOption(dlgScrollPastEndFile, eoScrollPastEoF);
SetOption(dlgScrollPastEndLine, eoScrollPastEoL);
SetOption(lisShowSpecialCharacters, eoShowSpecialChars);
SetOption(dlgShowScrollHint, eoShowScrollHint);
SetOption(dlgSmartTabs, eoSmartTabs);
SetOption(dlgTabsToSpaces, eoTabsToSpaces);
@ -3392,6 +3395,7 @@ begin
Items.Add(dlgBracHighlight);
Items.Add(dlgShowGutterHints);
Items.Add(dlgShowScrollHint);
Items.Add(lisShowSpecialCharacters);
Items.Add(dlgUseSyntaxHighlight);
// drag&drop
Items.Add(dlgDragDropEd);
@ -3436,7 +3440,7 @@ begin
Checked[Items.IndexOf(dlgGroupUndo)] := eoGroupUndo in EditorOpts.SynEditOptions;
Checked[Items.IndexOf(dlgHalfPageScroll)] :=
eoHalfPageScroll in EditorOpts.SynEditOptions;
Checked[Items.IndexOf(dlgKeepCaretX)] := eoKeepCaretX in EditorOpts.SynEditOptions;
Checked[Items.IndexOf(dlgKeepCaretX)] := eoKeepCaretX in EditorOpts.SynEditOptions;
Checked[Items.IndexOf(dlgPersistentCaret)] :=
eoPersistentCaret in EditorOpts.SynEditOptions;
Checked[Items.IndexOf(dlgRightMouseMovesCursor)] :=
@ -3452,6 +3456,8 @@ begin
Checked[Items.IndexOf(dlgCloseButtonsNotebook)] := EditorOpts.ShowTabCloseButtons;
Checked[Items.IndexOf(dlgShowScrollHint)] :=
eoShowScrollHint in EditorOpts.SynEditOptions;
Checked[Items.IndexOf(lisShowSpecialCharacters)] :=
eoShowSpecialChars in EditorOpts.SynEditOptions;
Checked[Items.IndexOf(dlgSmartTabs)] := eoSmartTabs in EditorOpts.SynEditOptions;
//DebugLn(['TEditorOptionsForm.SetupGeneralPage ',Checked[Items.IndexOf(dlgSmartTabs)],' ',Items.IndexOf(dlgSmartTabs),' ',eoSmartTabs in EditorOpts.SynEditOptions]);
Checked[Items.IndexOf(dlgTabsToSpaces)] :=

1
ide/lazarusidestrconsts.pas
View File

@ -1061,6 +1061,7 @@ resourcestring
dlgScrollByOneLess = 'Scroll by one less';
dlgScrollPastEndFile = 'Scroll past end of file';
dlgScrollPastEndLine = 'Scroll past end of line';
lisShowSpecialCharacters = 'Show special characters';
dlgCloseButtonsNotebook = 'Show close buttons in notebook';
dlgShowScrollHint = 'Show scroll hint';
dlgMouseLinks = 'Mouse links';