Test-Button

[Gintaras]

Macro Macro2176

Code:

Copy      Help

;simplest, black rectangle
RECT r; SetRect &r 400 300 500 350
rep 3
,OnScreenRect 1 r
,0.3
,OnScreenRect 3
,0.3
OnScreenRect 2


;red rectangle
RECT rr; SetRect &rr 400 300 500 350
__OnScreenRect osr
osr.SetStyle(0xff)
rep 3
,osr.Show(1 rr)
,0.3
,osr.Show(3)
,0.3
osr.Show(2)


;filled rectangle
osr.SetStyle(0xff0000 1)
rep 3
,osr.Show(1 rr)
,0.3
,osr.Show(3)
,0.3
osr.Show(2)