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

SynEdit, IDE: add options for markup for,while,with

Browse Source 
git-svn-id: trunk@52182 -
This commit is contained in:
martin 2016-04-12 23:44:09 +00:00
parent 4299f7779c
commit 7a5fbf76ba
2 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/editoroptions.pp
View File

@ -435,7 +435,7 @@ type
const
(* When adding new entries, ensure that resourcestrings are re-assigned in InitLocale *)
EditorOptionsFoldInfoPas: Array [0..23] of TEditorOptionsFoldInfo
EditorOptionsFoldInfoPas: Array [0..26] of TEditorOptionsFoldInfo
= (
(Name: dlgFoldPasProcedure; Xml: 'Procedure';
Index: ord(cfbtProcedure); Enabled: True),
@ -490,7 +490,13 @@ const
Index: ord(cfbtNestedComment);Enabled: True),
(Name: dlgFoldPasIfThen; Xml: 'IfThen';
Index: ord(cfbtIfThen); Enabled: False)
Index: ord(cfbtIfThen); Enabled: False),
(Name: dlgFoldPasForDo; Xml: 'ForDo';
Index: ord(cfbtForDo); Enabled: False),
(Name: dlgFoldPasWhileDo; Xml: 'WhileDo';
Index: ord(cfbtWhileDo); Enabled: False),
(Name: dlgFoldPasWithDo; Xml: 'WithDo';
Index: ord(cfbtWithDo); Enabled: False)
);
EditorOptionsFoldInfoLFM: Array [0..2] of TEditorOptionsFoldInfo
@ -584,8 +590,8 @@ const
TEditorOptionsFoldRecord =
( (Count: 0; Info: nil), // none
(Count: 0; Info: nil), // text
(Count: 24; Info: @EditorOptionsFoldInfoPas[0]), // Freepas
(Count: 24; Info: @EditorOptionsFoldInfoPas[0]), // pas
(Count: 27; Info: @EditorOptionsFoldInfoPas[0]), // Freepas
(Count: 27; Info: @EditorOptionsFoldInfoPas[0]), // pas
(Count: 3; Info: @EditorOptionsFoldInfoLFM[0]), // lfm
(Count: 5; Info: @EditorOptionsFoldInfoXML[0]), // xml
(Count: 3; Info: @EditorOptionsFoldInfoHTML[0]), // html

3
ide/lazarusidestrconsts.pas
View File

@ -1967,6 +1967,9 @@ resourcestring
dlgFoldPasProcBeginEnd = 'Begin/End (procedure)';
dlgFoldPasNestedComment = 'Nested Comment';
dlgFoldPasIfThen = 'If/Then/Else';
dlgFoldPasForDo = 'For/Do';
dlgFoldPasWhileDo = 'While/Do';
dlgFoldPasWithDo = 'With/Do';
dlgFoldPasProcedure = 'Procedure';
dlgFoldPasUses = 'Uses';
dlgFoldPasVarType = 'Var/Type (global)';