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

* the language dialog repaired

Browse Source
This commit is contained in:
Tomas Hajny 2000-10-08 18:43:17 +00:00
parent c0abd00212
commit ac17e718e5
1 changed files with 7 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
install/fpinst/install.pas
View File

@ -40,13 +40,6 @@ program install;
{$ENDIF} {$ENDIF}
{$ENDIF} {$ENDIF}
{$IFDEF OS2}
{$UNDEF FV}
{$IFDEF VIRTUALPASCAL}
{$DEFINE DLL}
{$ENDIF}
{$ENDIF}
{$IFDEF DPMI} {$IFDEF DPMI}
{$UNDEF DOSSTUB} {$UNDEF DOSSTUB}
{$ENDIF} {$ENDIF}
@ -691,7 +684,7 @@ program install;
const const
languages = 8; languages = 8;
width = 40; width = 40;
height = languages+5; height = languages+6;
x1 = (79-width) div 2; x1 = (79-width) div 2;
y1 = (23-height) div 2; y1 = (23-height) div 2;
x2 = x1+width; x2 = x1+width;
@ -708,7 +701,7 @@ program install;
GetExtent(R); GetExtent(R);
R.Grow(-2,-1); R.Grow(-2,-1);
line:=r.a.y+1; line:=r.a.y+1;
r.assign((width div 2)-15,line,(width div 2)+15,line+7); r.assign((width div 2)-15,line,(width div 2)+15,line+languages);
New(rb, Init(r, New(rb, Init(r,
NewSItem(dialog_language_english, NewSItem(dialog_language_english,
NewSItem(dialog_language_dutch, NewSItem(dialog_language_dutch,
@ -720,7 +713,7 @@ program install;
NewSItem(dialog_language_russian_win, NewSItem(dialog_language_russian_win,
nil)))))))))); nil))))))))));
insert(rb); insert(rb);
inc(line,7); inc(line,languages);
inc(line,1); inc(line,1);
r.assign((width div 2)-5,line,(width div 2)+5,line+2); r.assign((width div 2)-5,line,(width div 2)+5,line+2);
new(okbut,init(r,str_ok,cmok,bfdefault)); new(okbut,init(r,str_ok,cmok,bfdefault));
@ -1490,7 +1483,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.8 2000-09-24 10:52:36 peter Revision 1.9 2000-10-08 18:43:17 hajny
* the language dialog repaired
Revision 1.8 2000/09/24 10:52:36 peter
* smaller window * smaller window
Revision 1.7 2000/09/22 23:13:37 pierre Revision 1.7 2000/09/22 23:13:37 pierre