Database Search

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.

BoxDataClear and Stack Management &
Contents of Graphics Windows Disappearing

Keywords: BoxDataClear	Stack Management   

Question:

BoxesUp("0,0,1000,1000",@NORMAL)
BoxNew(2,"0,0,1000,1000",2)
BoxColor(2,GREY,0)

Obviously the graphics routines are not properly repainting the contents of the window. Is there a solution?

Answer:

The three lines of script you provided did not do much and immediately exited so there was no time to see what was going on. I modified the supplied script a bit so as to be able to actually see what was going on.

The script will keep the window around till you hit the ESCAPE key...

BLUE="0,0,255"
RED="255,0,0"
BoxesUp("0,0,1000,1000",@NORMAL)
BoxNew(2,"0,0,1000,1000",2)
BoxColor(2,BLUE,0)
BoxDrawRect(2,"0,0,1000,1000",2)
BoxColor(2,RED,0)
BoxDrawCircle(2,"300,200,700,800",2)
WaitForKey("{ESC}","","","","")

I still suspect you are clearing the drawing stack too soon. When a repaint occurs it will only repaint up to the end of the defined drawing stack, and it a portion of it was cleared...well then the cleared items are not repainted.

Question (continued thread):

Is there some way of increasing the size of the command stack beyond this rather modest limit to avoid getting the "stack full" error? Any known work-around if someone wants to draw a lot of stuff to the screen, and have it stay there?

Answer (continued thread):

The trick is to draw all the fixed elements first, then Insert a BoxDataTag, then draw the rapidly varying elements. Also, for BoxDrawText, make sure you set the subsequent erase flags to @TRUE.

Right before you redraw the rapidly varying elements, then do a BoxDataClear for the named tag. I guess the idea is to do the BoxDataClear before the drawing of the last portion, rather than after. As in:

;; sample script for BoxDataClear
BoxesUp("100,100,900,900", @normal) 
BoxColor(1,"255,255,0",0)
BoxDrawRect( 1, "0,0,1000,1000", 2) 
BoxDataTag(1, "tag1")	   ;INSERT THE TAG HERE BEFORE VARYING ELEMENTS
BoxDrawText(1, "0,200,1000,1000", "WinBatch Box Example - BoxDataClear ", @false, 1)
BoxCaption(1, "WinBatch BoxDataClear Example")


;BoxColor(1,"0,0,255", 0)  ;THIS BOX IS CAUSING A PROBLEM WHEN NOT COMMENTED OUT

BoxPen(1,"255,0,0",25)
BoxDrawRect(1,"350,350,650,650", 1)
BoxDrawLine(1, "350,700,800,700")
TimeDelay(2)

BoxDataClear(1, "tag1")	 ;SET THIS BEFORE THE NEXT VARYING TEXT: BOXDRAWTEXT
BoxDrawText(1, "0,200,1000,1000", "BoxDataClear - Clearing Tags to redraw contents", @true, 1)	;SET TO @TRUE

TimeDelay(3)

BoxColor(1,"255,0,0", 0)

BoxPen(1,"0,0,255",50)
BoxDrawRect(1,"350,350,650,650", 1)
BoxDrawLine(1, "350,700,800,700")
TimeDelay(4)

Question (thread continued):

Answer:

When it is deleted, it cannot be redrawn if required - say by covering it temporarily with another window or iconizing it then showing it.

Only the items above the BoxDataTag are preserved to be re-drawn.

With your technique of frequent dataclears you are able to draw many many items, but these items are not preserved if a redraw is required.

My best suggestion is a "Screen Refresh" button which, when pressed, redraws the entire window.

Similar Question with Example of How to Revise Code with BoxDataTag and BoxDataClear

Question:

BoxOpen("BarTest","Checking for stack error 10108 on Box function")
BoxTextFont(1, "Terminal", 80, 0, 1)

BarLen = 50
;BarChr1 = Num2Char(176)
;BarChr2 = Num2Char(178)
BarChr1 = "-"
BarChr2 = "*"

nThings=200

For i = 1 to nThings
BarDone = (BarLen * i) / nThings
PctBar = StrCat("[",StrFill(BarChr2,BarDone),StrFill(BarChr1,BarLen-BarDone),"]")
StatusMsg = StrCat("Progress: ",PctBar,@CrLf,"Item '",i,"'")
BoxText(StatusMsg)
Next i 

Answer:

I added some code to make this script work. See the added BoxDataTag and BoxDataClear functions added.

BoxOpen("BarTest","Checking for stack error 10108 on Box function")
BoxTextFont(1, "Terminal", 80, 0, 1)

BarLen = 50
;BarChr1 = Num2Char(176)
;BarChr2 = Num2Char(178)
BarChr1 = "-"
BarChr2 = "*"

nThings=200

BoxDataTag(1,"tiptop")
For i = 1 to nThings
    BoxDataClear(1,"tiptop")
    BarDone = (BarLen * i) / nThings
    PctBar = StrCat("[",StrFill(BarChr2,BarDone),StrFill(BarChr1,BarLen-BarDone),"]")
    StatusMsg = StrCat("Progress: ",PctBar,@CrLf,"Item '",i,"'")
    BoxText(StatusMsg)
Next i 

Article ID:   W12754

Filename:   BoxDataClear and Stack Management.txt

File Created: 2001:01:25:15:15:58

Last Updated: 2001:01:25:15:15:58