- Code: Select all Expand view
@ f_px[n] - nInicio + 0.3 , f_py[n] - 2 GET &oGet VAR &v_temp OF oDlgAlta ;
SIZE v_long , v_high ;
PICTURE &p ;
VALID &v_fval ;
ACTION ( &v_fval, chr(13)) ;
UPDATE
@ f_px[n] - nInicio + 0.3 , f_py[n] - 2 GET &oGet VAR &v_temp OF oDlgAlta ;
SIZE v_long , v_high ;
PICTURE &p ;
VALID &v_fval ;
ACTION ( &v_fval, chr(13)) ;
UPDATE
f_px[n] - nInicio + 0.3 , f_py[n] - 2 ;
GET &oGet VAR &v_temp OF oDlgAlta ;
SIZE v_long , v_high ;
PICTURE &p ;
VALID &v_fval ;
ACTION ( &v_fval, chr(13), .t. ) ; // al final va un .t.
UPDATE
METHOD CreateButton() CLASS TGet
local oThis := Self
if ValType( ::bAction ) == "B" .and. Upper( ::ClassName() ) == "TGET"
if Empty( ::cBmpName )
@ 0, ::nWidth - ::nHeight BUTTONBMP ::oBtn OF Self ;
ACTION ( Eval( oThis:bAction, oThis ), oThis:SetFocus() ) ;
SIZE ::nHeight - 4, ::nHeight - 4 PIXEL
if Empty( ::oBtn:hBitmap )
::oBtn:SetText( "..." )
endif
else
@ 0, ::nWidth - ::nHeight BUTTONBMP ::oBtn OF Self ;
ACTION ( Eval( oThis:bAction, oThis ), oThis:SetFocus() ) ;
SIZE ::nHeight - 4, ::nHeight - 4 PIXEL BITMAP ::cBmpName
endif
::oBtn:lCancel = .T. // so the GET VALID is not fired when the button is focused
/*
// We force a WM_NCCALCSIZE msg to be sent to the GET
SetWindowPos( ::hWnd, 0, 0, 0, 0, 0,;
nOr( SWP_NOMOVE, SWP_NOSIZE, SWP_NOZORDER, SWP_FRAMECHANGED ) )
*/
endif
return nil
@ nX, nY GET oGet VAR nVar picture "999.999" ;
ACTION( If( oGet:lValid, ( Mi_Accion(), PostMessage( oGet:hWnd, WM_KEYDOWN, 13 ) ), ) ) ;
VALID( nVar > 100 )
@ f_px[n] - nInicio + 0.3 , f_py[n] - 2 GET &oGet VAR &v_temp OF oDlgAlta ;
SIZE v_long , v_high ;
PICTURE &p ;
VALID &v_fval ;
ACTION ( &v_fval, PostMessage( ::hWnd, WM_KEYDOWN, 13 ) ) ;
UPDATE
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot], wilsongamboa and 29 guests