36 lines
561 B
Text
36 lines
561 B
Text
|
' Gambas class file
|
||
|
|
|
||
|
|
PUBLIC SUB cmdCancel_Click()
|
||
|
|
|
||
|
|
FBoardSelect.Close
|
||
|
|
|
||
|
|
END
|
||
|
|
|
||
|
|
PUBLIC SUB Form_Show()
|
||
|
|
|
||
|
|
DIM i AS Byte
|
||
|
|
|
||
|
|
' Fill in the combo box text section
|
||
|
|
cboLayout.Text = Global.boarddesign[Global.selectedlayout].Name
|
||
|
|
|
||
|
|
' Fill in the combo box dropdown section
|
||
|
|
FOR i = 0 TO Global.boarddesign.Count - 1
|
||
|
|
cboLayout.Add(Global.boarddesign[i].Name)
|
||
|
|
NEXT
|
||
|
|
|
||
|
|
END
|
||
|
|
|
||
|
|
|
||
|
|
PUBLIC SUB cmdOK_Click()
|
||
|
|
|
||
|
|
' Set board layout index
|
||
|
|
Global.selectedlayout = cboLayout.Index
|
||
|
|
|
||
|
|
' Reset board
|
||
|
|
FGameArea.reset_board()
|
||
|
|
|
||
|
|
' Close this window
|
||
|
|
FBoardSelect.Close
|
||
|
|
|
||
|
|
END
|