FiveTech Software tech support forums

Jeff, When a window or a dialogbox has several controls, one of them has the focus. So you should assign bKeyDown or bKeyChar to all of them: oBtn1:bKeyChar = { | nKey | MsgInfo( nKey ) } oBtn2:bKeyChar = { | nKey | MsgInfo( nKey ) } oBtn3:bKeyChar = { | nKey | MsgInfo( nKey ) } oBtn4:bKeyChar ...

Eugeniusz,

oBtn1:cToolTip := Str( oBtn1:nId )

Is it ok ?

... nOldX := -1, nOldY := -1 HIDEKEYBOARD() DEFINE WINDOW oWnd TITLE "Draw" @ 5,5 SAY oSay PROMPT " " COLOR "N+/W*" PIXEL SIZE 15,15 @ 5,30 BUTTON obtn1 prompt "Clear" SIZE 50,20 PIXEL ACTION oWnd:refresh(.t.) @ 5,100 BUTTON obtn2 prompt "Save" SIZE 80,20 PIXEL ACTION (OBTN1:HIDE(),OBTN2:HIDE(),OWND:SAVETOBMP(CurDir() ...

Andrés,

Cualquier control se puede desactivar haciendo <oControl>:Disable() y <oControl>:Enable() para activarlo.

Por ejemplo en tu código tendrías que hacer:

@ 6, 2 BUTTON oBtn1 PROMPT "Actualiza" ...

oBtn1:Disable()

y cuando quieras activarlo:

oBtn1:Enable()

Jose Luis, > Error description: Error BASE/1086 Argument error: ++ > REDEFINE SBUTTON oBtn1 ID 550 OF oDlg RESOURCE "Lamp1", "Lamp2",, "Lamp3", 'shape3' SHAPE PROMPT "Aceptar" TEXT ON_RIGHT ; ACTION iif( ValidaUser(cClave, @oClave,"C" ) ,; (Seguir:=.T., SEAT1->(rlock()),SEAT1->Activo:=.t.,seat1->(dbUnlock()),oDlg:End()) ...

... => MAIN(143) ********************** La parte del programa a la que hace referencia es REDEFINE SBUTTON oBtn1 ID 550 OF oDlg RESOURCE "Lamp1", "Lamp2",, "Lamp3", 'shape3' SHAPE PROMPT "Aceptar" TEXT ON_RIGHT ; ACTION iif( ValidaUser(cClave, @oClave,"C" ...

Ramesh,

> If we do not know in advance that the user will jump to oGet1 from oBtn1?

You set it from the Create() function where you know where it will go.

Hello Mr.Antonio

Thanks again for immediate attention.

oBtn1:oJump = oGet1

If we do not know in advance that the user will jump to oGet1 from oBtn1?

Thanks

Ramesh Babu P

Ramesh,

Try this:

oGet1:PostMsg( WM_SETFOCUS )
oBtn1:oJump = oGet1

... Just add the following lines to the above code after redefinition of GETS, implement the oGet1:SetFocus(WM_SETFOCUS) in place of oGet1:SetFocus(), oBtn1:SetFocus(WM_SETFOCUS) in place of oBtn1:SetFocus() and test it. You will find the anomaly. oGet1:bGotFocus := {||oGet1:SetColor(nRGB(0,0,0), ...

... "Create" and "Save" functions of my code below is working Ok enabling and disabling the gets. But the oGet1:SetFocus() in Create() function and oBtn1:SetFocus() in Save() function are not working at all. I tried with oDlg:Update() and oDlg:Refresh() also in both Create() and Save() functions ...

... => MAIN(141) ************************ la linea 789 en el prg a la que hace referencia es: REDEFINE SBUTTON oBtn1 ID 550 OF oDlg RESOURCE "Lamp1", "Lamp2",, "Lamp3", 'shape3' SHAPE PROMPT "Aceptar" TEXT ON_RIGHT ; ACTION iif( ValidaUser(cClave, @oClave,"C" ...

#include "FiveWin.ch" memvar oDlg, oBtn1, aProducto, oLbx, oBrw, oCol //-----------------------------------------------------------------// function Main() aProducto:={} AADD(aProducto, {"Procesador","Pza"," 45.00"}) AADD(aProducto, {"Procesador","Pza"," ...

Hola,,,,

DEFINE DIALOG......
...
..
...

ACTIVATE DIALOG oDlg ON INIT (oBtn1:Disable(), oBtn2:Disable(), oBtn3:Disable())


Salu2
Willi

... -1009 #define NO_SUCH_COLUMN -1010 #define NO_SUCH_ROW -1011 #define ZLIB_DECOMPRESSION_ERROR -1012 function Main() local oWnd local oBtn1 DEFINE WINDOW oWnd TITLE "MySql" @ 001, 001 BUTTON oBtn1 PROMPT "Conecta" OF oWnd ; ACTION Conecta() ; SIZE 100, 30 ; PIXEL @ 001, 140 BUTTON ...