FiveTech Software tech support forums

... } } oBrw:bclrSel := {|| { iif(!empty(Neteo->FechaPago),CLR_GREEN,CLR_RED),CLR_WHITE } } // color del focus oBrw:bKeyDown:={|nKey,nFlag|iif(veo(@nApu,@oBrw,aBotones,nKey),eval(aBotones[nApu,4]),NIL)} oBrw:bLDblClick := { |nRow,nCol,nKeyFlags|EditNeteo(.f.),oBrw:SetFocus(),oBrw:Refresh(.t.)} ...

... .f. // quitar barra horizontal oBrw:lHScroll := .F. oBrw:aCols[ 4 ]:cDataType := "F" oBrw:aCols[ 2 ]:nWidth := 20 oBrw:bKeyDown:={|nKey,nFlag|iif(veo(@nApu,@oBrw,aBotones,nKey),eval(aBotones[nApu,4]),NIL)} oBrw:bLDblClick := { |nRow,nCol,nKeyFlags|/*EditCorrijo(.f.),*/oBrw:Refresh()} ...

... := 4 // anulo el doble color d los registros oBrw:lContrastClr := .f. // quitar barra horizontal oBrw:lHScroll := .f. oBrw:bKeyDown:={|nKey,nFlag|iif(veo(@nApu,@oBrw,aBotones,nKey),eval(aBotones[nApu,4]),NIL)} **** en esta linea se produce el error oBrw:oCol( "DesdeNew" ):nEditType ...

... := 4 // anulo el doble color d los registros oBrw:lContrastClr := .f. // quitar barra horizontal oBrw:lHScroll := .f. oBrw:bKeyDown:={|nKey,nFlag|iif(veo(@nApu,@oBrw,aBotones,nKey),eval(aBotones[nApu,4]),NIL)} oBrw:aCols[ 7 ]:nEditType := EDIT_GET oBrw:aCols[ 7 ]:bEditValid := {|| if(1=1,(_ArtFor->Total ...

... := 4 // anulo el doble color d los registros oBrw:lContrastClr := .f. // quitar barra horizontal oBrw:lHScroll := .F. oBrw:bKeyDown:={|nKey,nFlag|iif(veo(@nApu,@oBrw,aBotones,nKey),eval(aBotones[nApu,4]),NIL)} oBrw:bLDblClick := { |nRow,nCol,nKeyFlags|oBrw:Refresh()} oBrw:CreateFromCode() ...

Dear Jimmy, It seems that you have a typo here: DLL FUNCTION Everything_SetRequestFlags( nFlag AS DWORD ) AS VOID PASCAL FROM "Everything_SetSearchA" LIB hDll it should be: DLL FUNCTION Everything_SetRequestFlags( nFlag AS DWORD ) AS VOID PASCAL FROM "Everything_SetRequestFlags" ...

... FOOTERS LINES CELL NOBORDER ; BACKGROUND aGrad VERTICAL oBrw:nStretchCol := 2 oBrw:nRowHeight := 30 oBrw:nMarqueeStyle := 4 oBrw:bKeyDown:={|nKey,nFlag|iif(veo(@nApu,@oBrw,aBotones,nKey),eval(aBotones[nApu,4]),NIL)} oBrw:bLDblClick := { |nRow,nCol,nKeyFlags|EditoCons(.f.),oBrw:Refresh()} oBrw:CreateFromCode() ...

Silvio.Falconi wrote:oGet:bChange := { | nKey,nFlag,oB|(Chr(nKey)$"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ")}

Thank you Silvio,
This is what I will do, but directly in TGET class.

oGet:bChange := { | nKey,nFlag,oB|(Chr(nKey)$"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ")}

... GT_ClrFlag(<cFlagString>,[<nStart>],[<nEnd>])->cFlagString GT_IsFlag(<cFlagString>,[<nFlag>])->lSetting GT_NewFlag(<nFlagCount>)->cFlagString GT_SetFlag(<cFlagString>,[<nStart>],[<nEnd>])->cFlagString ...

... (*.tga)| *.tga|" + ; "RLE (*.rle)| *.rle|" + ; "All Files (*.*)| *.*" ; ,"Save as", CurDir(), .t. ) nFormat:= nFlag := 25 oImage:SaveImage( cFile, nFormat, nFlag )

James, do you Know msgcalc() ? I not think it have problems on oGet:bChange := {|nKey,nFlag,oB|(Chr(nKey)$"0123456789.")} oGet:bKeyDown := { | nKey | Load_Get(oGet),VerKey( nKey, oBSum, oBMin, oBMol,oBDiv, oBPer, oBCan, oBRes ) } and if we change Len(AllTrim(oGet:cText) ...

... function perhaps you understand I put thi command insteas of btnpaste button @ 0,0.5 GET oGet VAR cGet OF oDlg SIZE 95,10 oGet:bChange := {|nKey,nFlag,oB|(Chr(nKey)$"0123456789.")} // Logical oGet:bKeyDown := { | nKey | VerKey(nKey,oBSum,oBMin,oBMol,oBDiv,oBPer,oBCan,oBRes) } @ 1,5.6 ...

...            LOCAL cUpdFile  := "NameOfTheUpdatefile"             LOCAL cLocalDir := "NameOfTheLocalDir"             LOCAL nFlags := <SpecialConnectionFlags> // flag to set passive mode             oUpdate := TUpdate():New(cFtp, cUser, cPW, cFtpDir, cUpdFile, ...

hola,

oMiGet:bGotFocus:= { !nkey,nFlag| if(nKey==VK_tuTecla, mifuncion(),) }

Salu2.