Creates a group box with the defined text and coordinates.
GroupBox text$, ID%,x%,y%,w%,h%[,style%]
A GroupBox is a rectangle which can contain several additional control elements (for example Radio buttons). The text specified in text$ is shown in the upper left corner of the Groupbox. A GroupBox can contain the WS_TABSTOP and WS_DISABLED style elements.
// only a module to show how..
Local style1%, style2%, style3%, style4%
Local style5%, style6%, x%
style1% = WS_TABSTOP
style2% = BS_DEFPUSHBUTTON | WS_TABSTOP
style3% = BS_GROUPBOX | WS_TABSTOP
style4% = BS_AUTORADIOBUTTON | WS_TABSTOP
style5% = BS_AUTOCHECKBOX | WS_TABSTOP
style6% = ES_UPPERCASE | WS_BORDER | _
WS_TABSTOP
Dlg 3D On
DlgBase Unit
// in Unit (1/4 sign width, 1/8 Zeichen height
Dialog # 1, 50, 50, 300, 200, "Dies ist ein Test"
PushButton "Pushbutton 1", 100, 12, 14, 72, 14, style1%
PushButton "Pushbutton 2", 101, 12, 32, 72, 14, style1%
PushButton "Pushbutton 3", 102, 12, 50, 72, 14, style1%
DefPushButton "DefPushbutton", IDOK, 12, 68, 72, 14, style2%
GroupBox "Radiobuttons", 106, 89, 14, 56, 53, style3%
RadioButton "Radio 1", 107, 93, 25, 39, 12, style4%
RadioButton "Radio 2", 108, 93, 36, 39, 12, style4%
RadioButton "Radio 3", 109, 93, 47, 39, 12, style4%
CheckBox "Checkbox 1", 110, 17, 94, 61, 12, style5%
CheckBox "Checkbox 2", 111, 17, 107, 61, 12, style5%
CheckBox "AutoCheckbox", 112, 17, 120, 61, 12, style5%
EditText "", 113, 89, 94, 59, 12, style6%
EndDialog
SetCheck 1, 109, 1
SetCheck 1, 112, 1
ShowDialog # 1
Do
Sleep
Until Me Is Nothing
Sub Dlg_1_Message(hWnd%, Mess%, wParam%, lParam%)
If Mess = WM_COMMAND
Switch wParam
Case 100, 101, 102
_Win$(Dlg(1, 113)) = "Pushbutton " & Str(wParam)
Case IDOK
CloseDialog # 1
Case 107, 108, 109
_Win$(Dlg(1, 113)) = "Radiobutton " & Str(wParam)
Case 110, 111, 112
_Win$(Dlg(1, 113)) = "Checkbox " & Str(wParam)
EndSwitch
EndIf
EndSub
The preferred way to implement a user interface is by using OCX controls rather than standard window controls. Replace GroupBox with the Frame OCX control. However, Ocx controls cannot be used in editor extension Dialog boxes.
This command is particular useful for a dialog box in a GLL, because a GLL doesn't support OCX controls.
With the general Control statement any control type can be created.
Control, AnimateCtrl, AutoCheckBox, AutoRadioButton, CheckBox, ComboBox, CText, Dialog, DefPushButton, EditText, GroupBox, HeaderCtrl, ListBox, ListViewCtrl, LText, ProgressCtrl, PushButton, RadioButton, RichEditCtrl, RText, ScrollBar, StatusCtrl, TabCtrl, ToolBarCtrl, TrackBarCtrl, TreeViewCtrl, UpDownCtrl
{Created by Sjouke Hamstra; Last updated: 08/10/2014 by James Gaite}