check if a control is hidden or not

[ellano]

Could someone please tell me how to detect a hidden control?

I've tried:

Code: Select all  Expand view

REDEFINE BUTTONBMP ID 505 OF oFld:aDialogs[3] ;   //show images
         ACTION ( msgstop( GetNMHDRHWndFrom( oBmp[3]:oDlg ) ), ;
         Show_Hide_Img(.F., .T., oDbf, oDlg, @oBmp, @cText, aPedg, cImages) );
         BITMAP ".\images\camera.bmp"
REDEFINE IMAGE oBmp[3]   ID 400 OF oFld:aDialogs[3] ADJUST UPDATE

msgstop( IsWindowVisible( oBmp[3]:oDlg ) )
msgstop( IsWindowVisible( ::oBmp[3]:oDlg ) )
msgstop( IsWindowVisible( oBmp[3]:oDlg:hWnd ) )
msgstop( IsWindowVisible( ::oBmp[3]:oDlg:hWnd ) )

msgstop( IsWindowVisible( oDlg:hWnd ) )  //<-- this works but I do not need to know if the dialog is hidden, but if the control oBmp [3] of the dialog oDlg has been hidden

I get "Error BASE/1004 Message not found: TIMAGE:ODLG"

[ellano]

Since this was urgent I solve it like this:

Code: Select all  Expand view

LOCAL lHide:=.F.
...
REDEFINE BUTTONBMP ID 505 OF oFld:aDialogs[3] ;   //show images
         ACTION ( lHide:= !lHide, ;
         Show_Hide_Img(lHide, .T., oDbf, oDlg, @oBmp, @cText, aPedg, cImages) );
         BITMAP ".\images\camera.bmp"
REDEFINE IMAGE oBmp[3]   ID 400 OF oFld:aDialogs[3] ADJUST UPDATE
...
 

But it will be nice to know the "right" way

Thanks
Emiliano Llano Díaz

[Enrico Maria Giordano]

Code: Select all  Expand view

msgstop( IsWindowVisible( oBmp[3]:hWnd ) )

EMG

[ellano]

The only variation I did not try!



Thanks

ELLD

Code: Select all  Expand view

REDEFINE BUTTONBMP ID 505 OF oFld:aDialogs[3] ;   //Show photo
         ACTION Hide_Image( IsWindowVisible(oBmp[3]:hWnd), .T., oDbf, oDlg, @oBmp, @cText, aPedg, cImage) ;
         BITMAP ".\images\camera.bmp"
REDEFINE IMAGE oBmp[3]   ID 400 OF oFld:aDialogs[3] ADJUST UPDATE