mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-14 10:29:50 +02:00
* fix web bug #1368
This commit is contained in:
parent
6a15178f0f
commit
fca264a025
@ -343,7 +343,7 @@ begin
|
|||||||
HelpCreateWindow;
|
HelpCreateWindow;
|
||||||
with HelpWindow^ do
|
with HelpWindow^ do
|
||||||
begin
|
begin
|
||||||
HelpWindow^.ShowTopic(0,Context);
|
HelpWindow^.ShowTopic(FileID,Context);
|
||||||
if GetState(sfVisible)=false then Show;
|
if GetState(sfVisible)=false then Show;
|
||||||
MakeFirst;
|
MakeFirst;
|
||||||
end;
|
end;
|
||||||
@ -504,7 +504,10 @@ end;
|
|||||||
END.
|
END.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.2 2001-08-05 02:01:47 peter
|
Revision 1.3 2001-09-10 10:52:59 pierre
|
||||||
|
* fix web bug 1368
|
||||||
|
|
||||||
|
Revision 1.2 2001/08/05 02:01:47 peter
|
||||||
* FVISION define to compile with fvision units
|
* FVISION define to compile with fvision units
|
||||||
|
|
||||||
Revision 1.1 2001/08/04 11:30:23 peter
|
Revision 1.1 2001/08/04 11:30:23 peter
|
||||||
|
Loading…
Reference in New Issue
Block a user