paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-05-31 06:02:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

Add USE_OLD_REGEXPR option for regular expression unit choice

Browse Source 
git-svn-id: trunk@18898 -
This commit is contained in:
pierre 2011-08-29 13:38:13 +00:00
parent 75650bdf21
commit ed03858129
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/weditor.pas
View File

@ -59,7 +59,7 @@ const
cmExpandFold = 51267;
cmDelToEndOfWord = 51268;
cmInputLineLen = 51269;
EditorTextBufSize = 32768;
MaxLineLength = 255;
MaxLineCount = 2000000;
@ -711,7 +711,7 @@ type
Procedure HandleEvent(var Event : TEvent);virtual;
end;
PEditorInputLine = ^TEditorInputLine;
TSearchHelperDialog = object(TDialog)
OkButton: PButton;
Procedure HandleEvent(var Event : TEvent);virtual;
@ -771,7 +771,11 @@ uses
WinClip,
{$endif WinClipSupported}
{$ifdef TEST_REGEXP}
regexpr,
{$ifdef USE_OLD_REGEXP}
oldregexpr,
{$else not USE_OLD_REGEXP}
regexpr,
{$endif not USE_OLD_REGEXP}
{$endif TEST_REGEXP}
WConsts,WCEdit;
@ -6947,12 +6951,12 @@ begin
case Event.Command of
cminputlinelen : begin
if Event.InfoLong=0 then
okbutton^.DisableCommands([cmok])
okbutton^.DisableCommands([cmok])
else
okbutton^.EnableCommands([cmok]);
clearevent(event);
end;
end;
end;
end;
inherited HandleEvent(Event);
end;