Print, Write, Locate + Input replacement

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|509\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Text and GUI's

Teasy	Created : 10 August 2007 Edited : 10 August 2007 System : Windows Language : Blitz Print, Write, Locate + Input replacement Intended for BlitzPlus, but can be used in Blitz2D and Blitz3D too.
Most significant functions: - ClsColor r,g,b - Cls - Locate x,y - Print msg$ - Write msg$ - result$ = Input$( prompt$ ) The functions override Blitz' native set of functions. See the blitzprint_demo() function at the bottom to see the system in action. ;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ; Blitz2D/3D's Print, Write, Locate and Input replacement for BlitzPlus. ; Created by Teasy <TheChange@yahoo.com> for Hotshot on 08 Jun 2007. ;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ; If you use this in Blitz2D/3D, Input() will not have key-repeat support. ;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ; Global pos_x = 0 Global pos_y = 0 ; Global back_r = 0 Global back_g = 0 Global back_b = 0 ; Function ClsColor( r,g,b ) back_r = r back_g = g back_b = b End Function ; Function Cls() Color back_r,back_g,back_b Rect 0,0 , GraphicsWidth(),GraphicsHeight() End Function ; Function Locate( x,y ) pos_x = x pos_y = y End Function ; Function Print( msg$="" ) ; new line doesn't fit on screen If pos_y > GraphicsHeight() - FontHeight() scrollscreen EndIf Text pos_x,pos_y , msg pos_x = 0 pos_y = pos_y + FontHeight() End Function ; Function Write( msg$ ) ; new line doesn't fit on screen If pos_y > GraphicsHeight() - FontHeight() scrollscreen EndIf Text pos_x,pos_y , msg pos_x = pos_x + StringWidth( msg ) End Function ; Function scrollscreen() ; move all so far up that 1 line will fit CopyRect 0,pos_y-GraphicsHeight()+FontHeight() , GraphicsWidth(),GraphicsHeight() , 0,0 ; place cursor at last line pos_y = GraphicsHeight() - FontHeight() ; remember current color Local col_r = ColorRed() Local col_g = ColorGreen() Local col_b = ColorGreen() ; erase last line Color back_r,back_g,back_b Rect 0,pos_y , GraphicsWidth(),FontHeight() ; restore color Color col_r,col_g,col_b End Function ; Function Input$( prompt$="" ) ; place prompt (and move cursor) Write prompt ; remember current drawing buffer Local buffer = GraphicsBuffer() ; record original background Local back = CreateImage( GraphicsWidth(),FontHeight() ) SetBuffer ImageBuffer( back ) CopyRect pos_x,pos_y , GraphicsWidth(),FontHeight() , 0,0 , buffer,ImageBuffer( back ) ; go back to original drawing buffer SetBuffer buffer ; setup input variables Local done = False Local key Local in$ = "" Local update Local time Local lastblink Local showcursor ; forget pressed keys FlushKeys ; input loop Repeat time = MilliSecs() If time - lastblink >= 200 lastblink = time showcursor = Not showcursor update = True EndIf key = GetKey() If key Select key Case 27 in = "" update = True Case 13 ; enter update = True exitloop = True Case 8 ; backspace If Len( in ) > 0 in = Left( in , Len( in )-1 ) EndIf update = True Default ; for the rest.. ; normal ascii chars only If key >= 32 And key <= 255 in = in + Chr( key ) update = True EndIf End Select EndIf If update update = False ; original background DrawBlock back , pos_x,pos_y ; overlay entered text Text pos_x,pos_y , in ; draw cursor only: ; - when visible, and ; - when not exiting loop If ( showcursor ) And ( Not exitloop ) Rect pos_x+StringWidth( in ),pos_y , StringWidth( "W" ),FontHeight() EndIf EndIf Until exitloop ; forget pressed keys FlushKeys ; next line pos_x = 0 pos_y = pos_y + FontHeight() End Function ; ;------------------------------------------------------------------------------- ; demonstration Function blitzprint_demo() Graphics 400,300 , 0,3 Local pos,size Local msg$ Local mode = 0 Locate 0,300/2 Print "Press <Space> to toggle:" Print "- random garbage" Print "- manual input" Print Delay 1000 Repeat ; mode 0: generate garbage If mode = 0 ; new message msg = "" ; random length size = Rand( 1,20 ) ; fill will garbage For pos = 1 To size msg = msg + Chr( Rand( 32,128 ) ) Next ; random print or write If Rand( 0,1 ) Print msg Else Write msg EndIf ; hold for a bit Delay 500 ; mode 1: manual input ElseIf mode = 1 ; request message msg = Input( ">" ) ; auto change back to garbage mode ; so you can change mode again mode = 0 EndIf ; space: change mode If KeyHit( 57 ) mode = Not mode EndIf Until KeyHit( 1 ) End End Function --v

Comments

Print, Write, Locate + Input replacement

Comments