FiveTech Software tech support forums

... the modified hbclass.ch if classes are going to be used ok Neu Osvaldo Ramirez 23:18 Uhr Just as a note: a static thread is: "STATIC <xVar>" and it will depend on whether that variable is public or private; it is said to be published when its declaration is outside of any procedure ...

... Mr Rao, I am using FWH version 20.07. if I use FW_Setunicode (.T.) then the space key does not run normally on variable reading @ x, y get oGet xvar of oDlg picture '@!' ..., but it works fine with the xbrowse EDIT_GET command this is only a small example, actually I use a fairly complex program: ...

... a request: when I digit some characters into one cell and than I click with mouse on another place of my program (lost focous) in makerep function xVar has no value. If a exit from cell using the keyboard has the value. How can I modify mo code in order to keep the entered value? Bye marco

... ),; ::lBlank := .t. ) METHOD Bof() INLINE ( ::nArea )->( BoF() ) METHOD Close() INLINE ( ::nArea )->( DbCloseArea() ) METHOD SetScope( n, xVar) INLINE ( ::nArea )->( OrdScope( n, xVar ) ) METHOD OrdKeyNo( n, xVar) INLINE ( ::nArea )->( OrdKeyNo() ) METHOD ClrScope( n ) INLINE ( ::nArea ...

... GetIni( cFile, cSection, aEntry[nI]) }) next return aString FUNCTION GetIni( cIni, cSection, cEntry, xDefault ) LOCAL oIni LOCAL xVar := xDefault // DEFAULT cIni := oApp:cIniFile INI oIni FILE cIni GET xVar ; SECTION cSection ; ENTRY cEntry ; DEFAULT xDefault ; OF oIni ENDINI ...

... " ", pero al solo precionar una tecla aparece "12345", para limpiarlo estoy utilizando. Quiero que parta en blanco nuevamente. xVar:=space(5) oObj:SetText(xVar) keyboard chr(0) inkey() clear typeahead oObj:SetFocus() oObj:SetPos( 0 ) oObj:SetSel( 0, 0 ) Se agradece cualquier ...

... oFont01 CAPTION NRP FOR I=1 TO LEN(COL) T:=TIT[I] D:=DAT[I] COLUMN TITLE &T; DATA &D NEXT ENDREPORT Pero yo quiero hacerlo de esta manera: xvar := '"' + 'Titulo1' + '", "' + 'Titulo2' + '"' REPORT oRpt PREVIEW; TITLE &xvar HEADER "Header1", "Header2" ...

Lubin, Para codificar : fmimeenc([archivo in],[archivo out]) xvar:=memoread([archivo out]) despues :query("update .... set xcampo='"+xvar+"'") :update() Para descodificar xvar:= :xcampo memowrite([carchivo temp],xvar) fmimedec([carchivo temp],[carchivo ...

... Else cDescripcion += SubStr( cDescrip, i, 1 ) End Next i End Else cDescripcion := '' End oSay : Refresh() Return 0 Function Value(oRs,nPos) Local xVar := oRs:Fields(nPos):Value // ------------------------------------------ // // vemos de que tipos es y lo pasamos a string // ------------------------------------------ ...

... {|| IF(EMPTY(aResult:=SELECEMPRE(@uBuffer)),.F.,.T.)} con aResult no estas haciendo nada ya que esa variable toma el valor de FUNCTION SELECEMPRE( xVar ), has que esta funcion COMP0101( @xVar ) te retorne el Objeto window MDICHILD bValid := {|| IF(EMPTY(oWndEmp:=SELECEMPRE(@uBuffer)),.F.,.T.)} ...

... ENDIF ENDIF ENDDO NEXT nCol //la funcion SELECEMPRE() me llama a otra funcion es la que me arma //la ventana MDI de empresas: FUNCTION SELECEMPRE( xVar ) LOCAL aRetorno aRetorno := COMP0101( @xVar ) RETURN aRetorno // esta funcion la uso para darle el focus al windows por el ctitle FUNCTION WndSetFocus(cTitle,oWnd) ...

... := .T. ACTIVATE DIALOG oDlg CENTERED return nil I thinked to insert oLbx:bEdit := { || Editar() } Function Editar( oLbx, aMat ) LOCAL xVar LOCAL lSeguir IF oLbx:nColAct == 1 RETURN .F. ENDIF xVar := aMat[ oLbx:nAt, oLbx:nColAct ] lSeguir := oLbx:lEditCol( oLbx:nColAct, @xVar, "@!" ...

... DATA cPicMask, cPicFunc, nMaxLen, lEdit, lDecRev, lPicComplex DATA nDispLen, nDispPos, nOldPos, lCleanZero, cDelimit, nMaxEdit DATA lMinusPrinted, xVarGet DATA lDispLen INIT .F. DATA lUndo INIT .F. DATA lLeftJust INIT .F. // to "@B" mask DATA lDispLenChanged INIT .F. // to "@X", "@C", "(" and ")" ...

... gracia esta en el evento que edita la celda, que recibe como parametro POR REFERENCIA la variable que deseas editar: oBrw:lEditCol(oBrw:nColAct,@xVar,cPict,bValid,RGB(0,0,0),Rgb(255,255,255)) @xVar es el valor que tu quieres editar, puedes hacer por ejemplo xVar := 0 o bien xVar := SPACE(20) ...

... gracia esta en el evento que edita la celda, que recibe como parametro POR REFERENCIA la variable que deseas editar: oBrw:lEditCol(oBrw:nColAct,@xVar,cPict,bValid,RGB(0,0,0),Rgb(255,255,255)) @xVar es el valor que tu quieres editar, puedes hacer por ejemplo xVar := 0 o bien xVar := SPACE(20) ...