Brightsign BrightScript 3.0 Reference Manual Instrukcja Użytkownika Pobierz pdf (Strona 67)

if h>MAXHI then h=MAXHI

xpix = cint((vidmode.GetResX() - w*CELLWID)/2) ' center game board on screen

ypix = cint((vidmode.GetResY() - h*CELLHI)/2) ' center game board on screen

REM

REM Create Text Field with square char cell size

REM

meta=CreateObject("roAssociativeArray")

meta.AddReplace("CharWidth",CELLWID)

meta.AddReplace("CharHeight",CELLHI)

meta.AddReplace("BackgroundColor",&H202020) 'very dark grey

meta.AddReplace("TextColor",&H00FF00) ' Green

m.text_field=CreateObject("roTextField",xpix,ypix,w,h,meta)

if type(m.text_field)<>"roTextField" then

print "unable to create roTextField 1"

stop

endif

End Function

REM

REM As Object refers to type BrightScript Component

REM m the "this" pointer

REM

Sub gbSetSnake(snake As Object)

m.snake=snake

End Sub

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

Brak uwag

Brightsign BrightScript 3.0 Reference Manual Instrukcja Użytkownika Strona 67