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

SynEdit, moved PropertyToSkip to correct place. bug #13005

Browse Source 
git-svn-id: trunk@18351 -
This commit is contained in:
martin 2009-01-20 10:01:31 +00:00
parent f4224ce9a5
commit 0224b90a6d
2 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
components/synedit/synedit.pp
View File

@ -82,7 +82,8 @@ uses
SynGutter, SynGutterCodeFolding, SynGutterChanges, SynGutterLineNumber,
SynGutterMarks,
{$ENDIF}
SynEditMiscClasses, SynEditTextBuffer, SynEditHighlighter, SynTextDrawer;
SynEditMiscClasses, SynEditTextBuffer, SynEditHighlighter, SynTextDrawer,
LResources;
const
DIGIT = ['0'..'9'];
@ -10004,6 +10005,23 @@ procedure Register;
begin
RegisterClasses([TSynGutterPartList, TSynGutterSeparator, TSynGutterCodeFolding,
TSynGutterLineNumber, TSynGutterChanges, TSynGutterMarks]);
RegisterPropertyToSkip(TSynSelectedColor, 'OnChange', '', '');
RegisterPropertyToSkip(TSynSelectedColor, 'StartX', '', '');
RegisterPropertyToSkip(TSynSelectedColor, 'EndX', '', '');
RegisterPropertyToSkip(TSynGutter, 'ShowCodeFolding', '', '');
RegisterPropertyToSkip(TSynGutter, 'CodeFoldingWidth', '', '');
RegisterPropertyToSkip(TSynGutter, 'ShowChanges', '', '');
RegisterPropertyToSkip(TSynGutter, 'ShowLineNumbers', '', '');
RegisterPropertyToSkip(TSynGutter, 'ShowOnlyLineNumbersMultiplesOf', '', '');
RegisterPropertyToSkip(TSynGutter, 'ZeroStart', '', '');
RegisterPropertyToSkip(TSynGutter, 'MarkupInfoLineNumber', '', '');
RegisterPropertyToSkip(TSynGutter, 'MarkupInfoModifiedLine', '', '');
RegisterPropertyToSkip(TSynGutter, 'MarkupInfoCodeFoldingTree', '', '');
RegisterPropertyToSkip(TSynGutter, 'LeadingZeros', '', '');
RegisterPropertyToSkip(TSynGutter, 'DigitCount', '', '');
RegisterPropertyToSkip(TSynGutter, 'AllowSkipGutterSeparatorDraw', '', '');
end;
initialization

18
packager/registersynedit.pas
View File

@ -217,24 +217,6 @@ begin
RegisterClasses([TSynGutterPartList, TSynGutterSeparator, TSynGutterCodeFolding,
TSynGutterLineNumber, TSynGutterChanges, TSynGutterMarks]);
RegisterPropertyToSkip(TSynSelectedColor, 'OnChange', '', '');
RegisterPropertyToSkip(TSynSelectedColor, 'StartX', '', '');
RegisterPropertyToSkip(TSynSelectedColor, 'EndX', '', '');
RegisterPropertyToSkip(TSynGutter, 'ShowCodeFolding', '', '');
RegisterPropertyToSkip(TSynGutter, 'CodeFoldingWidth', '', '');
RegisterPropertyToSkip(TSynGutter, 'ShowChanges', '', '');
RegisterPropertyToSkip(TSynGutter, 'ShowLineNumbers', '', '');
RegisterPropertyToSkip(TSynGutter, 'ShowOnlyLineNumbersMultiplesOf', '', '');
RegisterPropertyToSkip(TSynGutter, 'ZeroStart', '', '');
RegisterPropertyToSkip(TSynGutter, 'MarkupInfoLineNumber', '', '');
RegisterPropertyToSkip(TSynGutter, 'MarkupInfoModifiedLine', '', '');
RegisterPropertyToSkip(TSynGutter, 'MarkupInfoCodeFoldingTree', '', '');
RegisterPropertyToSkip(TSynGutter, 'LeadingZeros', '', '');
RegisterPropertyToSkip(TSynGutter, 'DigitCount', '', '');
RegisterPropertyToSkip(TSynGutter, 'AllowSkipGutterSeparatorDraw', '', '');
end;
end.