FiveTech Software tech support forums

... local cpassword:= "clave" local rRuta := "/public_ftp/ruta" local CantFiles,nSize:= 0 local oDlg,oSay,oBtnCancel,oMeter,lEnd:=.F.,nAmount,lOk:= .F.,lValRet:= .F. local lReturn := .F. MsgRun( "Connecting to Internet...", "Please, wait",{ ...

Estou tentando trocar a cor do Texto do botão em ButtomBmp mais não funciona.

To fazendo assim:
oBtnCancel:nClrText := CLR_HRED

Ja tentei SetColor, SetTextColor(oBtnCancel:hDC,CLR_HRED) também não funciona.

Alguem tem outra solução ?

... 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 ) } ...

... y funciona perfectamente. Ahora con lo que me encuentro, es que con el siguiente codigo: FUNCTION facturar( nAlb, cClient, cAltera ) LOCAL oDlg, oBtnCancel, oBtnalb, oBtncli, oBtnrep, oNegre, nfac LOCAL fich := Dbf(), nind := IndexOrd(), cTitle := 'F A C T U R A C I O N' lacces = validapl( ProcName(), ...

... == nil, <uVal1>, <uVar1> ) ;; [ <uVarN> := If( <uVarN> == nil, <uValN>, <uVarN> ); ] function Main() LOCAL oBtnCancelJ LOCAL aBtnText:={"Incluir","Consultar","Modificar","Eliminar","Salir"} LOCAL aBtn :=ARRAY(LEN(aBtnText)) ...

... OF oDlg ; ACTION Vedi_P( fDbf, fNtx ) @ 50, 90 BUTTON oBtnInv PROMPT "Inventario" OF oDlg ; ACTION oDlg:End() @ 90, 90 BUTTON oBtnCancel PROMPT "Fine" OF oDlg ; ACTION oDlg:End() ACTIVATE DIALOG oDlg CENTERED return nil FUNCTION Crea_File( fDbf, fNtx ) LOCAL aDbf ...

... == nil, <uVal1>, <uVar1> ) ;; [ <uVarN> := If( <uVarN> == nil, <uValN>, <uVarN> ); ] function Main() LOCAL oBtnCancelJ LOCAL aBtnText:={"Incluir","Inspec Métodos","Modificar","Insp. Data","Salir"} LOCAL aBtn ...

... == nil, <uVal1>, <uVar1> ) ;; [ <uVarN> := If( <uVarN> == nil, <uValN>, <uVarN> ); ] function Main() LOCAL oBtnCancelJ LOCAL aBtnText:={"Incluir","Inspector","Modificar","Eliminar","Salir"} LOCAL aBtn :=ARRAY(LEN(aBtnText)) ...

... == nil, <uVal1>, <uVar1> ) ;; [ <uVarN> := If( <uVarN> == nil, <uValN>, <uVarN> ); ] function Main() LOCAL oBtnCancelJ LOCAL aBtnText:={"Incluir","Consultar","Modificar","Eliminar","Salir"} LOCAL aBtn :=ARRAY(LEN(aBtnText)) ...

... SIZE 110, 40 OF oDlg ACTION MsgInfo( oGetName.value + CRLF + oGetPass.value ) // executed in the client in javascript @ 265, 335 BUTTON oBtnCancel Prompt "Cancel" SIZE 110, 40 OF oDlg ACTION ( oDlg:End() ) // Executed in the server in advance ó no especifiques la claúsula PROMPT: ...

... oRs:CursorLocation := adUseClient oRs:ActiveConnection(oCon) oRs:Source := "Select * from catalogo" oRs:Open() Public oDlg, Public oBtnCancel,oLbx,oBtn DEFINE DIALOG oDlg RESOURCE 14 REDEFINE LISTBOX oLbx FIELDS oRs:Fields("codigo"):Value, ; oRs:Fields("nombre"):Value, ...

... return nil function FTPSendFiles( cFTPSite, aSource, aTarget ) local oDlg, oSay1, oSay2, oSay3, oBtnCancel local oMeter1, oMeter2 local nAmount1, nAmount2 local lEnd := .f. local nBufSize := 4096 //2000 local oInternet, oFTP MsgRun( "Connecting ...

... function CopyFiles( aSource, aTarget, nBufSize ) local oDlg, oSay1, oSay2, oSay3, oBtnCancel local oMeter1, oMeter2 local nAmount1, nAmount2 local lEnd := .f. DEFAULT nBufSize := 4000 DEFINE DIALOG oDlg RESOURCE "CopyFiles" ...

... function CopyFiles( aSource, aTarget, nBufSize ) local oDlg, oSay1, oSay2, oSay3, oBtnCancel local oMeter1, oMeter2 local nAmount1, nAmount2 local lEnd := .f. DEFAULT nBufSize := 4000 DEFINE DIALOG oDlg RESOURCE "CopyFiles" ...

... Function ReIndexar(aAlias, lTodo) local oDlg, oAnimate, oMeter1, oMeter2, oSay1, oSay2, oSay3, oBtnCancel local lEnd:=.f. local n:=0, nMonto1:=0, nMonto2:=0 local oBrush,cBrush:="Fondo1.BMP" local nClrTxt:= RGB(0,0,0) DEFAULT lTodo:=.f. DEFINE ...