Manuel,
Tengo el mismo problema que usted: o sea no quiero que el usuario tenga que pulsar OK.
Yo hice una funcion que pone una caja amarilla en el get con dato incorrecto.
Mira se puede ayudarte:
*** Ejemplo:
...
if ! "NB" $ cSit
WinInfo("Situacion debe ser:"+CRLF+;
"N=Normal"+CRLF+;
"B=Bloqueado", oGetSit)
endif
Se tienes problema con focus cuando llamar WinInfo intenta:
WinInfo("Texto", oGet, .F.)
*** La funcion:
//-----------------------------------------------------------------------------
// WinInfo : Cria ventana estilo tooltip
// <cText> : Texto o bloco de texto
// <oObj > : Objeto (get, button, say, etc) de la ventana
// <lLetLostFocus>: Debe cerrar cuando perder el focus?
//----------------------------------------------------------------------------
function WinInfo(cText, oObj, lLetLostFocus)
local oFont, oWnd, aPos, hOldFont
local aText, nLenText, hWnd, oClose, oTempo
local nRow := oObj:nHeight()
local nCol := 7
local nTxtWidth := 0
local nTxtHeight:= 0
DEFAULT lLetLostFocus := .T.
if ValType( cText ) == "B"
cText := Eval( cText )
endif
cText := strtran(cText,"\n", chr(13)+chr(10)) // \n = CRLF cText := ""+CRLF+cText+CRLF+" "
define window oWnd from 0, 0 to 1, 5 ;
style nOr( WS_POPUP, WS_BORDER ) ;
color 0, nRGB(255,255,164) of oObj
define font oFont name GetSysFont() size 0, -8
aPos := {nRow-1, -1}
aPos := ClientToScreen( oObj:hWnd, aPos )
nTxtHeight := max(14, GetTextHeight( oWnd:hWnd )-2)
aText := array( nLenText := mlcount( cText, 254 ) )
aeval( aText, {|c, n| aText[ n ] := trim(memoline( cText, 252, n )), ;
nTxtWidth := max(nTxtWidth, GetTextWidth( 0, aText[ n ], oFont:hFont ) + 7 ) })
if aPos[ 2 ] + nTxtWidth + 3 > GetSysMetrics(0) //0 = SM_CXSCREEN
aPos[ 2 ] = GetSysMetrics( 0 ) - nTxtWidth - 3
endif
oWnd:bRClicked := oWnd:bLClicked := {|a, b, c, Me| Me:End() }
//-----------------------------------------------------------------------------------
// Truco: Boton fuera de la ventana. Cierra la ventana se pulsa enter
//-----------------------------------------------------------------------------------
@ -10, -10 button oClose of oWnd action (if(oTempo # Nil, oTempo:End(),), oWnd:End())
oWnd:Move( aPos[ 1 ], aPos[ 2 ], nTxtWidth, nTxtHeight * nLenText + 3 )
oWnd:Show()
SysRefresh()
if oWnd != Nil
SetBkMode( oWnd:GetDC(), 1 )
SetTextColor( oWnd:hDC, 0 )
hOldFont := SelectObject( oWnd:hDC, oFont:hFont )
aeval( aText, {| c, n | TextOut( oWnd:hDC, n * nTxtHeight - (nTxtHeight-1), 2, aText[ n ] ) })
SelectObject( oWnd:hDC, hOldFont )
oWnd:ReleaseDC()
endif
oWnd:Setfocus()
if lLetLostFocus
oWnd:bLostFocus := {|| oWnd:End() }
else
// Cierra la ventana despues de 2600 milisegundos
define timer oTempo interval 2600 of oWnd action (oWnd:End(), oTempo:End())
oTempo:Activate()
endif
oFont:End()
return( Nil )
Saludos de Brasil
Maurilio
