topic-28124

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

GEt multiline y cPicture no anda.
Posted: Fri Feb 21, 2014 02:32 AM

Hola.

Tengo:

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.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: GEt multiline y cPicture no anda.
Posted: Fri Feb 21, 2014 03:41 AM

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

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Re: GEt multiline y cPicture no anda.
Posted: Fri Feb 21, 2014 10:55 AM

y entonces?
porque me tira ese error?

gracias.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: GEt multiline y cPicture no anda.
Posted: Fri Feb 21, 2014 12:58 PM

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

No Ejiste el comando PICTURE en GET MULTILINE.

Salu2.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Re: GEt multiline y cPicture no anda.
Posted: Fri Feb 21, 2014 01:15 PM

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.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: GEt multiline y cPicture no anda.
Posted: Fri Feb 21, 2014 01:35 PM

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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Re: GEt multiline y cPicture no anda.
Posted: Fri Feb 21, 2014 01:41 PM

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.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: GEt multiline y cPicture no anda.
Posted: Fri Feb 21, 2014 02:34 PM

// Testing GETs \samples\testget.prg

Code (fw): Select all Collapse

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

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Re: GEt multiline y cPicture no anda.
Posted: Fri Feb 21, 2014 02:39 PM

mmm ok.
gracias.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: GEt multiline y cPicture no anda.
Posted: Fri Feb 21, 2014 02:47 PM

goosfancito wrote:mmm ok.
gracias.

kkkkkkkkkkkkk, Resuelto?? Parabiéns!!

Salu2.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Re: GEt multiline y cPicture no anda.
Posted: Fri Feb 21, 2014 02:59 PM

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.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

Sebastián Almirón

Posts: 166

Joined: Mon Dec 12, 2005 09:56 AM

Re: GEt multiline y cPicture no anda.
Posted: Fri Feb 21, 2014 03:52 PM

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

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Re: GEt multiline y cPicture no anda.
Posted: Fri Feb 21, 2014 04:52 PM

gracias

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: GEt multiline y cPicture no anda.
Posted: Fri Feb 21, 2014 09:52 PM

Sebastian... Funciona!
Saludos.

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

FiveTech Support Forums

Continue the discussion