paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 21:49:15 +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; cmExpandFold = 51267;
cmDelToEndOfWord = 51268; cmDelToEndOfWord = 51268;
cmInputLineLen = 51269; cmInputLineLen = 51269;
EditorTextBufSize = 32768; EditorTextBufSize = 32768;
MaxLineLength = 255; MaxLineLength = 255;
MaxLineCount = 2000000; MaxLineCount = 2000000;
@ -711,7 +711,7 @@ type
Procedure HandleEvent(var Event : TEvent);virtual; Procedure HandleEvent(var Event : TEvent);virtual;
end; end;
PEditorInputLine = ^TEditorInputLine; PEditorInputLine = ^TEditorInputLine;
TSearchHelperDialog = object(TDialog) TSearchHelperDialog = object(TDialog)
OkButton: PButton; OkButton: PButton;
Procedure HandleEvent(var Event : TEvent);virtual; Procedure HandleEvent(var Event : TEvent);virtual;
@ -771,7 +771,11 @@ uses
WinClip, WinClip,
{$endif WinClipSupported} {$endif WinClipSupported}
{$ifdef TEST_REGEXP} {$ifdef TEST_REGEXP}
regexpr, {$ifdef USE_OLD_REGEXP}
oldregexpr,
{$else not USE_OLD_REGEXP}
regexpr,
{$endif not USE_OLD_REGEXP}
{$endif TEST_REGEXP} {$endif TEST_REGEXP}
WConsts,WCEdit; WConsts,WCEdit;
@ -6947,12 +6951,12 @@ begin
case Event.Command of case Event.Command of
cminputlinelen : begin cminputlinelen : begin
if Event.InfoLong=0 then if Event.InfoLong=0 then
okbutton^.DisableCommands([cmok]) okbutton^.DisableCommands([cmok])
else else
okbutton^.EnableCommands([cmok]); okbutton^.EnableCommands([cmok]);
clearevent(event); clearevent(event);
end; end;
end; end;
end; end;
inherited HandleEvent(Event); inherited HandleEvent(Event);
end; end;