TsBrowse para xHarbour y Fivewin 2.5

[AntonioCrisostomo]

Gracias por sus respuestas ante todo.
Mi problema, es que necesito una versión estable de Tsbrowse para fivewin 2.5 con xharbour, ya que tengo problemas con los alias cuando se cierran varias ventanas tipo mdi, por favor.

[Vikthor]

Gracias por sus respuestas ante todo.
Mi problema, es que necesito una versión estable de Tsbrowse para fivewin 2.5 con xharbour, ya que tengo problemas con los alias cuando se cierran varias ventanas tipo mdi, por favor.

Antonio :

La clase TsBrowse ha sufrido muchisimas modifiaciones a su código original por parte de muchos programadores que la han ajustado a sus ncesidades, por lo tanto una versión estable no creo que la encuentres.

Así que yo te muestro el código del método LostFocus() que modifique para solucionar el problema que comentas.

Code: Select all  Expand view  RUN

* ============================================================================
* METHOD TSBrowse:LostFocus() Version 6.0 Apr/5/2002
* ============================================================================

METHOD LostFocus( hCtlFocus ) CLASS TSBrowse

   If ::lEditing
      Return 0
   EndIf

   Super:LostFocus( hCtlFocus )

   If ::nLen > 0 .and. ! EmptyAlias( ::cAlias ) .and. ! ::lIconView
      ::DrawSelect()
   EndIf

   If ::oCtx != Nil
      ::oCtx:Save()
   EndIf

   If ::cAlias != "ARRAY" .and. ::cAlias != "TEXT_"

*      ::nLastPos := ( ::cAlias )->( RecNo() )
*      ::nLastnAt := ::nAt
         // Fixed bug Alias Vikthor
         IF !EmptyAlias( ::cAlias )
             IF Select( ::cAlias ) > 0
            ::nLastPos := ( ::cAlias )->( RecNo() )
             ELSE
                  ::nLastPos := 0
             ENDIF
             ::nLastnAt := 0
         ENDIF
      If ::bTagOrder != Nil .and. ! ::lNoResetPos .and. ::bLastTag != Nil
         ::uLastTag := Eval( ::bLastTag )
      EndIf

   EndIf

   ::lHasFocus := .F.

Return 0