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.
TsBrowse para xHarbour y Fivewin 2.5
-
- Posts: 28
- Joined: Fri Dec 30, 2005 8:44 pm
- Location: Lima-Perù
Re: TsBrowse para xHarbour y Fivewin 2.5
Antonio :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.
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