Database Search

TechHome

• Additional Box Controls in Boxes from Guido
• Append Text to an Open Box
• Arizona Quiz Box Example
• Awesome StopWatch Display
• Box Based Progress Bar
• Box Controls in Boxes - EditBox Example
• Clock drawing example
• Color Wheel Boxes Display 2
• Cute Music Player
• Drawing Program -1
• Drawing Program -2 by Todd
• Dynamic Dialog Using Box Functions
• Legal Notice Using Box Functions
• Pie Chart Drawing Program
• Transparent Splash Example
• Vertical Thermometer

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Append Text to an Open Box

 Keywords: Append Add Text Open Box PtrPersistent BoxOpen BoxText BoxTextExt

#DefineFunction BoxTextExt(text, bAppend)
   ;----------------------------------------------------------------------------------------------
   ;  Append text to an open box, callable inside udfs
   ;
   ;  text         text to display
   ;  bAppend      append text @FALSE / @TRUE
   ;
   ;  2010-11-12 Lars M. Doornbos
   ;----------------------------------------------------------------------------------------------
   ptr_txt = PtrPersistent(btext, '')
   If bAppend Then text = *ptr_txt:@LF:text
   *ptr_txt = text
   BoxText(text)
#EndFunction

;-- demo -----------------------------------
;
#DefineFunction dummy()
   BoxTextExt('dummy started...',@TRUE)
#EndFunction

BoxOpen('BoxTextExt demo','')
For i = 1 To 5
   BoxTextExt('this is loop number ':i,@FALSE)
   BoxTextExt('',1)

   For j = 1 To 5
      BoxTextExt('test%j%',@TRUE)
   Next j
   dummy()
   TimeDelay(1)
Next i

TimeDelay(2)

BoxTextExt('done',@FALSE)
TimeDelay(2)
Exit

Article ID:   W17686

Filename:   Append Text to an Open Box.txt

File Created: 2010:11:11:08:43:58

Last Updated: 2010:11:11:08:43:58