Database Search

match allmatch any Look in all areasLook in current areas Check all datesPrevious dayPrevious 3 daysPrevious weekPrevious fortnightPrevious monthPrevious 2 monthsPrevious 3 monthsPrevious half-yearPrevious year

TechHome

	Boxes Examples from Users
	Progress Bars

• Awesome ListBox in Boxes example
• Box - progress bar
• Box Command Stack Full
• Box coordinates
• Box Text Resize Problem
• Box Window with No Caption
• BoxButtonDraw and Font Sizes
• BoxColor in 2nd Box not Full Size
• BoxDataClear and Stack Management
• BoxDrawText with Erase Flag Not Working
• BoxDrawText Wrap
• BoxesUp Width Limitation
• BoxShut and Iconized Name Change
• BoxText Last Error 12000
• Centering BoxesUp and Some General Explanation Too
• Checking Button Status before BoxButtonWait
• Clarification on BoxUpdates Function
• Dialog with Box Functions
• Display a Box While Processing in Background
• Dynamically Create a Box with more than 16 buttons
• FTP Example Script from User
• Green Color Choosing Example
• Have Child Script Update Parent Box
• IntControl 1008 Capture Close Request
• ListBox in BoxesUp - Cool!
• Mixed Screen Colors with Boxes Functions
• Multiple Items and the Boxes Functions Example
• Resize Box to Text Size
• Sample Drawing Program
• Scrolling Status Screen Box
• Scrolling Text
• Txt Alignment in BoxDrawText
• Using Courier Font in Boxes
• Using Other Fonts in Boxes
• Where are the docs for drawing those pretty boxes

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

Scrolling Status Screen Box

Keywords: boxesup  scrolling progress box

---

Question:

I would like to be able to put up a window and simply add text to it as I process in the background. For example, I delete a file and add a new line to the bottom of the existing text, as the text increases it simply scrolls down the screen and the old stuff scrolls off the top. Kind of like just writing msgs in a dos window, the new one goes at the end and when the screen is full it just scrolls up one.

Answer:

From your message, I gather that the following example will do what you wanted. You could also get fancier with this and make one of the lines 'static' that gives info such as "28% complete".

;setup variables
line1=""
line2=""
line3=""
line4=""
line5=""

BoxOpen("Scrolling Example","")

for x=1 to 10
	gosub scroll
	if x != 10
		line5="This is line %x%"
	else
		line5="DONE!"
	endif
	gosub update_disp
delay(1)
next x

message("DONE!","Example complete.")
exit()

:update_disp
line=StrCat(line1,"%@CRLF%",line2,"%@CRLF%",line3,"%@CRLF%",line4,"%@CRLF%",line5,"%@CRLF%")
BoxText(line)
return

:scroll
line1=line2
line2=line3
line3=line4
line4=line5
return

---

You can also do it with ths simple UDF.

Users Sample UDF:

;Scrolling text messages to show process progress
;==============================================================================
;Raymond Chevalier, November 2001
;==============================================================================
#DefineFunction scroll(scroll_txt, newline)
   if scroll_txt == "" then scroll_txt = newline
                       else scroll_txt = strcat(scroll_txt, @tab, newline)
   while itemcount(scroll_txt, @tab) > 9
      scroll_txt = itemremove(1, scroll_txt, @tab)
   endwhile
   BoxText(Strreplace(scroll_txt, @tab, @crlf))
   RETURN scroll_txt
#EndFunction
;========================================================
boxopen("Console", "")
scroll_txt = scroll("", "Beginning")

;some code here

scroll_txt = scroll(scroll_txt, "Line 2...")

;some code here

scroll_txt = scroll(scroll_txt, "Line 3...")

;Etc....

---

Or with a "real" console window:

hker = DllLoad("KERNEL32.DLL")
DLLCall(hker, long:"AllocConsole")
hStdOutput = DLLCall(hker, long:"GetStdHandle", long:-11)
linebuff = binaryalloc(256)
mret = BinaryAlloc(4)

for i = 1 to 200
line = strcat("Hello there ", i, @CRLF)
binarypokestr(linebuff, 0, line)
DLLCall(hker, long:"WriteConsoleA", long:hStdOutput, lpbinary:linebuff, long:strlen(line), lpbinary:mret, lpnull)
next

Message("", "done")
DLLCall(hker, long:"FreeConsole")
dllfree(hker)
binaryfree(linebuff)
binaryfree(mret)

---

Article ID:   W12769

Filename:   Scrolling Status Screen Box.txt

File Created: 2002:06:17:11:34:40

Last Updated: 2002:06:17:11:34:40