FiveTech Software tech support forums

Karinha:

Aunque ya esta resuelto el tema, te agradezco la respuesta, busque en el foro
con oBrw:aCols[oBrw:SelectedCol():nCreationOrder] pero no mostraba resultados.

Saludos

... => TXBROWSE:COLATPOS( 4544 ) Called from: source\xbrowse.prg => (b)TXBROWSE( 709 ) Called from: source\xbrowse.prg => TXBROWSE:SELECTEDCOL( 0 ) Called from: source\xbrowse.prg => TXBROWSE:PAINT( 2181 ) Called from: source\xbrowse.prg => TXBROWSE:DISPLAY( 2126 ) Called ...

... upon. Still if you want to assign action to single click, assign the action to oBrw:bRClicked and you can ascertain the active column with oBrw:SelectedCol()

... upon. Still if you want to assign action to single click, assign the action to oBrw:bRClicked and you can ascertain the active column with oBrw:SelectedCol()

HI Enrico.
oCol: = oBrw: SelectedCol ()
It seem oCol: nCreationOrder () returns the correct position of a column only when the columns keep their original order of creation, but not when they are swapped or hidden.

I have checked the class and could not find the method or function you want.
Regards

oXBrowse:SelectedCol() --> oColumn

oXBrowse:nAt --> nColumnPosition // OJO: Posición en las columnas visualizadas

Es interesante ver el código del método nAt():
METHOD nAt() INLINE ::ColPos( ::SelectedCol() )

oColumn:nCreationOrder es el índice de columna cuando se creó

oBrw:SelectedCol():Value

Your observation is not correct. The SelectedCol() and nColSel are updated even when the column is changed by arrow keys. But by default, your bChange is called when row is changed but not when column only is changed. If you set oBrw:lColChangeNotify ...

The easiest way to anchor a dialog to a cell is

ACTIVATE DIALOG oDlg ON INIT oBrw:SelectedCol():AnchorToCell( oDlg )

... A selected column 2 still shows column 4 ( only if changing the column inside the sane row ) :!: :( To get the col-pos I'm using : nColPos := oBrw:SelectedCol():nCreationOrder http://www.pflegeplus.com/IMAGES/Autofocus3.jpg http://www.pflegeplus.com/IMAGES/Autofocus1.jpg ...

... nRGBColor, nPensize, nRound, nTranpL, lCol ) RETURN NIL > the new position the border has to be painted : oBrw:bChange := { || nColPos := oBrw:SelectedCol():nCreationOrder, ; nColRow := oBrw:nRowSel, ; MOVEBORDER( oBrw ) } regards Uwe :?:

Manuel, intenta con cualquiera de las siguientes lineas: WITH OBJECT oBrw :bLDblClick := {|| if(oBrw:SelectedCol:cHeader $ "DESCRIP;TOTAL;VDESC", MsgInfo("Tu Function-Dialog"),) } :bLDblClick := {|| if(oBrw:SelectedCol:nEditType = 0, MsgInfo("Tu Function-Dialog"),) ...

... "AUTHOR", "LIKE", "INFO1", "INFO2" oBrw:bRClicked := { || ( nRPos := RECNO(), ; nCPos := oBrw:SelectedCol():nCreationOrder, ; IIF( nCPos = 3, SET_DEL(), NIL ), ; IIF( nCPos = 6, SET_LIKE(oBrw), NIL ), ; oBrw:RefreshCurrent() ) } Like-level on ...

... := .T. tested to move to the column of browser 2 the same column like browser 1 but doesn't work WITH OBJECT oBrw2 :bChange := { || nCPos := oBrw2:SelectedCol():nCreationOrder, ; oBrw3:SelectCol( nCPos, .T. ), oBrw3:Refresh() } // move to column-pos of browser 1 doesn*t work END regards Uwe :?:

You can try with any key : oBrw:bKeyDown := { | nKey | ( nRPos := RECNO(), ; // record-pos if needed nCPos := oBrw1:SelectedCol():nCreationOrder, ; // selected col IIF( nCPos = 1 .and. nKey == 13, ; // Sound on EDIT only on column 1 SndPlaySound( c_Path1 + "Alert.wav", ...