FiveTech Software tech support forums

It returns a numeric. So you can't use :hide()

oWdlg:hide()

cannot be replaced with

hDlg := GetActiveWindow( )
hDlg:hide()


However, this does work:

hDlg := GetActiveWindow( )
ShowWindow( hDlg, 0 ) // Hides
then
ShowWindow( hDlg, 1 ) // Shows it again in normal size

Thank you.

the class vMenu is from Tcontrol and have this method there is an error on this line METHOD Initiate( hDlg ) INLINE Super:Initiate( hDlg ), ::Default() Error occurred at: 05/17/17, 19:09:52 Error description: Error BASE/1003 Variable does not exist: SUPER sorry but where is ...

... with xharbour on Habour make me an error on these lines Error description: Error BASE/1003 Variabile inesistente: SUPER ( line 89) METHOD Init ( hDlg ) INLINE Super:Init ( hDlg ), ::Default() METHOD Initiate( hDlg ) INLINE Super:Initiate( hDlg ), ::Default() ===========   Path and name: C:\Work\Prg\Agenda ...

Cámbiala asi:

METHOD Initiate( hDlg ) INLINE ::Super:Initiate( hDlg ), ::Default()

... 1 #define PSNRET_INVALID_NOCHANGEPAGE 2 #define PSNRET_MESSAGEHANDLED 3 #define PSM_SETCURSEL (WM_USER + 101) #define PropSheet_SetCurSel(hDlg, hpage, index) \ SNDMSG(hDlg, PSM_SETCURSEL, (WPARAM)index, (LPARAM)hpage) #define PSM_REMOVEPAGE (WM_USER + 102) #define PropSheet_RemovePage(hDlg, ...

I modify now: DATA oOut READONLY DATA nTime READONLY AS NUMERIC INIT 0 METHOD Initiate( hDlg ) INLINE Super:Initiate( hDlg ), ::Default() on New method if ! Empty( ::oWnd:hWnd ) ::Create() ::oWnd:AddControl( Self ) else ::oWnd:DefControl( Self ) endif on Default method ...

... por AddControl() que es de TWINDOW, común a todo y todos. Lo que no llego a entender es porque ahora si funciona GetDlgItem() y antes no, pues hDlg no venía como 0 y se refería al mismo TPANEL. Pero bueno, lo importante es que funciona y que me has sacado de un apuro. Muchas gracias otra vez.

... inicializa todos sus controles pero no ese TSAY porque no le pertenece, pertenece al TPANEL. La solución pasaría por definirle un METHOD INITIATE( hDlg ) al uso al TPANEL añadiéndole al final: IF ::aControls # NIL  ASend( ::aControls, "INITIATE()", ::hWnd )ENDIF Pero aparece otro ...

... sino a mano con @ 10,10 .... . Segundo lo que falla es el TSAY que no se asocia con el panel. La línea del INITiATE: IF( ( ::hWnd := GetDlgItem( hDlg,::nId ) ) # 0 ) me devuelve 0 y creo que es porque no reconoce ::nId como item del panel. Seguramente tendrá algo que ver que no viene de recurso ...

... desde mi proyecto (esto tambien lo he hecho muchas veces sin problemas), esta fallando en el metodo initiate la linea que indica Super:Initiate( hDlg ) revienta con el error, Error description: Error BASE/1003 No existe la variable: SUPER Stack Calls =========== Called from: source\tget.prg => ...

... * Fix: Class TWindow Methods Hide() and Show() were not modifying DATA lVisible, now it is ok. * Enhancement: function SetWindowTheme( hWnd or hDlg or hControl ) can be used to disable the themes style for a specific window, dialog or control. FWH automatically converts SetWindowTheme( hWnd ...

Antonio,

GetDlgItem( hDlg, nID ) allways returned 0 but oDlg:getitem(nID) is working fine.
The only problem I have now is to redefine a control in the function called in the ON INIT,it doesn't work.
Is it an other syntax I have to use?

Regards,
Marc

Marc, You could use: GetDlgItem( hDlg, nID ) --> hControl hControl will be zero if such control does not exist. The problem with this function is that you can not use it until you have the hWnd of the dialog, in other words: it will only ...

... porque no funciona: En el XBrowse de la versión que uso hay un bug que impide que funcione correctamente. En el método Initiate() hace if hDlg != nil Super:Initiate( hDlg ) ::SetColor( CLR_BLACK, GetSysColor( COLOR_WINDOW ) ) endif ignorando cualquier setcolor que hayas puesto. Lo correcto ...

... allows the structure to be used to create a dialog box or position a control within a dialog box. Syntax CopyBOOL WINAPI MapDialogRect( __in HWND hDlg, __inout LPRECT lpRect ); // ----- FWH - Function ----------------- DLL32 FUNCTION MapDialRec; ( hDlg AS LONG, @lpRect AS LPSTR ) ; // RECT AS ...