Clipper On Line • Ver Tópico - Pregunta sobre Readmodal

Pregunta sobre Readmodal

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

Moderador: Moderadores

 

Pregunta sobre Readmodal

Mensagempor Ruben Dario » 26 Jun 2020 22:58

Encontre este trozo de codigo. Que era de clipper 5.2
Function Prueba()

   Local GetList := {}, Lo_Get, Lc_Col := 'Gb/B,W+/B,B/Gb,W/B,B/W,W/B'

   Cls
   Lo_Get := CuaGet():New( 5, 10, Space(40), 'No&mbre :', Lc_Col, '@!' ):Display()
   Aadd( GetList, Lo_Get )
   Lo_Get := CuaGet():New( 7, 10, 0, 'Eda&d :', Lc_Col, '999999.99' ):Display()
   Aadd( GetList, Lo_Get )
   Lo_Get := Check():New( 9, 10, .T.,  '&Uno', Lc_Col ):Display()
   Aadd( GetList, Lo_Get )
   Lo_Get := Check():New( 9, 30, .F., 'Do&s', Lc_Col ):Display()
   Aadd( GetList, Lo_Get )
   Lo_Get := Radio():New( 11, 10, 3,  '&Estudios',{'Pre-Escolar','Primaria','Secundaria','Superior','Profecional'}, Lc_Col ):Display()
   Aadd( GetList, Lo_Get )
   Lo_Get := ListBox():New( 12, 40, 'Pre-Escolar','&Estudios',{'Pre-Escolar','Primaria   ','Secundaria ','Superior   ','Profecional'}, Lc_Col, 4 , 15 ):Display()
   Aadd( GetList, Lo_Get )
   Lo_Get := Combo():New( 18, 10, 'Pre-Escolar','&Estudios',{'Pre-Escolar','Primaria   ','Secundaria ','Superior   ','Profecional'}, Lc_Col, '@!', 7 ):Display()
   Aadd( GetList, Lo_Get )
   Lo_Get := Button():New( 20, 10, ' &Guardar ', Lc_Col ):Display()
   Aadd( GetList, Lo_Get )
   Lo_Get := Button():New( 20, 30, ' &Salir ', Lc_Col ):Display()
   Aadd( GetList, Lo_Get )
   ReadModal( GetList )
Return( Nil )



ya que no esta completo lo demas.
alquien tiene un ejemplo funcional similar a este que pueda reproducir, usado GetList y adicionado a la lista GET, ListBox y Botones etc, para usarlo con Harbour
Ruben Dario
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 115
Data de registro: 14 Jun 2015 23:19
Cidade/Estado: Colombia
Curtiu: 3 vezes
Mens.Curtidas: 0 vez



Retornar para Harbour

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 6 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