FiveTech Software tech support forums

Prueba con oFile := TTxtFile():New( cFile )

nLines: = oFile:nTLines

Saludos

... SIZE 35 FONT 2 _ccCadena2 := SubStr(aDatDetalle[nRegis,3],I+1) EXIT ENDIF NEXT It is much easier to use MLCount() and MemoLine() nLines := MLCount( cText, nLen ) cLine1 := MemoLine( cText, nLen, 1 ) cLine2 := MemoLine( cText, nLen, 2 )

... HB_FRecno()->nLineNumber HB_FSelect([<nNewArea>])->nOldArea HB_FSize(<cFileName>)->nFileSize HB_FSkip([<nLines>])->Nil HB_FTempCreate([<cTempDir>],[<cPrefix>],[<nFileAttr>],[@<cFileName>])->nFileHandle HB_FuncPtr(<cFuncName>)->pFuncPointer ...

... := { nRow, nCol } Local aAux, nMaxLen Local nHeight Local nWidth Local nHScreen := GetSysMetrics( 1 ) Local nWScreen := GetSysMetrics( 0 ) Local nLines if ::lVisible ::Hide() endif if cPrompt != nil ::cPrompt := cPrompt aAux := ::MaxLen( cPrompt ) nMaxLen := aAux[1] nLines := aAux[2] nWidth := ...

... capturados, luego a veces marca error en el TWBROWSE:PAINT Alguien sabe porque ? METHOD Paint() CLASS TWBrowse local n := 1, nSkipped := 1, nLines local nSkip, nRealSkip local aInfo _WBRWSET_ if ::lIconView ::DrawIcons() return 0 endif CursorWait() aInfo:= ::DispBegin() if ::nRowPos == 1 ...

... //Aqui cambie en el Memoread Testprn5.prg por testxbr3.prg que es mas grande. local oPrn, cText := MemoRead( "testxbr3.prg" ), n := 0,nlines,nRow:= 0 local nRowStep, oFont PRINTER oPrn PREVIEW DEFINE FONT oFont NAME "Courier New" SIZE 0, -10 OF oPrn nRowStep = oPrn:nVertRes() ...

... ......... ......... FItems->NOTAS :=mNotas ENDIF ENDIF // Para Imprimirlo/Mostrarlo IF !EMPTY(cTexto) // en cTexto tengo el campo MEMO nLines := MlCount(cTexto,50) // armo segmentos de 50 caracteres FOR nFor := 1 TO nLines // en nLines queda el numero de segmentos de 50 caracteres cLine ...

... needed to display the desired data by executing this inside a loop that walks through each element of the array looking at the column in question. nLines := Max( nLines, Len( a ) ) Then take the xbrowse object and change nDataLines property like this: oPcLbx:nDataLines := nLines And that should ...

... needed to display the desired data by executing this inside a loop that walks through each element of the array looking at the column in question. nLines := Max( nLines, Len( a ) ) Then take the xbrowse object and change nDataLines property like this: oPcLbx:nDataLines := nLines And that should ...

... y modificando bien usando TRichEdit(), el problema es como imprimo. cText := oDatos:Fields("documen"):Value cText = MEMOREAD( cText ) nLines := MlCount(cText,76) .. . .. FOR nFor := 1 TO nLines cLine := MemoLine(cText, 76, nFor) oPrn:CmSay( nRow,2, cLine, aoFont[6],,,,0) nRow+=0.5; ...

dobfivewin, a ver si te entendi yo imprimo un campo memo asi con tprinter: cLeyen := Alltrim(Mi_campo_MEMO) IF !Empty(cLeyen) nLines := MLCOUNT(Mi_campo_MEMO,39) // ssco cuantas lineas tiene el campo memo con unalongitud de 39, (esa tu la puedes cambiar) FOR x := 1 TO nLines nRow += 0.4 ...

... ::nHeightHead, 0 ), ; If( ::lFooting .and. ::lDrawFooters, ::nHeightFoot, 0 ), ; If( ::lDrawHeaders, ::nHeightSuper, 0 ) ) METHOD PageUp( nLines ) METHOD PageDown( nLines ) METHOD Paint() METHOD PanHome() METHOD PanEnd() METHOD PanLeft() METHOD PanRight() METHOD PostEdit( uTemp, nCol, ...

... DBGOTO( nLastRecno ) ) RETURN nLastRecno I sending a BrwBottom() Function Which is your want :-) Function BrwBottom( oBrw ) local nSkipped local nLines := oBrw:nRowCount() local n local bChange := oBrw:bChange oBrw:bChange := NIL oBrw:goBottom() oBrw:lHitBottom = .t. oBrw:lHitTop = .f. Eval( ...

Gilbert,

After assigning that style, please set oBrowse:nDataLines := nLines, to the desired amount of lines to show, thanks

... FWH, pero que permite el uso de una máscara PICTURE, incluyendo máscaras extendidas para valores de fechas. * Nuevo: Nueva función WheelScroll( [nLines] ) --> nLines, pone o devuelve la cantidad de líneas a usar por la rueda del ratón en su deplazamiento (scroll). Actualmente se usa en la ...