TsBrowse para xHarbour y Fivewin 2.5

Post Reply
AntonioCrisostomo
Posts: 28
Joined: Fri Dec 30, 2005 8:44 pm
Location: Lima-Perù

TsBrowse para xHarbour y Fivewin 2.5

Post by 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.
User avatar
Vikthor
Posts: 271
Joined: Fri Oct 07, 2005 5:20 am
Location: México

Re: TsBrowse para xHarbour y Fivewin 2.5

Post by Vikthor »

AntonioCrisostomo wrote: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

* ============================================================================
* 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
Vikthor
Post Reply