paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 16:31:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

* on CtrlF1, first do an exact name search, only allow longer names if exact is not found

Browse Source 
git-svn-id: trunk@6126 -
This commit is contained in:
pierre 2007-01-22 04:32:07 +00:00
parent 3696f6fbb7
commit 0ba499339a
2 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/fpide.pas
View File

@ -1326,7 +1326,7 @@ begin
cmHelpContents : HelpContents;
cmHelpIndex : HelpHelpIndex;
cmHelpDebug : HelpDebugInfos;
{ cmHelpTopicSearch: HelpTopicSearch;}
cmHelpTopicSearch: HelpTopicSearch;
cmHelpPrevTopic : HelpPrevTopic;
cmHelpUsingHelp : HelpUsingHelp;
cmHelpFiles : HelpFiles;

19
ide/whelp.pas
View File

@ -833,6 +833,18 @@ end;
function THelpFacility.TopicSearch(Keyword: string; var FileID: word; var Context: THelpCtx): boolean;
function ScanHelpFileExact(H: PHelpFile): boolean; {$ifndef FPC}far;{$endif}
function SearchExact(P: PIndexEntry): boolean; {$ifndef FPC}far;{$endif}
begin
SearchExact:=UpcaseStr(P^.Tag^)=Keyword;
end;
var P: PIndexEntry;
begin
H^.LoadIndex;
P:=H^.IndexEntries^.FirstThat(@SearchExact);
if P<>nil then begin FileID:=H^.ID; Context:=P^.HelpCtx; end;
ScanHelpFileExact:=P<>nil;
end;
function ScanHelpFile(H: PHelpFile): boolean; {$ifndef FPC}far;{$endif}
function Search(P: PIndexEntry): boolean; {$ifndef FPC}far;{$endif}
begin
@ -845,9 +857,14 @@ begin
if P<>nil then begin FileID:=H^.ID; Context:=P^.HelpCtx; end;
ScanHelpFile:=P<>nil;
end;
var
PH : PHelpFile;
begin
Keyword:=UpcaseStr(Keyword);
TopicSearch:=HelpFiles^.FirstThat(@ScanHelpFile)<>nil;
PH:=HelpFiles^.FirstThat(@ScanHelpFileExact);
if not assigned(PH) then
PH:=HelpFiles^.FirstThat(@ScanHelpFile);
TopicSearch:=PH<>nil;
end;
function THelpFacility.BuildIndexTopic: PTopic;