GUI "test"

GLOBAL Form1    AS CONTROL
GLOBAL Edit_1   AS CONTROL
GLOBAL Edit_2   AS CONTROL
GLOBAL Label_1  AS CONTROL
GLOBAL Label_2  AS CONTROL


SUB FORMLOAD()
  Form1 = BCX_FORM("BCX !", 67, 42, 160, 130)
  Edit_1 = BCX_EDIT("Edit  1", Form1, 102, 45, 10, 75, 30)
  Edit_2 = BCX_EDIT("Edit  2", Form1, 103, 45, 50, 75, 30)
  Label_1 = BCX_LABEL("Label 1", Form1, 100, 5, 10)
  Label_2 = BCX_LABEL("Label 2", Form1, 101, 5, 50)

  BCX_SET_FORM_COLOR(Form1, RGB(0, 0, 0))

  BCX_SET_FONT(Edit_1, "Verdana", 14) ' font, size
  BCX_SET_FONT(Edit_2, "Tahoma", 10)   ' font, size
  BCX_SET_FONT(Label_1, "Tahoma", 12) ' font, size
  BCX_SET_FONT(Label_2, "Tahoma", 12) ' font, size


  CENTER(Form1)
  SHOW(Form1)
END SUB


BEGIN EVENTS

  BCX_SET_LABEL_COLOR  Label_1, RGB(0,225,0)    ,  RGB(0,0,0)
  BCX_SET_LABEL_COLOR  Label_2, RGB(255,255,255) ,  RGB(0,0,0)

  BCX_SET_EDIT_COLOR   Edit_1,  RGB(64,128,128) ,  RGB(225,225,225)
  BCX_SET_EDIT_COLOR   Edit_2,  RGB(225,225,0)  ,  RGB(0,0,128)

END EVENTS