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

MG: fixed search forward

Browse Source 
git-svn-id: trunk@1792 -
This commit is contained in:
lazarus 2002-07-27 15:38:01 +00:00
parent a7c6ec0711
commit ffd4807ec9
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/finddeclarationtool.pas
View File

@ -2173,7 +2173,7 @@ begin
Result:=FindIdentifierInContext(Params); Result:=FindIdentifierInContext(Params);
if not Result then begin if not Result then begin
Params.Load(OldInput); Params.Load(OldInput);
Include(Params.Flags,fdfSearchForward); Params.Flags:=Params.Flags+[fdfSearchForward,fdfIgnoreCurContextNode];
Result:=FindIdentifierInContext(Params); Result:=FindIdentifierInContext(Params);
IsForward:=true; IsForward:=true;
end else begin end else begin

9
lcl/extctrls.pp
View File

@ -440,12 +440,12 @@ type
const const
TCN_First = 0-550; TCN_First = 0-550;
TCN_SELCHANGE = TCN_FIRST - 1; TCN_SELCHANGE = TCN_FIRST - 1;
implementation implementation
uses interfaces; uses Interfaces;
{$I page.inc} {$I page.inc}
{$I customnotebook.inc} {$I customnotebook.inc}
@ -463,6 +463,9 @@ end.
{ {
$Log$ $Log$
Revision 1.26 2002/07/27 15:38:01 lazarus
MG: fixed search forward
Revision 1.25 2002/06/08 17:16:02 lazarus Revision 1.25 2002/06/08 17:16:02 lazarus
MG: added close buttons and images to TNoteBook and close buttons to source editor MG: added close buttons and images to TNoteBook and close buttons to source editor