refresh a Row in a dcbrowse

[digitsoft]

hello Roger
How can you refresh a Row in a dcbrowse, to set the default color

[rdonnay]

oBrowse:refreshCurrent()

[digitsoft]

I used it and it does not work

oBrowse:refreshCurrent()

[Auge_Ohr]

... to set the default color

do you mean Color of Zebra-Browse ?

Color of Zebra-Browse is
\Source\Dclipx\_dcxbrow.prg

Code: Select all

   IF oBrowse:rowPos %2 == 0
       oBrowse:evenrow := .T.
   ELSE
       oBrowse:evenrow := .F.
   ENDIF

[digitsoft]

Hello
I am using the color zebra, when I do refreshall the cursor is placed in position 1
then use: rowpos to place the cursor on the article that entered the browse but it remains the color of the cursor of the position 1 which is the one that is framed in the circle and want to put the color of zebra again.
so that only the last regitro entered is seen.

... to set the default color

do you mean Color of Zebra-Browse ?

Color of Zebra-Browse is
\Source\Dclipx\_dcxbrow.prg

Code: Select all

   IF oBrowse:rowPos %2 == 0
       oBrowse:evenrow := .T.
   ELSE
       oBrowse:evenrow := .F.
   ENDIF

[Auge_Ohr]

Hello
then use: rowpos to place the cursor on the article that entered the browse but it remains the color of the cursor of the position 1 which is the one that is framed in the circle and want to put the color of zebra again.

as long you a "on-Record" you got Hilite-Color and not Zebra-Color.

[jdsoft]

Hello,

There is a undocumentes method to do so.

Code: Select all

DCBROWSE ... SUBCLASS "MyDbBrowse()" 

CLASS MyDcBrowse grom Dc_XbpBrowse
EXPORTED:
METHOD RefreshRow

ENDCLASS

METHOD MyDcBrowse:RefreshRow(nRow)
If nRow > 0
   ::RefreshRows ( nRow,nRow )

Endif

Return

[digitsoft]

Thank you

Hello,

There is a undocumentes method to do so.

Code: Select all

DCBROWSE ... SUBCLASS "MyDbBrowse()" 

CLASS MyDcBrowse grom Dc_XbpBrowse
EXPORTED:
METHOD RefreshRow

ENDCLASS

METHOD MyDcBrowse:RefreshRow(nRow)
If nRow > 0
   ::RefreshRows ( nRow,nRow )

Endif

Return