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.
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour TsBrowse para xHarbour y Fivewin 2.5
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.
* ============================================================================
* 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 0Vikthor