Brightsign BrightScript 3.0 Reference Manual Manual do Utilizador descarregar pdf (Página 69)

if m.snake.MoveForward(m.text_field) then return

endif

end while

End Function

Sub gbDraw()

REM

REM given a roTextField Object in "m.text_field", draw a box around its edge

REM

solid=191 ' use asc("*") if graphics not enabled

m.text_field.Cls()

for w=0 to m.text_field.GetWidth()-1

print #m.text_field,@w,chr(solid);

print #m.text_field,@m.text_field.GetWidth()*(m.text_field.GetHeight()-1)+w,chr(solid);

end for

for h=1 to m.text_field.GetHeight()-2

print #m.text_field,@h*m.text_field.GetWidth(),chr(solid);

print #m.text_field,@h*m.text_field.GetWidth()+m.text_field.GetWidth()-1,chr(solid);

end for

m.snake.Draw(m.text_field)

1 2 ... 64 65 66 67 68 69 70 71 72 73 74 75

Sem comentários

Brightsign BrightScript 3.0 Reference Manual Manual do Utilizador Página 69