paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-31 08:12:39 +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);
if not Result then begin
Params.Load(OldInput);
Include(Params.Flags,fdfSearchForward);
Params.Flags:=Params.Flags+[fdfSearchForward,fdfIgnoreCurContextNode];
Result:=FindIdentifierInContext(Params);
IsForward:=true;
end else begin

9
lcl/extctrls.pp
View File

@ -440,12 +440,12 @@ type
const
TCN_First = 0-550;
TCN_SELCHANGE = TCN_FIRST - 1;
TCN_First = 0-550;
TCN_SELCHANGE = TCN_FIRST - 1;
implementation
uses interfaces;
uses Interfaces;
{$I page.inc}
{$I customnotebook.inc}
@ -463,6 +463,9 @@ end.
{
$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
MG: added close buttons and images to TNoteBook and close buttons to source editor