uses "UI"
%OPT1 = 101
%OPT2 = 102
%OPT3 = 103
%OPT4 = 104
%OPT5 = 105
MAIN
FUNCTION MAIN() as long
DIM Msg AS LONG
DIM wParam AS LONG
DIM lParam AS LONG
DIM hDlg AS DWORD
dim lResult as long
dim sResult as string
dim Count as long
DIALOG NEW 0, "OPTION control test", -1, -1, _
100, 100, %WS_SYSMENU OR %WS_CAPTION TO hDlg
CONTROL ADD OPTION, hDlg, %OPT1, "Option 1", _
10, 6, 50, 14, %WS_GROUP OR %WS_TABSTOP
CONTROL ADD OPTION, hDlg, %OPT2, "Option 2", _
10, 20, 50, 14
CONTROL ADD OPTION, hDlg, %OPT3, "Option 3", _
10, 34, 50, 14
CONTROL ADD OPTION, hDlg, %OPT4, "Option 4", _
10, 48, 50, 14
CONTROL ADD OPTION, hDlg, %OPT5, "Option 5", _
10, 62, 50, 14
CONTROL ADD BUTTON, hDlg, %IDOK, "OK", _
25, 80, 50, 14, %WS_GROUP OR %WS_TABSTOP
'---Set the initial state to OPTION button 3
CONTROL SET OPTION hDlg, %OPT3, %OPT1, %OPT5
DIALOG SHOW MODELESS hDlg
'---Start the main message loop
WHILE IsWindow(hDlg)
'---Get the message and fill wParam and lParam
Msg = GetMessage(hDlg, wParam, lParam)
SELECT CASE Msg
CASE %WM_COMMAND
'---Test which control has been clicked
SELECT CASE wParam
'---A number was activated
CASE %IDOK
sResult = ""
for Count = %OPT1 to %OPT5
CONTROL GET CHECK hDlg, Count TO lResult
sResult += "Control " & Count & " is " & lResult & $crlf
next
msgbox 0, sResult
END SELECT
CASE %WM_SYSCOMMAND
SELECT CASE wParam
CASE %SC_CLOSE
EXIT WHILE
END SELECT
CASE ELSE
END SELECT
WEND
DIALOG END hDlg
END FUNCTION
Bookmarks