Page 1 of 1
Error en Picture de TGet
Posted: Sat Jun 22, 2019 1:13 pm
by Ariel
Hola,
teniendo un simple get :
Code: Select all
@ 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.
Re: Error en Picture de TGet
Posted: Sat Jun 22, 2019 3:21 pm
by 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.
Re: Error en Picture de TGet
Posted: Sat Jun 22, 2019 8:52 pm
by Ariel
jose,
gracias x contestar,
el array es un hash local y la situacion es, si escribo la primera vez :
PEPE
sigo en _ y si vuelvo y quiero escribir RODRIGUEZ al teclear la R, deberia blanquear el campo, y eso no lo hace.
Saludos.
Re: Error en Picture de TGet
Posted: Sun Jun 23, 2019 12:09 am
by nageswaragunupudi
Yes.
This problem exists.
Please try this and let us know if this works:
Code: Select all
@ 50,20 GET oGet VAR cVar PICTURE "@K" SIZE 150,24 PIXEL OF oDlg
oGet:bGotFocus := { || oGet:oGet:Pos := 1, oGet:SetPos( 1 ) }
Re: Error en Picture de TGet
Posted: Mon Jun 24, 2019 7:32 pm
by Ariel
Mr. Rao,
No funciona, deja el texto de fondo como siempre.
Saludos.
Re: Error en Picture de TGet
Posted: Mon Jun 24, 2019 7:45 pm
by karinha
Re: Error en Picture de TGet
Posted: Tue Jun 25, 2019 12:37 am
by nageswaragunupudi
Test program
Code: Select all
#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
Re: Error en Picture de TGet
Posted: Tue Jun 25, 2019 10:55 am
by 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
// ::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.
Re: Error en Picture de TGet
Posted: Tue Jun 25, 2019 11:07 am
by 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
Re: Error en Picture de TGet
Posted: Tue Jun 25, 2019 12:02 pm
by Ariel
Mr. Rao
1) si funciona correctamente
2) fwh 19.05
Saludos.
Re: Error en Picture de TGet
Posted: Tue Jun 25, 2019 1:18 pm
by karinha
Esto?
Code: Select all
#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
//----------------------------------------------------------------------------//