paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 18:49:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* compiles without -So option

Browse Source 
* the main dialog init was buggy !!
This commit is contained in:
pierre 1998-10-23 16:57:40 +00:00
parent 4844858fa6
commit 5ccb5f88ef
1 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
install/install.pas
View File

@ -17,6 +17,9 @@
program install;
uses
{$ifdef HEAPTRC}
heaptrc,
{$endif HEAPTRC}
app,dialogs,views,objects,menus,drivers,strings,msgbox,dos,unzip,ziptypes;
const
@ -323,7 +326,7 @@ program install;
end;
constructor tunzipdialog.init;
constructor tunzipdialog.Init(var Bounds: TRect; ATitle: TTitleStr);
var
r : trect;
begin
@ -402,14 +405,14 @@ program install;
inherited init(r,cfg.title+' Installation');
line:=2;
r.assign(3,line,8,line+1);
insert(new(plabel,init(r,'~P~ath',p)));
insert(p);
r.assign(3,line+1,28,line+2);
f:=new(pinputline,init(r,80));
insert(f);
r.assign(3,line,8,line+1);
insert(new(plabel,init(r,'~P~ath',f)));
{ walk packages reverse and insert a newsitem for each, and set the mask }
items:=nil;
mask_components:=0;
@ -436,10 +439,10 @@ program install;
end;
inc(line,3);
r.assign(3,line,14,line+1);
insert(new(plabel,init(r,'~C~omponents',p)));
r.assign(3,line+1,width-3,line+cfg.packages+1);
p:=new(pcheckboxes,init(r,items));
r.assign(3,line,14,line+1);
insert(new(plabel,init(r,'~C~omponents',p)));
pcluster(p)^.enablemask:=mask_components;
insert(p);
@ -568,7 +571,11 @@ begin
end.
{
$Log$
Revision 1.8 1998-09-22 21:10:31 jonas
Revision 1.9 1998-10-23 16:57:40 pierre
* compiles without -So option
* the main dialog init was buggy !!
Revision 1.8 1998/09/22 21:10:31 jonas
* initialize cfg and data with 0 at startup
Revision 1.7 1998/09/16 16:46:37 peter