FiveTech Software tech support forums

... := .t. oBrw:nMarqueeStyle := MARQSTYLE_HIGHLCELL oBrw:lRecordSelector := .f. oBrw:lColDividerComplete := .t. oBrw:lAllowRowSizing := .f. oBrw:lAllowColSwapping := .f. oBrw:lAllowColHiding := .f. oBrw:lRecordSelector := .f. oBrw:lHScroll := .t. oBrw:lVScroll := .f. oBrw:l2007 := .f. oBrw:lHeader ...

... := LINESTYLE_BLACK oBrw5:nRowDividerStyle := LINESTYLE_BLACK oBrw5:lColDividerComplete := .t. oBrw5:nHeaderLines := 1 oBrw5:nDataLines := 1 oBrw5:lAllowColSwapping := .t. oBrw5:SetRDD() lClrFlag:=.f. for nFor := 1 to len( oBrw5:aCols ) oCol := oBrw5:aCols[ nFor ] oBrw5:bSkip:={| nRecs | ( if(nRecs ...

... := LINESTYLE_BLACK oBrw5:nRowDividerStyle := LINESTYLE_BLACK oBrw5:lColDividerComplete := .t. oBrw5:nHeaderLines := 1 oBrw5:nDataLines := 1 oBrw5:lAllowColSwapping := .t. oBrw5:lOemToAnsi := lOemAnsi oBrw5:SetRDD() ......... ......... oBrw5:CreateFromResource( 110 ) // This Var has to be changed ...

... := LINESTYLE_BLACK oBrw5:nRowDividerStyle := LINESTYLE_BLACK oBrw5:lColDividerComplete := .t. oBrw5:nHeaderLines := 1 oBrw5:nDataLines := 1 oBrw5:lAllowColSwapping := .t. oBrw5:lOemToAnsi := lOemAnsi // New OemToAnsi oBrw5:SetRDD() lClrFlag:=.f. for nFor := 1 to len( oBrw5:aCols ) // Error-Message ...

... := LINESTYLE_BLACK oBrw5:nRowDividerStyle := LINESTYLE_BLACK oBrw5:lColDividerComplete := .t. oBrw5:nHeaderLines := 1 oBrw5:nDataLines := 1 oBrw5:lAllowColSwapping := .t. // ---------------------------------------------- // ---------------------- NEW ----------------------- oBrw5:lOemToAnsi := ...

... := LINESTYLE_BLACK oBrw5:nRowDividerStyle := LINESTYLE_BLACK oBrw5:lColDividerComplete := .t. oBrw5:nHeaderLines := 1 oBrw5:nDataLines := 1 oBrw5:lAllowColSwapping := .t. oBrw5:SetRDD() lClrFlag:=.f. for nFor := 1 to len( oBrw5:aCols ) oCol := oBrw5:aCols[ nFor ] oBrw5:bSkip:={| nRecs | ; ( if(nRecs ...

Hi,
lAutoOrder runs only if lAllowColSwapping=.t..
If lAllowColSwapping=.f. the user can't select the column to order.

Is there any way to bypass this problem ? I want the lAutoOrder feature available without the ColSwapping feature enabled.

Any ideas?

Thanks,

Best Regards,

Marco Turco

... Isn't this called by HeaderLButtonDown? METHOD HeaderLButtonDown( nMRow, nMCol, nFlags ) CLASS TXBrwColumn if ::oBrw:nCaptured == 0 .and. ::oBrw:lAllowColSwapping ::oBrw:oCapCol := Self ::oBrw:nCaptured := 1 ::oBrw:Capture() ::PaintHeader( 2, nil, ::oBrw:nHeaderHeight - 3, .t. ) endif return ...

Olá Aoki

Isto "oBrw:lAllowColSwapping := { .F. , .T., .F., .T., .F., .T. }" só vai funcionar na versão que eu estou preparando. Esqueci de falar isto (hehe)

Abraços,

Rossine.

Ops,

O certo para o swap total é:

oBrw:lAllowColSwapping := .T.

Abraços,

Rossine.

Mais uma (hehe)

Ou você usa do jeito tradicional para fazer swap em todas as colunas

oBrw:lAllowColSwapping :=.F.

ou:

oBrw:lAllowColSwapping := { .F. , .T., .F., .T., .F., .T. }

Abraços,

Rossine.

Hola Aoki:

Puedes usar esto:

1 ) Para no permitir swap entre columnas =

oBrw:lAllowColSwapping :=.F.


2) Para no permitir que se redimensionen las columnas =

oCol:lAllowSizing:=.F.

Saludos ,

Prueba esto:

oBrw:lAllowColSwapping = .f.

... := { || DB_TABLAS:DESTAB } :aCols[02]:nWidth := 220 :nFreeze := 02 :lColDividerComplete := .T. :nColDividerStyle := 002 :lHScroll := .F. :lAllowColSwapping := .F. :lAllowColHiding := .F. :nMarqueeStyle := 006 :CreateFromResource(104) END WITH OBJECT ::oDlg1 :bValid := { || ::Close() } ...