FiveTech Software tech support forums

... myWidthValues, .T. ) // Sets column widths in creation order.
content_copy
download
Use code with caution.
Harbour

30. SetGroupHeader( cGrpHdr, nFrom, nUpto, oFont, nAlign, nHeight )

Description: Sets a group header for a range of columns.

Parameters:

cGrpHdr: CHARACTER - Group header text ...

... in the combo box.

18. **`FindString()`**:
- **Description**: Finds a string in the combo box.
- **Parameters**:
- `cItem`: Item to find.
- `nFrom`: Starting position for the search.

19. **`Find()`**:
- **Description**: Checks if an item exists in the combo box.
- **Parameters**:
- `cItem ...

... is :

* New: Method GetPages() on class TPrinter to get the From & To pages
selected on the print dialog when the FROM USER clause is used.
This method returns a two dimension array but also you can pass the
nFrom and nTo variables by reference, for example:

aPages := oPrn:GetPages(@nFrom, @nTo)

We frequently use the functions
AT( cSearch, cStr, [nFrom], [nEnd] ) // xHarbour
AT( cSearch, cStr ) // Harbour
HB_AT( cSearch, cStr, [nFrom], [nEnd] ) // Harbour

In many cases, we may need to convert both cSearch and cStr to Upper/Lower case for the search. Eg:
? AT( Upper( cSearch &#41 ...

Syntax:
oBrw:SetGroupHeader( cGrpHdr, [nFrom], [nUpto], [oFont], [nAlign] )

In the above case:

oBrw:SetGroupHeader( "Section 1", 3, 5 )

... heat_update
//----------------------------------------------------------------------------//

FUNC Automatic( oMeter, nActual )

LOCAL n
LOCAL nFrom := nActual

FOR n = nFrom TO oMeter:nTotal step 0.001
nActual = n
oMeter:Set( nActual )
NEXT
nActual = oMeter:nTotal
oMeter:Set( nActual ...

Solucionado!!! la instruccion seria oBrw:MoveCol(nFrom,nTo,.T.) lo que pasa es que no viene documentada en la ayuda.

Gracias!!

function ExtractLine( cText, nFrom )

I found out that if I use instead of
nAt := At( CRLF, SubStr( cText, nFrom ) )

nAt := At( CRLF, cText, nFrom )

the speed of the function is much better. Is it save to remove SubStr here?

Thanks in advance
Otto

function ExtractLine( cText, nFrom )
local ...

... t. ),::RunScrpt( cPrg, cParams, nWd ) )

METHOD RunScrpt( cPrg, cParams, nWd ) CLASS XXXXX
local lRet := .t.
local oRun
local cTxtFile, cLine, nFrom := 1
local cPrgs := "Prgs\"
if File( cPrgs + cPrg + ".prg" )
TRY
if File( "comp.log" )
ferase( "comp.log" )
endif
FReOpen_Stderr ( "comp.log ...

... static function PrintBox( lPreview )

local oPrn
local aRTF := { 100, 1000 } // { nFrom, nTop }

DEFAULT lPreview := .f.

if lPreview
PRINT oPrn NAME "FWH RICHEDIT FILE" PREVIEW
else
PRINT oPrn NAME "FWH RICHEDIT FILE"
endif

if ...

... to read line by line, we have found that this is a very fast way to do it, much faster than using MemoLine():
function ExtractLine( cText, nFrom ) local cLine, nAt nAt := At( CRLF, SubStr( cText, nFrom ) ) if nAt > 0 cLine := Substr( cText, nFrom, nAt - 1 ) nFrom ...

... function OpenRCFile()

local oWndRC, oTree, oMemo, oSplit
local cRCFile := cGetFile( "*.rc", "Select a resources file" )
local cTxtFile, cLine, nFrom := 1, cItemText := "", cText
local oItem, oBmpItem, oDlgItem, oIcoItem, oMnuItem, oMnuString

DEFINE WINDOW oWndRC TITLE cRCFile MDICHILD

oTree ...

... I us another font.

It is hardcoded but for my task ok.

Regards,
Otto



IF left(cdata,1)="#"

cLine = SubStr(ExtractLine( cData, @nFrom ),2)
oFont1 := ::oFntGross

oFont1:Activate( hDC )
SetTextColor( hDC, aColors[ 1 ] )
SetBkColor( hDC, aColors[ 2 ] )
DrawTextEx( hDC ...

... columna de texto. STRETHCOL_NONE es la opción por defecto para mantener la compatibilidad con versiones anteriores.

8. Nuevo método: MoveCol( nFrom, nTo ): En contraste con el método SwapCols que intercambia la posición de dos columnas, este método mueve una columna desde la posición "nFrom" a ...

... last column or stretching the last widest text column. STRETHCOL_NONE is default for keeping backward comaptibility.

8. New Method: MoveCol( nFrom, nTo ): In contrast to SwapCols method which swaps the position of two columns, this method moves a column from position nFrom to the new position ...