FiveTech Software tech support forums

On Firt Project seem to run in this mode :

oSplit:SetPosition(aClient[4]/2)
oSplit:nLong := oDlgnew:nHeight - 26
oSplit:Refresh()

... SIZE 80,20 PICTURE "999.999999" RIGHT; WHEN .f. PIXEL OF oWnd @ 94, 5 SAY "Lon dec." SIZE 50,20 RIGHT PIXEL @ 94, 60 GET oGps:nLong SIZE 80,20 PICTURE "999.999999" RIGHT; WHEN .f. PIXEL OF oWnd @ 118, 5 SAY "Fix" SIZE 50,20 RIGHT PIXEL @ 116, 60 GET oGps:cFix ...

... SIZE 80,20 PICTURE "999.999999" RIGHT; WHEN .f. PIXEL OF oWnd @ 94, 5 SAY "Lon dec." SIZE 50,20 RIGHT PIXEL @ 94, 60 GET oGps:nLong SIZE 80,20 PICTURE "999.999999" RIGHT; WHEN .f. PIXEL OF oWnd @ 118, 5 SAY "Fix" SIZE 50,20 RIGHT PIXEL @ 116, 60 GET oGps:cFix ...

... en CataCuen variable {||PresentaApl(apl_con)} color {COLOR_AZUL,COLOR_SAZUL} columna ventana padc("NOMBRE DE LA CUENTA",nLong) en CataCuen  variable {||padr(space(val(niv_apl)*4-4)+nom_apl,nLong)}  // nLong es el len(descripcion de apl)

... en CataCuen; // 1 variable {||PresentaApl(apl_con)} color {COLOR_AZUL,COLOR_SAZUL} columna ventana padc("NOMBRE DE LA CUENTA",nLong) en CataCuen; // 2 variable {||padr(space(val(niv_apl)*4-4)+nom_apl,nLong)}; // nLong es el len(descripcion de apl) formato "@!"

... Justifica(aTexto[i],55,i%3) en oReci // ABAJO LA FUNCION endif next termina pagina termina impresion // --- Parte memo function ParteMemo(mTex,nLong) local aTex:={},cTex,i,nPrinc,nUltEsp cTex:=memotran(mTex,chr(20),chr(29)) nPrinc:=nUltEsp:=1 for i:=1 to len(cTex) while substr(cTex,i,1)==chr(29) ...

... (cDbfName) Use Ferase( cDbfName ) Rename ( cTempFile ) to (cDbfName) If file( cFileNoExt( cTempFile ) +".dbt" ) nLen := Len(cDbfName) nLong := (nLen - 4) cNomb := SubStr(cDbfName, 1 ,nLong) cBase := (cNomb + ".dbt") FErase(cBase) Rename ("AAA.dbt") To (cBase) End ...

... ;   }#pragma ENDDUMP SetTextJustification() controls the gap between words. We must provide how many pixels we want to distribute (nAncho-nLong) and how many spaces are in the line (aText[nCont,2]-1). The function look after the pixels are allocated between all spaces (some spaces will ...

... hOldPen )RETURN NILFUNCTION PainText(hDc,oFont,aText,nAncho)   LOCAL hOldFnt := SelectObject( hDc, oFont:hFont )   LOCAL nCont,nLong,nExtra   LOCAL nLinea := 30   *   FOR nCont = 1 TO LEN(aText)       nLong  := GetTextWidth(hDc,aText[nCont,1],oFont:hFont)  ...

... oGet1:nHeight-5, 3, 128 ) } // -------- DRAW Get-BOX --------------------------------' ) STATIC FUNCTION DRAWBOX ( nTOP, nLEFT, hDC, nLONG, nHIGHT, nPEN, nCOLOR ) LOCAL hPen := CREATEPEN( PS_SOLID, nPEN, nColor ) LOCAL hOldPen := SELECTOBJECT( hDC, hPen ) MOVETO( hDC, nTOP, nLEFT ...

... := .t., lAcro := .t., lSintax := .t., nSalto := 15, lCinta := .f. //.t. static oRefr, oTono static ColorDlg static ColorTxt static sClave := '', nLong static membr0, membr1, membr2 STatic xR STatic xC STatic xBV STatic xBH Static lMetaf, lColor := .t. //static nXpR := 0.869, nXpC := 1.30 //1.34 ...

Esta funcion la utilizo para pasar memos a array (me va muy rapido): FUNCTION ContLins(hDc,cTxt,hFnt,nAnch,nCuantos)   LOCAL nCnt,nLong,nLins := 0   LOCAL cTrozo,cRengl,cLins   LOCAL aLins := {}   DEFAULT nCuantos := 9999   *   FOR nCnt = 1 TO MLCOUNT(cTxt,254)    ...

Muy buenas, tengo un problema necesito pasar una variable por referencia a una función en C, el ejemplo sería mas o menos así, pasar nLong por referencia a WSAStartup y que nLong lo modifico en la funcion en C y en FIVEWIN tenga el valor -2. ¿Como puedo hacerlo? function main() local nWsaError:=0,nLong:=-1 ...

... AS LOGICAL DATA l3D DATA cPicture DATA aCaption DATA bGet DATA lShaded, lBox, lRaised DATA nDTop, nDLeft DATA nTTop, nTLeft DATA aRect, nLong DATA nTxtWidth, nTxtHeight DATA nAlign DATA oTimer DATA lScroll, lHorizontal, nSpeed, lWrap // nSpeed: 0 to 100 DATA lBlink, lView METHOD New( ...

Rubén: Este es el PROCEDURE que uso, la verdad no recuerdo quien la puso en el foro :oops: , hace tanto tiempo de eso !. PROCEDURE Busca(cKey,oLbx,nLong) LOCAL nSeekRec := RECNO() DEFAULT nLong := 0 IF nLong > 0 cKey := STR(VAL(cKey),nLong,0) ENDIF IF GETASYNCKEY(VK_BACK) cKey := SUBSTR(cKey,1,LEN(cKey)-1) ...