FiveTech Software tech support forums

Muy buenas,
estoy intentando recoger el valor de una celda directamente del objeto XBROWSE y no se hacerlo

obtengo la linea
oBrw:nRowsel()
y la columna que quiero

pero el valor no se como extraerlo
Por el foro he leído una contestación diciendo esto:
Eval( oBrowse:bLine )

Pero, me da error ...

... recordset, tmysql, dolphin, fwhmysql or any othe datasource with identical appearance and behavior.
can i "seek" in XBROWSE when use a Record-Set ?
Yes.
For that matter any datasource.

how do i get active ROW / COL where Cursor are ?
oBrw:nRowSel
oBrw:nColSel
But you rarely need this information.

Jack wrote:Hi,
I think about this method :

oLbx:SelectCol(10) or

oLbx:nRowSel:=5,oLbx:nColSel:=2 or

oBrw:BookMark := <nNewRowNum>

Have a good day,

Philippe

Philippe,
I wish erase the focus Not Select a col

Hi,
I think about this method :

oLbx:SelectCol(10) or

oLbx:nRowSel:=5,oLbx:nColSel:=2 or

oBrw:BookMark := <nNewRowNum>

Have a good day,

Philippe

... t.
:bChange := { || If( oBrw2:lFocused, SyncBrowses( oBrw2, oBrw1 ), nil ) }
:bGotFocus := { || SyncBrowses( oBrw2, oBrw1 ) }

//------------

FUNCTION SYNCBROWSES( oBrw1, oBrw2 )

WITH OBJECT oBrw2
:BookMark := oBrw1:BookMark
:nRowSel := oBrw1:nRowSel
:Refresh()
END

RETURN NIL

regards
Uwe

... for inside, line and outside -border-painting
Added a missing col-focus-selection by radiobuttons

oBrw:bPainted := < |hDC|
nRowPos := oBrw:nRowSel // screen row for border-painting
nRowPos1 := oBrw:Keyno() // record row for record-display on top
nColPos := oBrw:nColSel
oSay[3]:Refresh ...

... BORDER( oBrw, hDC, nColRow, nColPos, nOption, nPosition,;
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

Hello,

I got a problem to change the Col-position at runtime
On startup it is OK

There is a RUNTIME-change of < FILE + INDEX >

ON INIT

:nRowSel := nGoRecord
:nColSel := nOrder
:SetGroupHeader( "Workarea ==> " + DBF() + " Index ==> " + (cFileName)->(INDEXKEY(nOrder)) + ;
" Order ==> " + ALLTRIM ...

... make these corrections in the Method Edit( nKey ) of TXBrwColumn:
Replace Line 13089 of FWH1701 ( line 13007 of FWH1612 )

nRow := ( ( ::oBrw:nRowSel - 1 ) * ::oBrw:nRowHeight ) + ::oBrw:HeaderHeight()
with
nRow := ( ( ::oBrw:nRowSel - 1 ) * ::oBrw:nRowHeight ) + ::oBrw:FirstRow()

Also replace ...

... cf1
elseif ::obrw:lgetbar.and.nPaintRow==0
cdata:=::cf2
else
cData := Eval( ::bStrData )
end

6. method edit() class txbrwcolumn

if ::obrw:nrowsel==-1
uvalue:=::cf1
elseif ::obrw:nrowsel==0
uvalue:=::cf2
else
uValue := IfNil( ::Value, ::BlankValue() )
end

if ::obrw:lgetbar

if ...

... Index 3 = values S01 - S18
cTour := "S" + aTour[ nRow ] ), NIL ), ;
("TOUREN")->(DBSEEK( TRIM(cTour) ) ), ;
oBrw1:SetFocus(), ;
oBrw1:nRowSel := 1, oBrw1:Refresh() ) }

The second situation :
is there maybe a solution as well to show records on browser-top during incremental seek ?
or ...

... much

tested but the seek-result is still displayed on different row-positions

("TOUREN")->(DBSEEK( TRIM(cTour) ) ) // on Button-action
oBrw1:nRowSel := 1
oBrw1:Refresh()

the result of the other test

oBrw:nClrText := <nNewColor>

the color is only shown on selector-header, not the rows ...

... To change the recordselector text color, please set oBrw:nClrText := <nNewColor> and call oBrw:Refresh().

Now coming to your question.
oBrw:nRowSel := 1 and oBrw:Refresh() should bring the current row to top.

But please keep this in mind. Assuming the browse can display 10 rows and data has ...

Antonio
Gracias, tenia este codigo copiado de la clase txbrwcol

LOCAL oDlg
LOCAL oCol := oBrw:aCols[oBrw:nColSel]
LOCAL nRow := ( ( oBrw:nRowSel - 1 ) * oBrw:nRowHeight ) + oBrw:HeaderHeight() + 2
LOCAL nCol := oCol:nDisplayCol + 3
LOCAL nWidth := oCol:nWidth - 4
LOCAL nHeight := oCol:oBrw ...

Imade some thing on Orario application

nora:=alltrim(str(oBrw:nRowSel))
ngiorno:=alltrim(str(oBrw:nColSel-1))
oBrw:SelectedCol():Value := OR->CLASSE