FiveTech Software tech support forums

... bien en las fechas pero.. en los gets donde hay numeros cuando me regreso con las flechas les quita un digito.. if ! ::oGet:BadDate ::oGet:KillFocus() else ::oGet:Pos = 1 ::nPos = 1 #ifndef __CLIPPER__ ::oGet:TypeOut = .f. #endif endif alguna sugerencia.. arnulfo

... N 1 [ 3] = N 1 Stack Calls =========== Called from SUBSTR(0) Called from GET:UNTRANSFORM(604) Called from TWINDOW:LOSTFOCUS(0) Called from TWINDOW:KILLFOCUS(0) Called from TWINDOW:HANDLEEVENT(0) Called from _FWH(0) Called from SETFOCUS(0) Called from TWINDOW:GONEXTCTRL(0) Called from TWINDOW:KEYCHAR(0) ...

... if ! Empty( ::cPicture ) .and. ::oGet:type == "N" //tracelog(::Varget()) ::oGet:Assign() ::oGet:Picture := ::cPicture ::oGet:UpdateBuffer() ::oGet:KillFocus() endif ::oGet:SetFocus() // to avoid oGet:buffer be nil # ifdef TEST trace( ::oGet:changed , ::oGet:unTransform() , ::oGet:original) // Main ...

ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ³ FiveWin for Pocket PC - March 2006 Harbour development power ³Ü ³ (c) FiveTech, 1993-2006 for Microsoft Windows Pocket PC ³Û ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ ÿ ßßßßßßßßßßß...

... CODE 000A:2F7C 00099H _SETFOCUS CODE 000A:3016 000ECH COLORS CODE 000A:3102 00099H NTOP CODE 000A:319C 0014EH FORWHEN CODE 000A:32EA 001E9H KILLFOCUS CODE 000A:34D4 0013EH FWLOSTFOCU CODE 000A:3612 0006AH DRAGBEGIN CODE 000A:367C 0058EH CHECKDOTS CODE 000A:3C0A 00398H SHOWDOTS CODE 000A:3FA2 ...

... CODE 000A:2F7C 00099H _SETFOCUS CODE 000A:3016 000ECH COLORS CODE 000A:3102 00099H NTOP CODE 000A:319C 0014EH FORWHEN CODE 000A:32EA 001E9H KILLFOCUS CODE 000A:34D4 0013EH FWLOSTFOCU CODE 000A:3612 0006AH DRAGBEGIN CODE 000A:367C 0058EH CHECKDOTS CODE 000A:3C0A 00398H SHOWDOTS CODE 000A:3FA2 ...

Dante tienes que modificar el Método KillFocus de la clase tControl agrega el string TSButton como en este ejemplo : Saludos Joel Andujo METHOD KillFocus( hCtlFocus ) CLASS TControl local oWnd if ! Empty( hCtlFocus ) .and. ...

Fabian vas a tener que modificar la clase Control el método KillFocus agrega TSButton como en este ejemplo : METHOD KillFocus( hCtlFocus ) CLASS TControl local oWnd if ! Empty( hCtlFocus ) .and. ::bValid != nil .and. WndParents( hCtlFocus, ::hWnd ) .and. ...

... GotFocus() CLASS TGet if ! Empty( ::cPicture ) .and. ::oGet:type == "N" ::oGet:Picture := StrTran( ::cPicture, ",", "" ) endif if ! ::lDrag ::oGet:KillFocus() // to properly initialize internal status ::oGet:SetFocus() ::DispText() if ::oGet:type$"DN" ::nPos := 1 endif ::oGet:Pos = ::nPos ::SetPos( ...

... se aceptan ideas frescas, gracia Called from SUBSTR(0) Called from GET:UNTRANSFORM(604) Called from TWINDOW:LOSTFOCUS(785) Called from TWINDOW:KILLFOCUS(767) Called from TWINDOW:HANDLEEVENT(1219) Called from _FWH(2959) Called from SETFOCUS(0) Called from TWINDOW:GONEXTCTRL(2362) Called from ...

... al menos funciona: METHOD lValid() CLASS TGet local lRet := .t. if ::oGet:BadDate ::oGet:Buffer := DtoC(::cOldDate) ::oGet:Assign() ::oGet:KillFocus() ::oGet:SetFocus() MsgBeep() return .f. else if ValType( ::bValid ) == "B" lRet := Eval( ::bValid, Self ) if ! lRet ::oWnd:nLastKey = 0 endif ...

... CODE 000A:11AA 00099H _SETFOCUS CODE 000A:1244 000ECH COLORS CODE 000A:1330 00099H NTOP CODE 000A:13CA 0014EH FORWHEN CODE 000A:1518 001D1H KILLFOCUS CODE 000A:16EA 00084H FWLOSTFOCU CODE 000A:176E 0006AH DRAGBEGIN CODE 000A:17D8 0058EH CHECKDOTS CODE 000A:1D66 00398H SHOWDOTS CODE 000A:20FE ...

... <> ::oGet:original ) ::oGet:Assign() // for adjust numbers ::oGet:UpdateBuffer() endif ::DispText() if ! ::oGet:BadDate ::oGet:KillFocus() else ::oGet:Pos = 1 ::nPos = 1 #ifndef __CLIPPER__ ::oGet:TypeOut = .f. #endif endif ::SetColor() return nil //----------------------------------------------------------------------------//

... GotFocus() CLASS TGet if ! Empty( ::cPicture ) .and. ::oGet:type == "N" ::oGet:Picture := StrTran( ::cPicture, ",", "" ) endif if ! ::lDrag ::oGet:KillFocus() // to properly initialize internal status ::oGet:SetFocus() ::DispText() if ::oGet:type$"DN" ::nPos := 1 endif ::oGet:Pos = ::nPos ::SetPos( ...