paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 23:50:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix Previous Help Topic

Browse Source
This commit is contained in:
pierre 2001-09-18 11:33:53 +00:00
parent bad95b49e2
commit d1c220f87d
7 changed files with 41 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/whelp.pas
View File

@ -144,7 +144,7 @@ type
function SearchTopicOwner(SourceFileID: word; Context: THelpCtx): PHelpFile;
end;
THelpFileOpenProc = function(const FileName,Param: string): PHelpFile;
THelpFileOpenProc = function(const FileName,Param: string;Index : longint): PHelpFile;
PHelpFileType = ^THelpFileType;
THelpFileType = record
@ -649,7 +649,7 @@ begin
for I:=0 to GetHelpFileTypeCount-1 do
begin
GetHelpFileType(I,HT);
H:=HT.OpenProc(FileName,Param);
H:=HT.OpenProc(FileName,Param,LastID+1);
if Assigned(H) then
Break;
end;
@ -665,7 +665,7 @@ begin
begin
HelpFiles^.Insert(H);
Inc(LastID);
H^.ID:=LastID;
{ H^.ID:=LastID; now already set by OpenProc PM }
end;
AddHelpFile:=H<>nil;
end;
@ -853,7 +853,10 @@ end;
END.
{
$Log$
Revision 1.1 2001-08-04 11:30:25 peter
Revision 1.2 2001-09-18 11:33:53 pierre
* fix Previous Help Topic
Revision 1.1 2001/08/04 11:30:25 peter
* ide works now with both compiler versions
Revision 1.1.2.6 2001/03/20 00:20:44 pierre

13
ide/whtmlhlp.pas
View File

@ -882,21 +882,21 @@ begin
LoadIndex:=OK;
end;
function CreateProcHTML(const FileName,Param: string): PHelpFile; {$ifndef FPC}far;{$endif}
function CreateProcHTML(const FileName,Param: string;Index : longint): PHelpFile; {$ifndef FPC}far;{$endif}
var H: PHelpFile;
begin
H:=nil;
if CompareText(copy(ExtOf(FileName),1,length(extHTML)),extHTML)=0 then
H:=New(PHTMLHelpFile, Init(FileName,0,Param));
H:=New(PHTMLHelpFile, Init(FileName,Index,Param));
CreateProcHTML:=H;
end;
function CreateProcHTMLIndex(const FileName,Param: string): PHelpFile; {$ifndef FPC}far;{$endif}
function CreateProcHTMLIndex(const FileName,Param: string;Index : longint): PHelpFile; {$ifndef FPC}far;{$endif}
var H: PHelpFile;
begin
H:=nil;
if CompareText(ExtOf(FileName),extHTMLIndex)=0 then
H:=New(PHTMLIndexHelpFile, Init(FileName,0));
H:=New(PHTMLIndexHelpFile, Init(FileName,Index));
CreateProcHTMLIndex:=H;
end;
@ -910,7 +910,10 @@ end;
END.
{
$Log$
Revision 1.1 2001-08-04 11:30:25 peter
Revision 1.2 2001-09-18 11:33:53 pierre
* fix Previous Help Topic
Revision 1.1 2001/08/04 11:30:25 peter
* ide works now with both compiler versions
Revision 1.1.2.6 2001/06/07 16:41:14 jonas

9
ide/wnghelp.pas
View File

@ -507,9 +507,9 @@ begin
inherited Done;
end;
function CreateProc(const FileName,Param: string): PHelpFile; {$ifndef FPC}far;{$endif}
function CreateProc(const FileName,Param: string;Index : longint): PHelpFile; {$ifndef FPC}far;{$endif}
begin
CreateProc:=New(PNGHelpFile, Init(FileName,0));
CreateProc:=New(PNGHelpFile, Init(FileName,Index));
end;
procedure RegisterHelpType;
@ -520,7 +520,10 @@ end;
END.
{
$Log$
Revision 1.1 2001-08-04 11:30:26 peter
Revision 1.2 2001-09-18 11:33:54 pierre
* fix Previous Help Topic
Revision 1.1 2001/08/04 11:30:26 peter
* ide works now with both compiler versions
Revision 1.1.2.3 2001/06/07 16:41:14 jonas

4
ide/woahelp.pas
View File

@ -544,9 +544,9 @@ begin
inherited Done;
end;
function CreateProc(const FileName,Param: string): PHelpFile; {$ifndef FPC}far;{$endif}
function CreateProc(const FileName,Param: string;Index : longint): PHelpFile; {$ifndef FPC}far;{$endif}
begin
CreateProc:=New(POAHelpFile, Init(FileName,0));
CreateProc:=New(POAHelpFile, Init(FileName,Index));
end;
procedure RegisterHelpType;

9
ide/wos2help.pas
View File

@ -601,9 +601,9 @@ begin
inherited Done;
end;
function CreateProc(const FileName,Param: string): PHelpFile; {$ifndef FPC}far;{$endif}
function CreateProc(const FileName,Param: string;Index : longint): PHelpFile; {$ifndef FPC}far;{$endif}
begin
CreateProc:=New(POS2HelpFile, Init(FileName,0));
CreateProc:=New(POS2HelpFile, Init(FileName,Index));
end;
procedure RegisterHelpType;
@ -614,7 +614,10 @@ end;
END.
{
$Log$
Revision 1.1 2001-08-04 11:30:26 peter
Revision 1.2 2001-09-18 11:33:54 pierre
* fix Previous Help Topic
Revision 1.1 2001/08/04 11:30:26 peter
* ide works now with both compiler versions
Revision 1.1.2.3 2001/06/07 16:41:15 jonas

9
ide/wvphelp.pas
View File

@ -170,9 +170,9 @@ begin
inherited Done;
end;
function CreateProc(const FileName,Param: string): PHelpFile; {$ifndef FPC}far;{$endif}
function CreateProc(const FileName,Param: string;Index : longint): PHelpFile; {$ifndef FPC}far;{$endif}
begin
CreateProc:=New(PVPHHelpFile, Init(FileName,0));
CreateProc:=New(PVPHHelpFile, Init(FileName,Index));
end;
procedure RegisterHelpType;
@ -183,7 +183,10 @@ end;
END.
{
$Log$
Revision 1.1 2001-08-04 11:30:26 peter
Revision 1.2 2001-09-18 11:33:54 pierre
* fix Previous Help Topic
Revision 1.1 2001/08/04 11:30:26 peter
* ide works now with both compiler versions
Revision 1.1.2.2 2001/06/07 16:41:15 jonas

9
ide/wwinhelp.pas
View File

@ -1664,9 +1664,9 @@ begin
inherited Done;
end;
function CreateProc(const FileName,Param: string): PHelpFile; {$ifndef FPC}far;{$endif}
function CreateProc(const FileName,Param: string;Index : longint): PHelpFile; {$ifndef FPC}far;{$endif}
begin
CreateProc:=New(PWinHelpFile, Init(FileName,0));
CreateProc:=New(PWinHelpFile, Init(FileName,Index));
end;
procedure RegisterHelpType;
@ -1677,7 +1677,10 @@ end;
END.
{
$Log$
Revision 1.1 2001-08-04 11:30:26 peter
Revision 1.2 2001-09-18 11:33:54 pierre
* fix Previous Help Topic
Revision 1.1 2001/08/04 11:30:26 peter
* ide works now with both compiler versions
Revision 1.1.2.2 2000/11/27 12:06:52 pierre