Control PushButton1 Inherits PushButton
ControlInstance PushButton1 Inherits PushButton
EventHandler Sub Action()
timer1.mode=2
End EventHandler
End Control
Control PushButton2 Inherits PushButton
ControlInstance PushButton2 Inherits PushButton
EventHandler Sub Action()
timer1.mode=0
End EventHandler
End Control
Control PushButton3 Inherits PushButton
ControlInstance PushButton3 Inherits PushButton
EventHandler Sub Action()
if app.RestoreApplicationDockTileImageMBS then
end if
End EventHandler
End Control
Control Timer1 Inherits Timer
ControlInstance Timer1 Inherits Timer
EventHandler Sub Action()
dim p as picture
dim m as picture
dim g as graphics
dim s as string
dim w,h,x as integer
n=n+1 // add one
s=str(n)
m = new Picture(128,128,32)
p = new Picture(128,128,32)
g=p.graphics
g.textsize=24
w=g.stringwidth(s)
h=g.stringheight(s,0)
x=125-w-10
g.foreColor=rgb(255,0,0)
g.fillRoundRect x,10,10+w,10+h,20,20
g.foreColor=rgb(0,0,0)
g.drawstring s,x+5,15+g.textascent
g=m.graphics
g.foreColor=rgb(0,0,0)
g.fillRoundRect x,10,10+w,10+h,20,20
if app.OverlayApplicationDockTileImageMBS(CGCreateImageMBS(p,m)) then
end if
End EventHandler
End Control