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.

Clock drawing example

 Keywords:  Fonts BoxDrawText Windings

Sample code:

wbid = 1
BoxesUp("100,300,200,200",@normal)
BoxCaption(wbid,"Query Progress")
BoxColor(wbid,"128,128,128",0)
BoxDrawRect(wbid,"0,0,1000,1000",2)
BoxTextFont(wbid,"WingDings",550,40,512)   ;;;;;;;
BoxTextColor(wbid,"0 0 0")
BoxDataTag(wbid,"tag1")
txtblock="100,100,1000,1000"

:main
BoxDrawText(wbid,txtblock,"Â",1,0)
TimeDelay(1)
BoxDrawText(wbid,txtblock,"·",1,0)
TimeDelay(1)
BoxDrawText(wbid,txtblock,"¸",1,0)
TimeDelay(1)
BoxDrawText(wbid,txtblock,"¹",1,0)
TimeDelay(1)
BoxDrawText(wbid,txtblock,"º",1,0)
TimeDelay(1)
BoxDrawText(wbid,txtblock,"»",1,0)
TimeDelay(1)
BoxDrawText(wbid,txtblock,"¼",1,0)
TimeDelay(1)
BoxDrawText(wbid,txtblock,"½",1,0)
TimeDelay(1)
BoxDrawText(wbid,txtblock,"¾",1,0)
TimeDelay(1)
BoxDrawText(wbid,txtblock,"¿",1,0)
TimeDelay(1)            
BoxDrawText(wbid,txtblock,"À",1,0)
TimeDelay(1)
BoxDrawText(wbid,txtblock,"Á",1,0)
TimeDelay(1)
BoxDataClear(wbid,"tag1")
goto main

;----------------------------------------
:alldone
BoxDestroy(wbid)

Article ID:   W14577

Filename:   Clock drawing example.txt

File Created: 2001:03:05:10:33:32

Last Updated: 2001:03:05:10:33:32