Dúvida com Radio Button
Enviado: 25 Mai 2018 18:43
Olá pessoal, essa rotina cria trez radio buttons, nessa linha é criado um form: aDlg := Wvt_MakeDlgTemplate( 1, 4, 21, 40, { 0, 0, 0, 0 }, nStyle )
, e os radio buttons fica dentro dele, mas um form do sistema, já existe, não quero criar novamente, tem como usar o form que já existe sem criar novamente, espero ter conseguido explicar, obrigado.
Harbour 3.2.0(dev) GTWVG
, e os radio buttons fica dentro dele, mas um form do sistema, já existe, não quero criar novamente, tem como usar o form que já existe sem criar novamente, espero ter conseguido explicar, obrigado.
Harbour 3.2.0(dev) GTWVG
Código: Selecionar todos
FUNCTION RDBUTTON
#define ID_RDO_XH 21
#define ID_RDO_CLIP 22
#define ID_RDO_XBASE 23
#define ID_GRP_COMP 113
DynWinDialog(4)
FUNCTION DynWinDialog( nInfo )
LOCAL hDlg, aDlg, nStyle, cDlgIcon, cDlgProc, lOnTop, hMenu
aDlg := Wvt_MakeDlgTemplate( 1, 4, 21, 40, { 0, 0, 0, 0 }, nStyle )
nStyle := WS_CHILD + WS_VISIBLE + WS_TABSTOP + BS_GROUPBOX
aDlg := Wvt_AddDlgItem( aDlg, 7, 21, 4, 17, { 0, 0, 4, 0 }, ID_GRP_COMP, "BUTTON" , nStyle, "Escolher" )
nStyle := WS_CHILD + WS_VISIBLE + WS_TABSTOP + BS_AUTORADIOBUTTON
aDlg := Wvt_AddDlgItem( aDlg, 8, 43, 1, 14, {}, ID_RDO_XH , "BUTTON" , nStyle, "Harbour1" )
aDlg := Wvt_AddDlgItem( aDlg, 9, 43, 1, 14, {}, ID_RDO_CLIP , "BUTTON" , nStyle, "Clipper2" )
aDlg := Wvt_AddDlgItem( aDlg, 10, 43, 1, 14, {}, ID_RDO_XBASE , "BUTTON" , nStyle, "Xbase++3" )
cDlgProc := "DynDlgProc"
hDlg := Wvt_CreateDialog( aDlg, lOnTop, cDlgProc, cDlgIcon, /*nTimerTicks*/, hMenu )
FUNCTION DynDlgProc( hDlg, nMsg, wParam, lParam )
LOCAL lClicked, cPrompt, nIndex, hFont, aHFonts
SWITCH nMsg
CASE WM_COMMAND
DO CASE
CASE wParam == ID_RDO_XH
Wvg_MessageBox( hDlg, "Harbour1", "Compiler" )
CASE wParam == ID_RDO_CLIP
Wvg_MessageBox( hDlg, "Clipper2", "Compiler" )
CASE wParam == ID_RDO_XBASE
Wvg_MessageBox( hDlg, "Xbase++3", "Compiler" )
ENDCASE
ENDSWITCH
RETURN 0