diff options
Diffstat (limited to 'installer/install.pas')
| -rw-r--r-- | installer/install.pas | 17 |
1 files changed, 14 insertions, 3 deletions
diff --git a/installer/install.pas b/installer/install.pas index 0b8b1ad190..664bf35465 100644 --- a/installer/install.pas +++ b/installer/install.pas @@ -1106,14 +1106,22 @@ program install; else {$endif MAYBE_LFN} begin - items[j]:=newsitem(package[i].name+diskspacestr(package[i].diskspace),items[j]); + items[j]:=newsitem(package[i].name+diskspacestr(package[i].diskspace) +{$ifdef DEBUG} + +' ('+dotstr(i)+')' +{$endif DEBUG} + ,items[j]); packmask[j]:=packmask[j] or packagemask(i); enabmask[j]:=enabmask[j] or packagemask(i); firstitem[j]:=i-1; end; end else - items[j]:=newsitem(package[i].name,items[j]); + items[j]:=newsitem(package[i].name +{$ifdef DEBUG} + +' ('+dotstr(i)+')' +{$endif DEBUG} + ,items[j]); end; end; @@ -1186,7 +1194,10 @@ program install; if (sbr.b.y-sbr.a.y)<cfg.pack[j].packages then begin sbsbr.assign(sbr.b.x,sbr.a.y,sbr.b.x+1,sbr.b.y); - New(sbsb, init(sbsbr)); + sbsb:=CreateIdScrollBar (sbsbr.a.x, sbsbr.a.y,sbsbr.b.y-sbsbr.a.y,j,false); + sbsb^.SetRange(0,cfg.pack[j].packages-(sbsbr.b.y-sbsbr.a.y)-1); + sbsb^.SetStep(5,1); + //New(sbsb, init(sbsbr)); end else sbsb:=nil; |