TOptioList

[emeasoft]

Holla!
Quando clico em uma opção do TOptionList
como mostrar a opção escolhida no label?
Ex:
oLabel1:ctext:= ????-> 041-MANUTENí‡íƒO DE ARQUIVOS
WITH OBJECT ::O_diversos := TOptionList():New( ::oExplorerBar1 )
:SetBounds( 11, 43, 238, 50 )
:lVisible := .F.
:AddItem( "041-MANUTENí‡íƒO DE ARQUIVOS",, otRADIO )
:AddItem( "048-REINDEXAí‡íƒO",, otRADIO )
:Create()
END

[jrcpoli-quitar]

Saludos:
Mário Angelini escribió:
> Holla!
> Quando clico em uma opção do TOptionList
> como mostrar a opção escolhida no label?
>
> Ex:
>
> oLabel1:ctext:= ????-> 041-MANUTENí‡íƒO DE ARQUIVOS
>
>
>
> WITH OBJECT ::O_diversos := TOptionList():New( ::oExplorerBar1 )
> :SetBounds( 11, 43, 238, 50 )
> :lVisible := .F.
> :AddItem( "041-MANUTENí‡íƒO DE ARQUIVOS",, otRADIO )
> :AddItem( "048-REINDEXAí‡íƒO",, otRADIO )
> :Create()
> END
>
No se si lo que quieres es esto:
::O_diversos:aItems[1]:cText
José Ramón Castro.

[jfgimenez]

Mário,
además de lo que te ha dicho José Ramón, si lo que necesitas es saber cuando
se pulsa en una opción, echa un vistazo en la ayuda a TOptionItem:OnClick
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

[emeasoft]

Ramón:
Estava fazendo assim:
::oLabel2:cText := ::oOptionList1:aItems[1]
Mas voltava em branco.
Assim funcionou corretamente:
::oLabel2:cText := ::oOptionList1:aItems[1]:cText
Grato.
"José Ramón Castro Polinio" <jrcpoli-quitarpara_envio]"@terra.es> escreveu
na mensagem news:[email=49fdd08e@svctag-j7w3v3j....]49fdd08e@svctag-j7w3v3j....[/email]
> Saludos:
>
> Mário Angelini escribió:
>> Holla!
>> Quando clico em uma opção do TOptionList
>> como mostrar a opção escolhida no label?
>>
>> Ex:
>>
>> oLabel1:ctext:= ????-> 041-MANUTENí‡íƒO DE ARQUIVOS
>>
>>
>>
>> WITH OBJECT ::O_diversos := TOptionList():New(
>> ::oExplorerBar1 )
>> :SetBounds( 11, 43, 238, 50 )
>> :lVisible := .F.
>> :AddItem( "041-MANUTENí‡íƒO DE ARQUIVOS",, otRADIO )
>> :AddItem( "048-REINDEXAí‡íƒO",, otRADIO )
>> :Create()
>> END
>>
>
> No se si lo que quieres es esto:
>
> ::O_diversos:aItems[1]:cText
>
> José Ramón Castro.

[emeasoft]

Jose, saudaçíµes:
Na minha opinião as explicaçíµes do manual de ajuda deixam a desejar para
os iniciantes (em Xailer) como eu que muitas vezes não consigo
interpretá-las corretamente.
Esforço-me a procurar ajuda nele, mas confesso que ainda encontro muitas
dificuldades em entendíª-las.
O que parece óbvio para os experientes, para nós iniciantes parece
coisa impossí­vel, principalmente devido que nosso conceito de programação
ainda está voltado para a linguagem da qual estamos imigrando. Tenho quase
20 anos de experiencia apenas em Clipper e mudar conceitos não é fácil.
Para facilitar o entendimento acho que deveria sempre ter um exemplo, como a
maioria dos manuais.
Fica aqui minha sugestão a equipe Xailer.
Gracias...
Mário
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escreveu na mensagem
news:49fdf56e$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Mário,
>
> además de lo que te ha dicho José Ramón, si lo que necesitas es saber
> cuando se pulsa en una opción, echa un vistazo en la ayuda a
> TOptionItem:OnClick
>
>
> --
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
> http://www.xailer.info
>

[emeasoft]

Ramón:
> No se si lo que quieres es esto:
> ::O_diversos:aItems[1]:cText
O que estou querendo é fazer o seguinte:
Tenho uma rotina com quase 200 opçíµes de escolha no OptionList então
seria necessário criar 200 métodos OptionList1Item" X "Click...
conforme exemplo abaixo;
Queria descobrir uma forma de fazer isto resumindo a apenas 1 método.
Mas para isto precisaria saber o número do vetor de aItems que foi clicado.
Tem uma solução?
Mário
METHOD OptionList1Item1Click( oSender ) CLASS TForm2
LOCAL x01:=::ooptionlist1:aItems[1]:cText
::oLabel2:ctext := x01
Func_teste(x01)
RETURN Nil
METHOD OptionList1Item2Click( oSender ) CLASS TForm2
LOCAL x01:=::ooptionlist1:aItems[2]:cText
::oLabel2:ctext := x01
Func_teste(x01)
RETURN Nil
METHOD OptionList1Item3Click( oSender ) CLASS TForm2
LOCAL x01:=::ooptionlist1:aItems[3]:cText
::oLabel2:ctext := x01
Func_teste(x01)
RETURN Nil
...........
......

