diff --git a/installer/install.pas b/installer/install.pas index c5fc5111da..c41ed312fd 100644 --- a/installer/install.pas +++ b/installer/install.pas @@ -542,6 +542,7 @@ program install; r : trect; begin inherited init(bounds,atitle); + Options:=Options or ofCentered; R.Assign (4, 2,bounds.B.X-Bounds.A.X-2, 4); text:=new(pstatictext,init(r,'Please wait ...')); insert(text); @@ -708,6 +709,7 @@ program install; r : trect; begin inherited init(bounds,atitle); + Options:=Options or ofCentered; (* R.Assign (11, 4, 38, 6);*) R.Assign (1, 4,bounds.B.X-Bounds.A.X-2, 6); filetext:=new(pstatictext,init(r,#3'File: ')); @@ -896,6 +898,7 @@ program install; R.Assign(6, 6, 74, YB); inherited init(r,'Installation Successful.'); + Options:=Options or ofCentered; {$IFNDEF UNIX} if WPath then @@ -1141,6 +1144,7 @@ program install; r.assign(x1,y1,x2,y2); inherited init(r,''); + Options:=Options or ofCentered; GetExtent(R); R.Grow(-2,-1); Dec(R.B.Y,2); @@ -1949,7 +1953,10 @@ begin end. { $Log$ - Revision 1.14 2003-01-22 13:42:35 pierre + Revision 1.15 2003-01-22 14:15:13 pierre + * center all dialogs + + Revision 1.14 2003/01/22 13:42:35 pierre * fix problem with Alt-X (webbug 1959) + use fpusrscr unit to restore console at exit.