FiveTech Software tech support forums

not run Antonio I with the style of Button class on Win10 but with bmp there is a bug @ 233, 118 BTNBMP  oBtnOK  RESOURCE "DLG_OK"  ;      PROMPT "&Conferma" FLAT SIZE 45,15 LEFT PIXEL OF oDlg ;      COLOR CLR_BLACK,CLR_WHITE   GRADIENT bGrad2015  NOROUND;  ...

... asignarle al ENTER que funcionará como el TAB, Saludos #include "FiveTouch.ch" function Main() local oDlg, oGet1, cTest local oBtnOk, oBtnCancel DEFINE DIALOG oDlg @ 20, 20 GET oGet1 VAR cTest OF oDlg SIZE 100, 20 oGet1:connect( QEvent_KeyPress , { |e| KeyBoardEvents( e, cTest ...

... DIALOG oDlgBrw CENTERED //FT_EDITUSER() CLOSE ALL RETURN NIL FUNCTION BCOL(nCol) RETURN 81*(nCol-1)+10 FUNCTION FT_EDITUSER(cId_User) LOCAL oDlg,I,oBtnOk,oBtnCancel LOCAL oSay:=ARRAY(3) PRIVATE oId,oName,oDate,oActive PRIVATE cId:=SPACE(03),cName:=SPACE(100),dDate:="00/00/0000",lActive:=.T. ...

... nPre, nSco,1)}. Si yo digito primer campo(Prezzo) 100 segundo campo(Sconto) 20 obtengo automaticamente 80 (Scontato) sin pulsar el pulsador -> oBtnOk "Calcolo" Si en cambio pulso el pulsador -> oBtnOk "Calcolo" que llama la funcion -> Calcolo( oDlg, oPre, nPre, nSco, ...

... ? en la funciòn calcolo() 2)¿Es posible llamar la funciòn calcolo() automàticamente sin uitilizar el pulsador -> BUTTON oBtnOK? Por ejemplo con un evento en la get de la variable -> nsco ¡Gracias de antemano! Saludos #include "FiveTouch.ch"function Main()LOCAL ...

... // ----------------------- VEDI_P FUNCTION Vedi_P( fDbf, fNtx ) LOCAL oCod, oDlg, cCod := SPACE(1) LOCAL oBtnEnd, oBtnOk USE( fDbf ) INDEX ( fNtx ) ALIAS Dati NEW DEFINE DIALOG oDlg TITLE "Vedi Prezzi" ; SIZE 300, 200 @ 160, 25 BUTTON oBtnEnd PROMPT "Abbandona" ...

... esta es mi función en fivetouch // ----------------------- VEDI_P FUNCTION Vedi_P( fDbf, fNtx ) LOCAL oBar, oDlg, cBar := SPACE(1) LOCAL oBtnEnd, oBtnOk USE( fDbf ) INDEX ( fNtx ) ALIAS Dati NEW DEFINE DIALOG oDlg TITLE "Vedi Prezzi" ; SIZE 300, 200 @ 160, 25 BUTTON oBtnEnd PROMPT "Abbandona" ...

... ON Dati->CODICE TO ( fNtx ) CLOSE DATABASES ENDIF RETURN NIL FUNCTION Vedi_P( fDbf, fNtx ) LOCAL oCod, oDlg, cCod := SPACE(20) LOCAL oBtnEnd, oBtnOk DEFINE DIALOG oDlg TITLE "Vedi Prezzi" ; SIZE 300, 200 @ 160, 25 BUTTON oBtnEnd PROMPT "Abbandona" OF oDlg ; ACTION oDlg:End() ...

... //FT_EDITUSER() CLOSE ALL RETURN NIL FUNCTION BCOL(nCol) RETURN 81*(nCol-1)+10 FUNCTION FT_EDITUSER(cId_User) LOCAL oDlg,I,oBtnOk,oBtnCancel LOCAL oSay:=ARRAY(3) PRIVATE oId,oName,oDate,oActive PRIVATE cId:=SPACE(03),cName:=SPACE(100),dDate:=DTOC(DATE()),lActive:=.T. PRIVATE ...

... DIALOG oDlgBrw CENTERED //FT_EDITUSER() CLOSE ALL RETURN NIL FUNCTION BCOL(nCol) RETURN 81*(nCol-1)+10 FUNCTION FT_EDITUSER(cId_User) LOCAL oDlg,I,oBtnOk,oBtnCancel LOCAL oSay:=ARRAY(3) PRIVATE oId,oName,oDate,oActive PRIVATE cId:=SPACE(03),cName:=SPACE(100),dDate:="00/00/0000",lActive:=.T. ...

... DIALOG oDlgBrw CENTERED //FT_EDITUSER() CLOSE ALL RETURN NIL FUNCTION BCOL(nCol) RETURN 81*(nCol-1)+10 FUNCTION FT_EDITUSER(cId_User) LOCAL oDlg,I,oBtnOk,oBtnCancel LOCAL oSay:=ARRAY(3) PRIVATE oId,oName,oDate,oActive PRIVATE cId:=SPACE(03),cName:=SPACE(100),dDate:="00/00/0000",lActive:=.T. ...

...      STYLE nOr( DS_MODALFRAME, WS_POPUP, WS_CAPTION,  4 )  ICON oIcon @    ROW_BTN, 90 BTNBMP oBtnOK PROMPT "&Conferma" RESOURCE "DLG_OK" SIZE 55, 12 ROUND 2007;       ACTION ( oDlg:end( IDOK ...

But on Winxp professional SP3 I have also the error @ 235, 118 BTNBMP oBtnOK PROMPT "&Conferma" RESOURCE "DLG_OK" SIZE 55, 12 ; LEFT 2007 ROUND ACTION ( oDlg:end( IDOK ) ) oBtnOK:bClrGrad = bClrGrad oBtnOK:oCursor := oCursorBtn oBtnOK:cTooltip ...

Pablo, Te falta incluir las variables que contendran los objetos: @ 265, 189 BUTTON oBtnOk Prompt "Ok" SIZE 110, 40 OF oDlg ACTION MsgInfo( oGetName.value + CRLF + oGetPass.value ) // executed in the client in javascript @ 265, 335 BUTTON oBtnCancel Prompt ...

... SPINNER OF SuboDlg SIZE 40,4 @ 4, 2 RADIO oRad VAR Tipo OF SuboDlg ; PROMPT cCalculate, cIncremental ,cDecremental SIZE 100,12 @ 5,8 BUTTON obtnok PROMPT "OK" OF SuboDlg ; FONT oFont SIZE 40, 10 ACTION ( SuboDlg:end( IDOK ) )//,lSave:=.t. ) oGetNum:nHeight:=21.4 if the user press ...