Hi everybody!

I'm having trouble with TBrowse class.
In clipper everything works fine, but in Xbase when I change variable
:colpos directly and that column is not currently visible it stays
unvisible until I press K_LEFT or K_RIGHT. In attachment I send you sample.
I know that I can use methods :panHome() and :Right() instead of changing
variable :colpos but that does not seems right to me.

Can anybody help me?

Damir

hi,

> I'm having trouble with TBrowse class.
> In clipper everything works fine, but in Xbase when I change variable
> :colpos directly and that column is not currently visible it stays

no clue why your sample does not show last column, but here is a
"workaround"

      CASE nKey == K_F5
         oBrowse:colpos := 1
         oBrowse:PanHome()
         oBrowse:Right()
         oBrowse:Left()
         oBrowse:RefreshAll()

      CASE nKey == K_F8
         oBrowse:colpos := oBrowse:colCount
         oBrowse:PanEnd()
         oBrowse:Left()
         oBrowse:Right()
         oBrowse:RefreshAll()

some hints about Xbase++ and TbrowseDB :

DISPBEGIN()
DO WHILE (nKey := INKEY()) == 0  //.AND. !oBrowse:stabilize()
 if you get Error about stabilize()
 split it into 2 lines
   IF oBrowse:stabilize()
      EXIT
   ENDIF
ENDDO
DISPEND()

IF oBrowse:stable
...
 put a small value into Inkey()
   nKey := INKEY(0.01)
ENDIF

please send your sample to support@alaska-software.com
to show the BUG, than they can fix it.

greetings by OHR
Jimmy

On Tue, 25 Jul 2006 19:11:57 +0200, AUGE_OHR wrote:

> hi,
> 
>> I'm having trouble with TBrowse class.
>> In clipper everything works fine, but in Xbase when I change variable
>>:colpos directly and that column is not currently visible it stays
> 
> no clue why your sample does not show last column, but here is a
> "workaround"
> 
>       CASE nKey == K_F5
>          oBrowse:colpos := 1
>          oBrowse:PanHome()
>          oBrowse:Right()
>          oBrowse:Left()
>          oBrowse:RefreshAll()
> 
>       CASE nKey == K_F8
>          oBrowse:colpos := oBrowse:colCount
>          oBrowse:PanEnd()
>          oBrowse:Left()
>          oBrowse:Right()
>          oBrowse:RefreshAll()
> 
> some hints about Xbase++ and TbrowseDB :
> 
> DISPBEGIN()
> DO WHILE (nKey := INKEY()) == 0  //.AND. !oBrowse:stabilize()
>  if you get Error about stabilize()
>  split it into 2 lines
>    IF oBrowse:stabilize()
>       EXIT
>    ENDIF
> ENDDO
> DISPEND()
> 
> IF oBrowse:stable
> ...
>  put a small value into Inkey()
>    nKey := INKEY(0.01)
> ENDIF
> 
> please send your sample to support@alaska-software.com
> to show the BUG, than they can fix it.
> 
> greetings by OHR
> Jimmy

Thanks Jimmy

I will send my sample to Alaska support

Damir