Clipper On Line • Ver Tópico - Setar RadioGroup para Nil

Setar RadioGroup para Nil

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

Setar RadioGroup para Nil

Mensagempor mbrigatti » 15 Set 2008 08:37

Pessoal,

Alguém ai sabe se é possível setar em tempo de execução o valor de um Radiogroup para NIL ?
Tem como ?

Saudações,
Marcelo Brigatti
IES - Informática e Sistemas
Avatar de usuário

mbrigatti
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 65
Data de registro: 16 Set 2005 08:13
Cidade/Estado: Piracicaba - SP
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Re: Setar RadioGroup para Nil

Mensagempor Toledo » 15 Set 2008 14:30

Marcelo, acho que não tem como fazer isto sem alterar a função _SETVALUE() da MiniGui, pois quando você tenta alterar o valor do RadioGroup, para 0 (zero) ou Nulo, a função _SETVALUE() tenta encontrar o valor correspondente dentro da matriz de opções, ai como 0 ou Nulo nao existe na matriz vai retornar um erro de array access.

O jeito seria alterar a função _SETVALUE() e verificar se o valor passado é 0 (zero). Se for zero, então não deixa a função procurar este valor na matriz, evitando assim o erro.

A função _SETVALUE() está dentro do arquivo H_CONTROLMISC.PRG que está na pasta \SOURCE da MiniGui. Dentro da função _SETVALUE() procure por RADIOGROUP e altere o seu código para:

case T == "RADIOGROUP" 
for x = 1 to len (c)
   SendMessage( c[x] , BM_SETCHECK  , BST_UNCHECKED , 0 )
next x
if value <> 0
   SendMessage( c[value] , BM_SETCHECK  , BST_CHECKED , 0 )
   if _HMG_SYSDATA [ 25 ] [ix] == .F. .and. IsTabStop( c[value] )
     SetTabStop( c[value] , .f. )
   endif
endif


Atenção: eu não testei, então por segurança antes de compilar faça uma cópia da sua MINIGUI.LIB e do arquivo H_CONTROLMISC.PRG.

Depois para fazer um teste, basta tentar alterar o valor do RadioGroup:

Form_1.Radio_1.Value := 0

Abraços,
Toledo - Clipper On Line
toledo@pctoledo.com.br
Harbour 3.2/MiniGui/HwGui
Faça uma doação para o fórum, clique neste link: http://www.pctoledo.com.br/doacao
Avatar de usuário

Toledo
Administrador

Administrador
 
Mensagens: 3038
Data de registro: 22 Jul 2003 18:39
Cidade/Estado: Araçatuba - SP
Curtiu: 263 vezes
Mens.Curtidas: 258 vezes

Re: Setar RadioGroup para Nil

Mensagempor mbrigatti » 03 Out 2008 11:57

Toledo,

Somente agora fui testar sua idéia e, DEU CERTO ! :)Pos

Muito obrigado, vou passar a sugestão para o Filatov.

Saudações,

Marcelo Brigatti
IES - Informática e Sistemas
Avatar de usuário

mbrigatti
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 65
Data de registro: 16 Set 2005 08:13
Cidade/Estado: Piracicaba - SP
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Re: Setar RadioGroup para Nil

Mensagempor mbrigatti » 03 Out 2008 13:00

Toledo,

Só para finalizar, corrigi a sugestão para:

case T == "RADIOGROUP" 
       for x = 1 to len (c)
            SendMessage( c[x] , BM_SETCHECK , BST_UNCHECKED , 0 )
       next x
       If !empty( value ) // alterado aqui
          if value <> 0
             SendMessage( c[value] , BM_SETCHECK , BST_CHECKED , 0 )
             if _HMG_aControlPicture [ix] == .F. .and. IsTabStop( c[value] ) // alterado aqui
                 SetTabStop( c[value] , .f. )
             endif
          endif
       endif


Saudações,
Marcelo Brigatti

--------------------------
Nota de Moderação: a mensagem foi editada para colocar a tag [ code ] no exemplo acima.
Avatar de usuário

mbrigatti
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 65
Data de registro: 16 Set 2005 08:13
Cidade/Estado: Piracicaba - SP
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Re: Setar RadioGroup para Nil

Mensagempor Itamar M. Lins Jr. » 04 Out 2008 08:58

Espero que os senhores entendam e separe no forum as bibliotecas novamente, pois o tópico Setar RadioGruop...
Esta se referindo a qual LIB ?

Como irei advinhar que ele usa Minigui ?

Saudações
Itamar M. Lins Jr.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6927
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 309 vezes
Mens.Curtidas: 503 vezes

Re: Setar RadioGroup para Nil

Mensagempor mbrigatti » 04 Out 2008 10:03

O Itamar, se acalma ai, eu tinha postado no fórum da minigui, não tinha visto ainda que mudou a estrutura, mas não se ofenda, próxima vez já vi que tem um tópico MINIGUI, postarei lá daqui em diante.

Saudações,
Marcelo Brigatti
Avatar de usuário

mbrigatti
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 65
Data de registro: 16 Set 2005 08:13
Cidade/Estado: Piracicaba - SP
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Re: Setar RadioGroup para Nil

Mensagempor Itamar M. Lins Jr. » 04 Out 2008 10:11

Não é isso não que vc esta pensando.
Não me referi ao seu post. Estou me referindo a atitude de juntar todas as Libs em um lugar só.

Nada pessoal a nenhum dos senhores.

Saudações
Itamar M. Lins Jr.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6927
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 309 vezes
Mens.Curtidas: 503 vezes

Re: Setar RadioGroup para Nil

Mensagempor Maligno » 04 Out 2008 20:09

Basta o OP indicar qual biblioteca está usando. Simples.
[]'s
Maligno
---
Não respondo questões técnicas através de MP ou eMail. Não insista.
As dúvidas devem ser postadas no fórum. Desta forma, todos poderão
se beneficiar das respostas.

---
Se um dia precisar de uma transfusão de sangue você perceberá como
é importante a figura do doador. Procure o hemocentro de sua cidade e
se informe sobre a doação de sangue, plaquetas e medula óssea. Doe!
Avatar de usuário

Maligno
Membro Master

Membro Master
 
Mensagens: 6390
Data de registro: 06 Jul 2004 01:40
Cidade/Estado: Londrina/PR
Curtiu: 1 vez
Mens.Curtidas: 14 vezes

Re: Setar RadioGroup para Nil

Mensagempor mbrigatti » 08 Out 2008 11:23

Toledo e demais que acompanharam o post,

O Filatov acatou a sugestão e já disponibilizou-a no build 1.5.57c (beta) da Minigui Extended

Encerrando Tópico

Saudações,
Marcelo Brigatti
Avatar de usuário

mbrigatti
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 65
Data de registro: 16 Set 2005 08:13
Cidade/Estado: Piracicaba - SP
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Setar RadioGroup para Nil

Mensagempor WALDYR SKUYA » 08 Jan 2022 19:51

Boa noite amigos!

Peço a ajuda dos amigos no sentido de saber se a mudança indicada pelo Toledo poderia ser feita também na função _SETVALUE() da HMG Oficial, do Roberto Lopes?

Grato,
Waldyr Skuya
São Paulo - SP
WALDYR SKUYA
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 17
Data de registro: 28 Jul 2010 23:33
Cidade/Estado: SÃO PAULO/SP
Curtiu: 0 vez
Mens.Curtidas: 0 vez




Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Google [Bot] e 8 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