paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 12:49:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Change Lee's first name to John :-)

Browse Source
This commit is contained in:
marco 2000-01-14 22:03:43 +00:00
parent f992828ffa
commit e1882abb1b
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
install/demo/gameunit.pp
View File

@ -153,7 +153,7 @@ CONST
{The initial names. If people feel they are missing, I first checked the Alias,
and then filled with names of the FPC-Devel list, and arranged them alfabetically}
InitNames : ARRAY[0..9] OF String[12] = ('Carl','Daniel','Florian','Jonas','Lee','Marco','Michael (3x)',
InitNames : ARRAY[0..9] OF String[12] = ('Carl','Daniel','Florian','Jonas','John','Marco','Michael (3x)',
'Peter','Pierre','Thomas' );
{$IFDEF MouseAPI}
@ -598,7 +598,8 @@ BEGIN
Ins :=TRUE; { Insert according to parameters }
DoCursor; { Set cursor accordingly }
Key :=0;
// SetFillStyle(SolidFill,0);
// Bar(X,Y,X+Len*Dx+5,Y+Dy+1);
{ put ±±± padded field on screen }
FillChar(Uitg,Len+1,FieldSpace);
@ -862,7 +863,10 @@ BEGIN
END.
{
$Log$
Revision 1.4 2000-01-01 14:54:16 marco
Revision 1.5 2000-01-14 22:03:43 marco
* Change Lee's first name to John :-)
Revision 1.4 2000/01/01 14:54:16 marco
* Added bp comtibility
:wq
* bp compat routines