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

improved selecting help for overloaded procs

Browse Source 
git-svn-id: trunk@9594 -
This commit is contained in:
mattias 2006-07-10 20:15:42 +00:00
parent 30bd7f175a
commit 39bc2bc165
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/lazhelpintf.pas
View File

@ -2178,9 +2178,15 @@ function TPascalHelpContextList.AsString: string;
var
i: Integer;
Item: TPascalHelpContext;
Filename: String;
begin
Result:='';
for i:=0 to Count-1 do begin
i:=0;
while (i<Count) and (Items[i].Descriptor=pihcFilename) do begin
Filename:=Items[i].Context;
inc(i);
end;
while i<Count do begin
Item:=Items[i];
case Item.Descriptor of
pihcFilename: Result:=Result+Item.Context;
@ -2192,7 +2198,11 @@ begin
pihcType: Result:=Result+' type '+Item.Context;
pihcConst: Result:=Result+' const '+Item.Context;
end;
//DebugLn(['TPascalHelpContextList.AsString ',i,' ',Item.Descriptor,' ',Result]);
inc(i);
end;
if Filename<>'' then
Result:=Result+' in '+Filename;
end;
{ THelpDBISourceFile }