[emeasoft]

Descobri:
Crio todos os métodos com o mesmo nome e pego
o valor em oSender:cText:
METHOD OptionClick( oSender ) CLASS TForm2
LOCAL x01:=oSender:cText
::oLabel2:ctext := x01
Func_teste(x01)
RETURN Nil
ou:
METHOD OptionClick( oSender ) CLASS TForm2
Func_teste(::oLabel2:ctext :=oSender:cText)
RETURN Nil

[jrcpoli-quitar]

Saludos Mario:
Mário Angelini escribió:
> Ramón:
>> No se si lo que quieres es esto:
>> ::O_diversos:aItems[1]:cText
>
> O que estou querendo é fazer o seguinte:
> Tenho uma rotina com quase 200 opçíµes de escolha no OptionList então
> seria necessário criar 200 métodos OptionList1Item" X "Click...
> conforme exemplo abaixo;
> Queria descobrir uma forma de fazer isto resumindo a apenas 1 método.
> Mas para isto precisaria saber o número do vetor de aItems que foi clicado.
> Tem uma solução?
> Mário
>
Veamos, solo tienes que poner un nombre al Evento OnClick Por ejemplo
OpcionListVariasClick en todas las demás opciones seleccionas en el
evento OnClick el mismo METHOD.
Luego pones
METHOD OpcionListVariasClick( oSender ) CLASS TForm2
LOCAL nPosicion := ::oOptionList4:GetItemPos(oSender)
LOCAL x01
CASE nPosicion == 1
x01:= oSender:cText
...........
...........
ENDCASE
RETURN Nil
>
> METHOD OptionList1Item1Click( oSender ) CLASS TForm2
> LOCAL x01:=::ooptionlist1:aItems[1]:cText
> ::oLabel2:ctext := x01
> Func_teste(x01)
> RETURN Nil
>
> METHOD OptionList1Item2Click( oSender ) CLASS TForm2
> LOCAL x01:=::ooptionlist1:aItems[2]:cText
> ::oLabel2:ctext := x01
> Func_teste(x01)
> RETURN Nil
>
> METHOD OptionList1Item3Click( oSender ) CLASS TForm2
> LOCAL x01:=::ooptionlist1:aItems[3]:cText
> ::oLabel2:ctext := x01
> Func_teste(x01)
> RETURN Nil
>
> ..........
> .....
José Ramón Castro.

[ignacio]

Mario,
Efectivamente la curva de aprendizaje para los que nunca han programado en
un entorno visual (programación por eventos) no es fácil y exige un proceso
de aprendizaje, y más aún para aquellos que nunca utilizarón la OOP en
Clipper. No obstante en el directorio samples encontrará múltitud de
ejemplos de utilizaciónde Xailer Si requiere algún ejemplo en concreto para
realizar cualquier tarea que no esté abordada, no dude en pedirla,
intentaermos realizar un ejemplo lo antes posible.
Un saludo,
--
Ignacio Ortiz de Zúñiga
Xailer support / Soporte de Xailer
http://www.xailer.com
http://www.xailer.info
"Mário Angelini" <mario@emeasoft.com.br> escribió en el mensaje
news:[email=49febf9a@svctag-j7w3v3j....]49febf9a@svctag-j7w3v3j....[/email]
> Jose, saudações:
> Na minha opinião as explicações do manual de ajuda deixam a desejar para
> os iniciantes (em Xailer) como eu que muitas vezes não consigo
> interpretá-las corretamente.
> Esforço-me a procurar ajuda nele, mas confesso que ainda encontro muitas
> dificuldades em entendê-las.
> O que parece óbvio para os experientes, para nós iniciantes parece
> coisa impossível, principalmente devido que nosso conceito de programação
> ainda está voltado para a linguagem da qual estamos imigrando. Tenho quase
> 20 anos de experiencia apenas em Clipper e mudar conceitos não é fácil.
> Para facilitar o entendimento acho que deveria sempre ter um exemplo, como
> a maioria dos manuais.
> Fica aqui minha sugestão a equipe Xailer.
> Gracias...
> Mário
>
>
> "Jose F. Gimenez" <jfgimenez@wanadoo.es> escreveu na mensagem
> news:49fdf56e$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Mário,
>>
>> además de lo que te ha dicho José Ramón, si lo que necesitas es saber
>> cuando se pulsa en una opción, echa un vistazo en la ayuda a
>> TOptionItem:OnClick
>>
>>
>> --
>> Un saludo,
>>
>> José F. Giménez
>> http://www.xailer.com
>> http://www.xailer.info
>>
>
>