FiveTech Software tech support forums

Antonio, I resolved this question. I'm using the CUEBANNER instruction. I also changed the "DispText" method of the TGet class. Antonio see as it was and if you approve. (sorry for my english) METHOD DispText() CLASS MyGet if ::lPassword .and. ::oGet:Type == "C" ...

... XP con apariencia win98. La solución ha sido la aportada por Karinha (modificar TGet), pero cambiando la estrellita por chr(149) tambien: METHOD DispText() CLASS TGet if ::lPassword .and. ::oGet:Type == "C" #ifdef __CLIPPER__ SetWindowText( ::hWnd, Replicate( "*", Len( Trim ( ::oGet:buffer ) ...

... XP con apariencia win98. La solución ha sido la aportada por Karinha (modificar TGet), pero cambiando la estrellita por chr(149) tambien: METHOD DispText() CLASS TGet if ::lPassword .and. ::oGet:Type == "C" #ifdef __CLIPPER__ SetWindowText( ::hWnd, Replicate( "*", Len( Trim ( ::oGet:buffer ) ...

Patrick,

In METHOD DispText() CLASS TGet there is a call to SetWindowText(). You can try a LTrim() there:

SetWindowText( ::hWnd, LTrim( ::oGet:buffer ) )

but the caret position should be tested to see if it matches the right location

... tiempo y lo solucione gracias a LKM, añadiendo una línea en TGET en el Method EditUpdate(): METHOD EditUpdate() CLASS TGet if ::oGet:HasFocus ::DispText() ::oGet:Assign() //LKM actualiza buffer actual endif ::SetPos( ::oGet:Pos ) return nil

... tiempo y lo solucione gracias a LKM, añadiendo una línea en TGET en el Method EditUpdate(): METHOD EditUpdate() CLASS TGet if ::oGet:HasFocus ::DispText() ::oGet:Assign() //LKM actualiza buffer actual endif ::SetPos( ::oGet:Pos ) return nil

... tiempo y lo solucione gracias a LKM, añadiendo una línea en TGET en el Method EditUpdate(): METHOD EditUpdate() CLASS TGet if ::oGet:HasFocus ::DispText() ::oGet:Assign() //LKM actualiza buffer actual endif ::SetPos( ::oGet:Pos ) return nil

... GETDELSEL CODE 000A:4EF0 0009EH COPY CODE 000A:4F8E 0009EH COPY CODE 000A:502C 001AFH PASTE CODE 000A:51DC 0009AH PASTE CODE 000A:5276 0008CH DISPTEXT CODE 000A:5302 000D8H KEYUP CODE 000A:53DA 000B8H SELFILE CODE 000A:5492 00099H _SETPOS CODE 000A:552C 0014CH CUT CODE 000A:5678 000A7H CUT ...

... GETDELSEL CODE 000A:4EF0 0009EH COPY CODE 000A:4F8E 0009EH COPY CODE 000A:502C 001AFH PASTE CODE 000A:51DC 0009AH PASTE CODE 000A:5276 0008CH DISPTEXT CODE 000A:5302 000D8H KEYUP CODE 000A:53DA 000B8H SELFILE CODE 000A:5492 00099H _SETPOS CODE 000A:552C 0014CH CUT CODE 000A:5678 000A7H CUT ...

... buffer was always in sync with FW/FWH's. That could be an alternate fix for this problem: METHOD EditUpdate() CLASS TGet if ::oGet:HasFocus ::DispText() ::oGet:Assign() // lkm endif ::SetPos( ::oGet:Pos ) Return Self This is a fix: METHOD lValid() CLASS TGet local lRet := .t. ...

... ... IF <CondicionValidez> oGet[1]:SetColor(ColorTxt_Valido,ColorBack_Valido) oGet[1]:lReadOnly := .T. <---- Similar a Enable() oGet[1]:DispText() ELSE oGet[1]:SetColor(ColorTxt_NOValido,ColorBack_NOValido) oGet[1]:lReadOnly := .F. <----- Similar a Disable() oGet[1]:DispText() ENDIF ...

... ... IF <CondicionValidez> oGet[1]:SetColor(ColorTxt_Valido,ColorBack_Valido) oGet[1]:lReadOnly := .T. <---- Similar a Enable() oGet[1]:DispText() ELSE oGet[1]:SetColor(ColorTxt_NOValido,ColorBack_NOValido) oGet[1]:lReadOnly := .F. <----- Similar a Disable() oGet[1]:DispText() ENDIF ...

... := 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( ::nPos ) CallWindowProc( ::nOldProc, ::hWnd, WM_SETFOCUS ) if Set( _SET_INSERT ...

... CODE 0009:2B70 0081BH TGET CODE 0009:338C 00058H EDITUPDATE CODE 0009:33E4 0004CH GETSELPOS CODE 0009:3430 000BBH GETDELSEL CODE 0009:34EC 0008CH DISPTEXT CODE 0009:3578 000D8H KEYUP CODE 0009:3650 000EFH INC CODE 0009:3740 000EFH DEC CODE 0009:3830 0011FH SPINNER CODE 0009:3950 00166H SPINNER ...

... .and. ; ( ::oGet:changed .or. ::oGet:unTransform() <> ::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() ...