Page 1 of 1
GEt multiline y cPicture no anda.
Posted: Fri Feb 21, 2014 2:32 am
by goosfancito
Hola.
Tengo:
Code: Select all
REDEFINE GET ::oGets[ 7] VAR ::vGets[ 7] ID 145 OF oDlg MULTILINE
::oGets[ 7]:cPicture:= "@!"
Y Cuando lo ejecuto me sale el error:
Error description: Warning BASE/1005 Message not found: TMULTIGET:_CPICTURE
que hago mal?
gracias.
Re: GEt multiline y cPicture no anda.
Posted: Fri Feb 21, 2014 3:41 am
by FranciscoA
Hola, revisé la classe TMultiGet y no encontré esa propiedad. En TGet si se encuentra.
Saludos.
Re: GEt multiline y cPicture no anda.
Posted: Fri Feb 21, 2014 10:55 am
by goosfancito
y entonces?
porque me tira ese error?
gracias.
Re: GEt multiline y cPicture no anda.
Posted: Fri Feb 21, 2014 12:58 pm
by karinha
¿Qué hace usted? Usted desea controlar el tamaño del texto?
No Ejiste el comando PICTURE en GET MULTILINE.
Salu2.
Re: GEt multiline y cPicture no anda.
Posted: Fri Feb 21, 2014 1:15 pm
by goosfancito
karinha wrote:¿Qué hace usted? Usted desea controlar el tamaño del texto?
No Ejiste el comando PICTURE en GET MULTILINE.
Salu2.
Eu quero que o "se" implementar "várias linhas" e de usar "cPicture". Obrigado.
Re: GEt multiline y cPicture no anda.
Posted: Fri Feb 21, 2014 1:35 pm
by karinha
No comprendo(problemas del idioma).
Puedes hablar en español que és mejor. Gracias.
Porque quieres usar cPicture en um GET MULTILINE? Mismo en un GET CON MEMO(no tengo certezca), no funciona.
Salu2.
Re: GEt multiline y cPicture no anda.
Posted: Fri Feb 21, 2014 1:41 pm
by goosfancito
necesito que se ingrese en un TGET solo letras en mayúsculas, por lo que uso el cPicture "@!", pero al poner la clausula MULTILINE
me tira error al ejecutar el programa.
necesito que el GET sea:
multilinea
y que solo ingrese mayusculas.
gracias.
Re: GEt multiline y cPicture no anda.
Posted: Fri Feb 21, 2014 2:34 pm
by karinha
// Testing GETs \samples\testget.prg
Code: Select all
#include "FiveWin.ch"
#define CLR_MENTA RGB(221,255,238)
#define CLR_HMENTA RGB(000,128,000)
#define CLR_SOFTYELLOW RGB(255,251,225)
function Main()
LOCAL oDlg, oGet
LOCAL cCad := "Testing Upper " // pad("Testing Gets",40)
LOCAL nNum := 0
LOCAL dDat := Date()
Set century On
Set Date Ansi
Set Date format "mm/dd/yyyy"
SET _3DLOOK ON
SetGetColorFocus( CLR_MENTA )
tGet():lDisColors := .F. //FALSE
tGet():nClrTextDis := CLR_BLUE
tGet():nClrPaneDis := CLR_SOFTYELLOW
DEFINE DIALOG oDlg TITLE "TGet from " + FWDESCRIPTION
@ 1, 2 SAY "Text..:" OF oDlg
//@ 1, 6 GET oGet VAR cCad OF oDlg SIZE 60, 10 COLOR "W/G" PICTURE "@K"
@ 1, 6 Get oGet var cCad multiline of oDlg ;
COLORS CLR_HRED, CLR_WHITE ; //READONLY
ON CHANGE( CONVERT( oGet, cCad ) )
@ 1.8, 2 SAY "Number:" OF oDlg
//@ 2, 6 GET oGet VAR nNum OF oDlg SIZE 60, 10 PICTURE "9999999.99"
@ 2.6, 2 SAY "Date:" OF oDlg
//@ 3, 6 GET oGet VAR dDat PICTURE "@E" OF oDlg SIZE 60, 10 // "@D"
@ 3, 7 BUTTON "&Ok" OF oDlg SIZE 30, 12 ACTION oDlg:End()
@ 3, 16 BUTTON "&Cancel" SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL
// TGet():SetColorFocus( nRGB( 200, 120, 120 ) )
ACTIVATE DIALOG oDlg CENTERED
return nil
Function CONVERT( oGet, cTexto )
LOCAL cText
// remove branco
cTexto := StrTran( cTexto, " ", " " )
// acento agudo
cTexto := StrTran( cTexto, "Á", "A" )
cTexto := StrTran( cTexto, "É", "E" )
cTexto := StrTran( cTexto, "Í", "I" )
cTexto := StrTran( cTexto, "Ó", "O" )
cTexto := StrTran( cTexto, "Ú", "U" )
// acento circunflexo
cTexto := StrTran( cTexto, "Â", "A" )
cTexto := StrTran( cTexto, "Ê", "E" )
cTexto := StrTran( cTexto, "Î", "I" )
cTexto := StrTran( cTexto, "Ô", "O" )
cTexto := StrTran( cTexto, "Û", "U" )
// til
cTexto := StrTran( cTexto, "Ã", "A" )
cTexto := StrTran( cTexto, "Õ", "O" )
// ce-cedilha
cTexto := StrTran( cTexto, "Ç", "C" )
// trema
cTexto := StrTran( cTexto, "Ü", "U" )
// crase
cTexto := StrTran( cTexto, "À", "A" )
cTexto := StrTran( cTexto, "È", "E" )
cTexto := StrTran( cTexto, "Ì", "I" )
cTexto := StrTran( cTexto, "Ò", "O" )
cTexto := StrTran( cTexto, "Ù", "U" )
cText := UPPER( cTexto )
oGet:VarPut( cText )
oGet:Refresh()
Return( cText )
Re: GEt multiline y cPicture no anda.
Posted: Fri Feb 21, 2014 2:39 pm
by goosfancito
mmm ok.
gracias.
Re: GEt multiline y cPicture no anda.
Posted: Fri Feb 21, 2014 2:47 pm
by karinha
goosfancito wrote:mmm ok.
gracias.
kkkkkkkkkkkkk, Resuelto?? Parabiéns!!
Salu2.
Re: GEt multiline y cPicture no anda.
Posted: Fri Feb 21, 2014 2:59 pm
by goosfancito
pensé que al utilizar las dos cláusulas directamente en el GET
ya lo hacia, y no que debería de hacer una función a parte.
gracias.
Re: GEt multiline y cPicture no anda.
Posted: Fri Feb 21, 2014 3:52 pm
by Sebastián Almirón
Aunque ya te ha contestado Joao, prueba con:
@ 1, 6 Get oGet var cCad multiline of oDlg ;
COLORS CLR_HRED, CLR_WHITE //READONLY
oget:bchange := {|nkey| cCad := strtran( cCad, chr(nkey), upper(chr(nkey)) ), oCad:Refresh() }
Saludos
Re: GEt multiline y cPicture no anda.
Posted: Fri Feb 21, 2014 4:52 pm
by goosfancito
gracias
Re: GEt multiline y cPicture no anda.
Posted: Fri Feb 21, 2014 9:52 pm
by FranciscoA
Sebastian... Funciona!
Saludos.