Error en Picture de TGet

[Ariel]

Hola,

teniendo un simple get :

Code: Select all  Expand view

             
@   7, 70 GET oSelf:aDatax["101"] VAR oSelf:aDatosCliente["cCliente"] ;
                        OF oPanel  ;
                        SIZE 260, 20 PIXEL ;
                        PICTURE "@!K" ;       //
                        UPDATE
|

NO funciona el picture " @K" no blanquea el campo de la variable, deja el texto escrito anteriormente.

Saludos.

[jvtecheto]

Hola :

He probado y a mi si me funciona el PICTURE, tecleo en minusculas y me sale en mayusculas.

En cuanto a lo que dices que deja el dato escrito anteriormente, aunque no entiendo muy bien creo que te
refieres que si entras otra vez en el dialogo que tienes el GET deja el dato anterior.

¿el array que utilizas es Static ?

Saludos.

Jose.

[Ariel]

jose,
gracias x contestar,

el array es un hash local y la situacion es, si escribo la primera vez :

PEPE

sigo en otros campos y si vuelvo y quiero escribir RODRIGUEZ al teclear la R, deberia blanquear el campo, y eso no lo hace.

Saludos.

[nageswaragunupudi]

Yes.
This problem exists.

Please try this and let us know if this works:

Code: Select all  Expand view

  @ 50,20 GET oGet VAR cVar PICTURE "@K" SIZE 150,24 PIXEL OF oDlg
   oGet:bGotFocus := { || oGet:oGet:Pos := 1, oGet:SetPos( 1 ) }
 

[Ariel]

Mr. Rao,
No funciona, deja el texto de fondo como siempre.
Saludos.

[karinha]

Intenta asi:

Code: Select all  Expand view

PICTURE "@K!"

Ó

PICTURE "@K !"
 

[nageswaragunupudi]

Test program

Code: Select all  Expand view

#include "fivewin.ch"

function Main()

   local oDlg, oGet
   local nVar := 100
   local cVar := "AAAAAAAAA"

   SetGetColorFocus()

   DEFINE DIALOG oDlg SIZE 400,150 PIXEL TRUEPIXEL TITLE FWVERSION

   @ 20,20 GET nVar PICTURE "9999" SIZE 100,24 PIXEL OF oDlg
   @ 60,20 GET oGet VAR cVar PICTURE "@!K"  SIZE 200,24 PIXEL OF oDlg
   oGet:bGotFocus := { || oGet:oGet:Pos := 1, oGet:SetPos( 1 ) }

   ACTIVATE DIALOG oDlg CENTERED

return nil
 

[Ariel]

Karina y Rao,
Gracias por responder pero NO me funciona ninguna de estas opciones, el GET está dentro de un Panel() no sé si tendra que ver, y el Panel dentro de una MDICHILD pego codigo :

Code: Select all  Expand view

// ::hLays["BCLIENTE"] -> hash()

              oPanel:= TPanel():New( 0, 0, 35, ScreenWidth(), oSelf:hLays["BCLIENTE"]:aVLayout[1] )
              oPanel:SetColor( nRGB(000,000,000),nRGB(255,255,255) )

              @   9, 20 SAY oSelf:aDatax["100"] PROMPT "Cliente:" OF oPanel  SIZE 45, 20 PIXEL UPDATE TRANSPARENT
              @   7, 70 GET oSelf:aDatax["101"] VAR oSelf:aDatosCliente["cCliente"] ;
                        OF oPanel  ;
                        SIZE 260, 20 PIXEL ;
                        PICTURE "@K !" ;       //
                        VALID IF(oSelf:CambiarCliente(,.t.),(::oBrw:SetFocus(),.t.),.f.)  ;
                        UPDATE
                  ::aDatax["101"]:bGotFocus := { || oself:aDatax["101"]:oGet:Pos := 1, oSelf:aDatax["101"]:SetPos( 1 ) }

 

Saludos.

[nageswaragunupudi]

Mr. Ariel

1) Can you first confirm if the sample we provided works as expected? Did you first try our sample without any changes?
2) Please let us know your FWH Version

[Ariel]

Mr. Rao

1) si funciona correctamente
2) fwh 19.05

Saludos.

[karinha]

Esto?

Code: Select all  Expand view

#include "FiveWin.ch"
#include "ribbon.ch"
#include "xbrowse.ch"

//----------------------------------------------------------------------------//

function Main()

   local oWnd, oExBar, oPanel1, oPanel2, oPanel3, oPanel4
   local bClick := { | o | MsgInfo( o:GetText() ) }
   local uVar, oBrw
   local nValor := 0.00
   local aArray := { {"one",time(),DATE()},;
                  {"two",time(),DATE()},;
                  {"three",time(),DATE()},;
                  {"four",time(),DATE()},;
                  {"five",time(),DATE()} }

   local cCode := "Digite algo           " // Space(50)
     
   DEFINE WINDOW oWnd TITLE "FWH Class TExplorerBar"
   
   oWnd:SetSize( 350, 600 )

   oExBar = TExplorerBar():New()

   oPanel1 = oExBar:AddPanel( "One", "..\bitmaps\32x32\people.bmp" )
   oPanel1:lSpecial = .T.
   oPanel1:AddLink( "First item", bClick, "..\bitmaps\16x16\additem.bmp" )
   oPanel1:AddLink( "Second item", bClick, "..\bitmaps\16x16\copy.bmp" )
     
   // oPanel2 = oExBar:AddPanel( "Two", "..\bitmaps\32x32\case.bmp", 200 )
   oPanel2 = oExBar:AddPanel( "Two", "..\bitmaps\32x32\case.bmp", 300 )

   @ 40,10 say "This a say" of oPanel2 transparent pixel
   @ 60,10 radio uVar prompt "This a radio" of oPanel2 pixel size 100, 25
   @ 90, 10 COMBOBOX uVar ITEMS { "one", "two", "three" } of oPanel2 size 100, 100 pixel
   @ 120, 10 RBBTN PROMPT "Ribbon Btn" of oPanel2 pixel size 100, 25 border transparent
   @ 160, 10 btnbmp PROMPT "BtnBmp" of oPanel2 pixel size 100, 25 border 2007
   @ 40, 120 xbrowse oBrw columns {1,2,3} array aArray of oPanel2  pixel size 180, 150


   @ 210,10 say "digite algo: " of oPanel2 transparent pixel

   @ 230, 10 GET cCode OF oPanel2 SIZE 200, 42 PIXEL PICTURE "@K!" ;
      COLORS CLR_BLACK, CLR_WHITE // NOBORDER


   oBrw:CreateFromCode()

   oWnd:oClient = oExBar

   ACTIVATE WINDOW oWnd

return nil

//----------------------------------------------------------------------------//