error: assigned value is wrong class: TBROWSE:FrameColor

104 views
Skip to first unread message

José Quintas

unread,
Jul 19, 2021, 12:23:02 PM7/19/21
to harbou...@googlegroups.com
I use same class ALL TIME, for ALL BROWSEs.

Sometimes I get this and other errors.

My application do not change this part for many years !!!!

Any idea about this specific message error?

My tbrowse have changes, is compiled together with application for many
years, 4 years or more than this.

It Is used on all application, on all tbrowse, on the same way, and
allways with same colors.

Message error is about COLOR variable, I use same routine all time, on
all application, on all database, may be thousands of time all day,
allways with same colors.

I can't think why get error on it sometimes.

May be a Windows change? a mingw change?

On a first momment, what means: assigned value is wrong class ?

José M. C. Quintas

CNavarro

unread,
Jul 19, 2021, 12:29:13 PM7/19/21
to Harbour Users
Excuse me, I don't see the error you are referring to
What error do you get?

A Santos

unread,
Jul 24, 2021, 2:49:09 PM7/24/21
to Harbour Users
@CNavarro: please, read the post's title.

Auge & Ohr

unread,
Jul 25, 2021, 12:59:01 AM7/25/21
to Harbour Users
hi,

did you work in Network ( Time-Out ) ?

---

i did not use harbour TBrowse CLASS but Cl*pper and Xbase++

most Problem i saw : TBrowse is not "stable" when "something" change

most it happens to "Power-User" when use TBrowse "to quick" ...
so make TBrowse "stable" ... ForceStable() can be used

Jimmy

José Quintas

unread,
Jul 25, 2021, 5:33:19 AM7/25/21
to harbou...@googlegroups.com

assigned value is wrong class

José M. C. Quintas

--
--
You received this message because you are subscribed to the Google
Groups "Harbour Users" group.
Unsubscribe: harbour-user...@googlegroups.com
Web: http://groups.google.com/group/harbour-users

---
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to harbour-user...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/b350b578-3a2c-4c48-9bcb-3571d69b9f7fn%40googlegroups.com.

José Quintas

unread,
Jul 25, 2021, 6:19:57 AM7/25/21
to harbou...@googlegroups.com

I use ADO, and I think there is no matter about network.

I use some speed up on browse, updating on idle time, and full update before user function.

      oBrowse:RefreshCurrent()
      DO WHILE nKey == 0 .AND. ! oBrowse:Stable
         oBrowse:Stabilize()
         nKey := Inkey()
      ENDDO
      oBrowse:RefreshCurrent()
      Atail( AppForms() ):UpdateScroll( cnSQL:RecordCount(), cnSQL:AbsolutePosition() )
      IF nKey == 0
         DO WHILE ! oBrowse:Stabilize()
         ENDDO
         IF ! Empty( oBrowse:Freeze )
            oBrowse:ColorRect( { oBrowse:RowPos, 1, oBrowse:RowPos, oBrowse:Freeze }, { 3, 3 } )
         ENDIF
         oBrowse:ColorRect( { oBrowse:RowPos, oBrowse:LeftVisible, oBrowse:RowPos, oBrowse:RightVisible }, { 3, 3 } )
         oBrowse:ColorRect( { oBrowse:RowPos, oBrowse:ColPos, oBrowse:RowPos, oBrowse:ColPos }, { 2, 2 } )
         Atail( AppForms() ):UpdateScroll( cnSQL:RecordCount(), cnSQL:AbsolutePosition() )
         cTimeLimit := TimeAdd( Time(), "M", 10 )
         nKey := Inkey( INKEY_IDLE, HB_INKEY_ALL - INKEY_MOVE + HB_INKEY_GTEVENT )
         IF nKey == 0 .AND. Time() > cTimeLimit
            KEYBOARD Chr( K_ESC )
            LOOP
         ENDIF
      ENDIF


José M. C. Quintas

--
--
You received this message because you are subscribed to the Google
Groups "Harbour Users" group.
Unsubscribe: harbour-user...@googlegroups.com
Web: http://groups.google.com/group/harbour-users

---
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to harbour-user...@googlegroups.com.
Reply all
Reply to author
Forward
0 new messages