FiveTech Software tech support forums

Antonio, aquí la segunda parte: Error: Unresolved external '_HB_FUN_DRAWTHEMED' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_GETDLGBASEUNITS' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_CDLG2CHR' referenced from P...

... You have to know whether the on screen keyboard is visible in order to make a correct window size. The only way I have found to check it is to use IsWindowEnabled(). Any other way does not work with Windows 10 because it is always running and the position is still withing the window. With Windows ...

... == VK_DOWN ; .or. nLastKey == VK_RETURN .or. nLastKey == VK_TAB ::oWnd:nLastKey = nLastKey else ::oWnd:nLastKey = 0 endif endif return If( IsWindowEnabled( ::hWnd ), DLGC_WANTALLKEYS, 0 ) METHOD MouseMove( nRow, nCol, nKeyFlags ) CLASS TMiCalendario CursorHand() // Se evalua si es la linea ...

No encuentro esta parte del código que se supone se encuentra en el método Paint()

...

if ! IsWindowEnabled( ::hWnd ) .and. Empty( ::hBitmap3 )
BtnDisable( ::hWnd, ::hDC )
endif

...

Donde pongo el código nuevo ? Alguien sabe ?. Muchísimas gracias

Saludos

Roberto,

Tambien puedes usar:

IsWindowEnabled( oWnd:hWnd ) --> lYesNo

en donde puedes usar una ventana, diálogo ó control

Michel,

MsgInfo( IsWindowEnabled( oBar:hWnd ) )

Is that what you mean ?

André,

Very good, thanks

Just a minor change to your code:

if Upper( SubStr( cPrompt, nAt + 1, 1 ) ) == Upper( Chr( nKey ) ) .and. IsWindowEnabled( aControls[ n ]:hWnd )

Mauri, With this change in Method GoNextCtrl() your example works fine. Please notice that we use IsWindowEnabled() to check for disabled controls: METHOD GoNextCtrl( hCtrl ) CLASS TWindow   local hCtlNext, nAt      if ! Empty( ::aControls ...

Don, a Sample-Test-button to Disable / Enable a Combobox MsgAlert( IsWindowEnabled( oCombo:hWnd ) @ 50, 120 BTNBMP oBtn1 OF oFld1:aDialogs[2] ;SIZE 65, 35 PIXEL 2007 ;NOBORDER ;PROMPT "Fld-control" + CRLF + "&Disable" + CRLF ...

Don,

You can also use:

IsWindowEnabled( oControl:hWnd )

... local hCtrl := GetWindow( ::hWnd, GW_CHILD ) local nAt, cText while hCtrl != 0 if hCtrl != hCtrlAt .and. GetParent( hCtrl ) == ::hWnd .and. ; IsWindowEnabled( hCtrl ) .and. ; ( nAt := At( "&", cText := GetWindowText( hCtrl ) ) ) != 0 .and. ; Lower( SubStr( cText, nAt + 1, 1 ) ...

... en el metodo PAINT busca el codigo que te describo a continuación y que aparece dos veces, y desactiva la llamada a la funcion BtnDisable(): if ! IsWindowEnabled( ::hWnd ) .and. Empty( ::hBitmap3 ) // BtnDisable( ::hWnd, ::hDC ) //Desactivar esto endif Saludos.

... ::oWnd:nLastKey := 0 EndIf EndIf if nLastKey==VK_ESCAPE .and. oWndChild#NIL // Para ESC funcionar TOUCH SCREEN :( oWndChild:end() endif Return If( IsWindowEnabled( ::hWnd ) .and. nLastKey != VK_ESCAPE, ; DLGC_WANTALLKEYS, 0 ) Pode comentar esta alteração Sr. Manuel. Gracias e Parabéns pelo belo ...

METHOD Paint() CLASS TBtnBmp ... if ! Empty( ::cCaption ) nClr = If( IsWindowEnabled( ::hWnd ), ::nClrText, CLR_HGRAY ) SetTextColor( ::hDC, nClr ) // add the line ,show disable button ccaption/text color nTop = 2 * ( ::nHeight / 3 ) + If( ::lPressed, 1, 0 ...

... e do nada borrar a window do fundo, fiz isso e aparentemente resolveu: METHOD Paint() CLASS TSSay local n local nColorShadow, nColorLight if !IsWindowEnabled( ::hWnd ) && By Rossine return nil endif ::GetDC() if ::lActive for n := 1 to len( ::aCaption ) WSay( ::hWnd, ::hDC, ::nSTop ...