paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-31 03:32:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE/SynEdit: basic support for folding comments

Browse Source 
git-svn-id: trunk@26354 -
This commit is contained in:
martin 2010-06-30 14:51:00 +00:00
parent 06614e4fb1
commit 5206990f73
2 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/editoroptions.pp
View File

@ -422,7 +422,7 @@ type
const
(* When adding new entries, ensure that resourcestrings are re-assigned in InitLocale *)
EditorOptionsFoldInfoPas: Array [0..19] of TEditorOptionsFoldInfo
EditorOptionsFoldInfoPas: Array [0..21] of TEditorOptionsFoldInfo
= (
(Name: dlgFoldPasProcedure; Xml: 'Procedure';
Index: ord(cfbtProcedure); Enabled: True),
@ -467,7 +467,12 @@ const
(Name: dlgFoldPasIfDef; Xml: 'IfDef';
Index: ord(cfbtIfDef); Enabled: False),
(Name: dlgFoldPasUserRegion; Xml: 'UserRegion';
Index: ord(cfbtRegion); Enabled: True)
Index: ord(cfbtRegion); Enabled: True),
(Name: dlgFoldPasAnsiComment; Xml: 'AnsiComment';
Index: ord(cfbtAnsiComment); Enabled: True),
(Name: dlgFoldPasBorComment; Xml: 'BorComment';
Index: ord(cfbtBorCommand); Enabled: True)
);
EditorOptionsFoldInfoLFM: Array [0..2] of TEditorOptionsFoldInfo
@ -561,8 +566,8 @@ const
TEditorOptionsFoldRecord =
( (Count: 0; Info: nil), // none
(Count: 0; Info: nil), // text
(Count: 20; Info: {$IFDEF FPC}@{$ENDIF}EditorOptionsFoldInfoPas[0]), // Freepas
(Count: 20; Info: {$IFDEF FPC}@{$ENDIF}EditorOptionsFoldInfoPas[0]), // pas
(Count: 22; Info: {$IFDEF FPC}@{$ENDIF}EditorOptionsFoldInfoPas[0]), // Freepas
(Count: 22; Info: {$IFDEF FPC}@{$ENDIF}EditorOptionsFoldInfoPas[0]), // pas
(Count: 3; Info: {$IFDEF FPC}@{$ENDIF}EditorOptionsFoldInfoLFM[0]), // lfm
(Count: 5; Info: {$IFDEF FPC}@{$ENDIF}EditorOptionsFoldInfoXML[0]), // xml
(Count: 3; Info: {$IFDEF FPC}@{$ENDIF}EditorOptionsFoldInfoHTML[0]), // html

2
ide/lazarusidestrconsts.pas
View File

@ -1509,6 +1509,8 @@ resourcestring
dlgFoldPasAsm = 'Asm';
dlgFoldPasIfDef = '{$IfDef}';
dlgFoldPasUserRegion = '{%Region}';
dlgFoldPasAnsiComment = 'Comment (* *)';
dlgFoldPasBorComment = 'Comment { }';
dlgFoldLfmObject = 'Object (inherited, inline)';
dlgFoldLfmList = 'List <>';