#include "FiveWin.ch"
function Main()
local oDlg, IDCOR
local dDay := Date()
local aGet := ARRAY(5)
local cName := [MY NAME]
local cEnder := [MY ADRESS]
local cCity := [MY CITY]
local cPais := [MY COUNTRY]
define dialog oDlg title "From Code" size 300,300
@ 2, 6 GET aGet[1] VAR dDay OF oDlg SIZE 60, 10
@ 3, 6 GET aGet[2] VAR cName OF oDlg SIZE 60, 10
@ 4, 6 GET aGet[3] VAR cEnder OF oDlg SIZE 60, 10
@ 5, 6 GET aGet[4] VAR cCity OF oDlg SIZE 60, 10
@ 6, 6 GET aGet[5] VAR cPais OF oDlg SIZE 60, 10
For IDCor = 1 To 5
aGet[IDCOR]:bGotFocus := { | o | o:SelectAll() }
NEXT
@ 6, 7 BUTTON "&Ok" OF oDlg SIZE 30, 12 ACTION oDlg:End()
@ 6, 16 BUTTON "&Cancel" SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL
ACTIVATE DIALOG oDlg CENTERED
return nil
Selecionar todos os gets
Moderador: Moderadores
2 Mensagens • Página 1 de 1
Selecionar todos os gets
por Kapiaba » 13 Ago 2015 15:26
-
Kapiaba Colaborador 
- Mensagens: 1766
- Data de registro: 07 Dez 2012 15:14
- Cidade/Estado: São Paulo
- Curtiu: 311 vezes
- Mens.Curtidas: 119 vezes
Selecionar todos os gets
por Kapiaba » 13 Ago 2015 15:29
Ou,
#include "FiveWin.ch"
function Main()
local oDlg, IDCOR
local dDay := Date()
local aGet := ARRAY(5)
local cName := [MY NAME]
local cEnder := [MY ADRESS]
local cCity := [MY CITY]
local cPais := [MY COUNTRY]
define dialog oDlg title "From Code" size 300,300
@ 2, 6 GET aGet[1] VAR dDay OF oDlg SIZE 60, 10
@ 3, 6 GET aGet[2] VAR cName OF oDlg SIZE 60, 10
@ 4, 6 GET aGet[3] VAR cEnder OF oDlg SIZE 60, 10
@ 5, 6 GET aGet[4] VAR cCity OF oDlg SIZE 60, 10
@ 6, 6 GET aGet[5] VAR cPais OF oDlg SIZE 60, 10
GetSelectAll( oDlg )
@ 6, 7 BUTTON "&Ok" OF oDlg SIZE 30, 12 ACTION oDlg:End()
@ 6, 16 BUTTON "&Cancel" SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL
ACTIVATE DIALOG oDlg CENTERED
return nil
Function GetSelectAll( oDlg )
AEval( oDlg:aControls, { | o | IF( o:ClassName() = "TGET", ( o:bGotFocus := { | o | o:SelectAll() } ), ) } )
Return nil
-
Kapiaba Colaborador - Mensagens: 1766
- Data de registro: 07 Dez 2012 15:14
- Cidade/Estado: São Paulo
- Curtiu: 311 vezes
- Mens.Curtidas: 119 vezes
Ver tópicos ativos •
2 Mensagens • Página 1 de 1
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!
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!
