topic-38004

Posts: 1048

Joined: Mon Oct 24, 2005 09:54 AM

XBROWSE Questions
Posted: Thu Nov 07, 2019 10:49 AM

1.)
I have 2 xbrowses with identical number of rows . The first xbrowse have a vert-scroll , the second are not. Now i will synchronize the actual row in the second browse by moving of the first browse.
Currently in the first xbrowse i have:

Code (fw): Select all Collapse

….ON CHANGE oBrw2:nArrayAt := oBrw1:nArrayAt,oBrw2:refresh();

It is functioning, but the visible rows are different.

2.)
If i will paint nColdivider in a col with another color, this color are not in all cases are painted correct with the color from this col when i change the lines!

Code (fw): Select all Collapse

oBrw:nColDividerStyle := LINESTYLE_BLACK
oBrw:aCols[i]:nColDividerStyle := LINESTYLE_BLACK
oBrw:aCols[i]:nColDividerColor := CLR_WHITE

Regards,
Günther
---------------------------------
office@byte-one.com

ukoenig

Posts: 4043

Joined: Wed Dec 19, 2007 06:40 PM

Re: XBROWSE Questions
Posted: Thu Nov 07, 2019 12:49 PM

Günther,

1.)
I have 2 xbrowses with identical number of rows . The first xbrowse have a vert-scroll , the second are not. Now i will synchronize the actual row in the second browse by moving of the first browse.

I needed the same solution for a language-translation

browser 1

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

browser 2

:lColChangeNotify := .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