Clipper On Line • Ver Tópico - Dúvida com Radio Button

Dúvida com Radio Button

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

 

Dúvida com Radio Button

Mensagempor porter » 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

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
porter
Usuário Nível 5

Usuário Nível 5
 
Mensagens: 1024
Data de registro: 10 Dez 2009 15:44
Cidade/Estado: OLIMPIA-SP
Curtiu: 3 vezes
Mens.Curtidas: 23 vezes

Dúvida com Radio Button

Mensagempor porter » 26 Mai 2018 13:27

Com o comando abaixo, insiro um Box no form, como faço para inserir um GET ; READ ?

aDlg   := Wvt_AddDlgItem( aDlg,  7, 21,  4, 17, { 0, 0, 4, 0 }, ID_GRP_COMP, "BUTTON" , nStyle, "Escolher" )
porter
Usuário Nível 5

Usuário Nível 5
 
Mensagens: 1024
Data de registro: 10 Dez 2009 15:44
Cidade/Estado: OLIMPIA-SP
Curtiu: 3 vezes
Mens.Curtidas: 23 vezes




Retornar para Harbour

Quem está online

Usuários vendo este fórum: Google [Bot] e 15 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro