Possible add to tests\vtext.prg  ?

STATIC FUNCTION DispScreen()
   CLS
   DispOutAt( 0,0,padc( 'Harbour GT - New Features', maxcol()+1 ),
'N/GR*' )
   ?"______  __             ______
________________"
   ?"___  / / /_____ __________  /___________  _________    __  ____/__
__/"
   ?"__  /_/ /_  __ `/_  ___/_  __ \  __ \  / / /_  ___/    _  / __ __
/   "
   ?"_  __  / / /_/ /_  /   _  /_/ / /_/ / /_/ /_  /        / /_/ / _  /
"
   ?"/_/ /_/  \__,_/ /_/    /_.___/\____/\__,_/ /_/         \____/  /_/
"
   DispOutAt( maxrow(),0,padc( '<F2 En MarkCopy> <F3 En Resize> <Click
Other Window> <Click X Button> <f11 Font>', maxcol()+1 ), 'N/G*' )

   RETURN NIL





Massimo Belgrano

_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour

Reply via email to