GEt multiline y cPicture no anda.

[goosfancito]

Hola.

Tengo:

Code: Select all  Expand view

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.

[FranciscoA]

Hola, revisé la classe TMultiGet y no encontré esa propiedad. En TGet si se encuentra.
Saludos.

[goosfancito]

y entonces?
porque me tira ese error?

gracias.

[karinha]

¿Qué hace usted? Usted desea controlar el tamaño del texto?

No Ejiste el comando PICTURE en GET MULTILINE.

Salu2.

[goosfancito]

¿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.

[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.

[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.

[karinha]

// Testing GETs \samples\testget.prg

Code: Select all  Expand view

#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 )
 



[goosfancito]

mmm ok.
gracias.

[karinha]

mmm ok.
gracias.

kkkkkkkkkkkkk, Resuelto?? Parabiéns!!

Salu2.

[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.

[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

[goosfancito]

gracias

[FranciscoA]

Sebastian... Funciona!
Saludos.