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

* center all dialogs

Browse Source
This commit is contained in:
pierre 2003-01-22 14:15:13 +00:00
parent 739c92c1f7
commit 2584bd9df4
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
installer/install.pas
View File

@ -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.