paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 19:43:15 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed a typo and the setting of haside and hashtmlhelp (merged)

Browse Source
This commit is contained in:
peter 2000-10-11 17:16:01 +00:00
parent 855398ff4f
commit bd2f0c512f
1 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
install/fpinst/install.pas
View File

@ -544,8 +544,8 @@ program install;
if LS^.GetDocumentCount=0 then
begin
params[0]:=@filename;
MessageBox('Problem creating help index %1, abording',@params,
mferror+mfyesbutton+mfnobutton);
MessageBox('Problem creating help index %1, aborting',@params,
mferror+mfokbutton);
end
else
begin
@ -1306,7 +1306,14 @@ program install;
for i:=1 to packages do
begin
if data.packmask[j] and packagemask(i)<>0 then
UnzDlg^.do_unzip(package[i].zip,data.basepath);
begin
UnzDlg^.do_unzip(package[i].zip,data.basepath);
{ gather some information about the installed files }
if copy(package[i].zip,1,3)='ide' then
haside:=true;
if copy(package[i].zip,1,7)='doc-htm' then
hashtmlhelp:=true;
end;
end;
desktop^.delete(UnzDlg);
dispose(UnzDlg,done);
@ -1521,10 +1528,6 @@ program install;
writeln('No pack set');
halt(1);
end;
if copy(s,1,3)='ide' then
haside:=true;
if copy(s,1,7)='doc-htm' then
hashtmlhelp:=true;
with cfg.pack[cfg.packs] do
begin
j:=pos(',',s);
@ -1758,7 +1761,10 @@ begin
end.
{
$Log$
Revision 1.10 2000-10-11 15:57:47 peter
Revision 1.11 2000-10-11 17:16:01 peter
* fixed a typo and the setting of haside and hashtmlhelp (merged)
Revision 1.10 2000/10/11 15:57:47 peter
* merged ide additions
Revision 1.9 2000/10/08 18:43:17 hajny