FF_Control_GetFont Problem

[Elias Montoya]

I am using this:

Code Select Expand

hFont     = FF_Control_GetFont(HWND_CUSTOMPROPERTIES_LABEL2)

The label is valid and has a font, however, hFont receives a null value (0), ideas?

[Elias Montoya]

 I found the problem in the generated source code...

Code Select Expand

'------------------------------------------------------------------
FUNCTION FF_Control_GetFont (BYVAL hWndControl AS DWORD) AS LONG
   
    ' Do a check to ensure that this is actually a window handle
    IF IsWindow(hWndControl) THEN 
       
       ' Get the current font
         SendMessage hWndControl, %WM_GETFONT, 0, 0
       
    END IF
       
END FUNCTION   

Should Be...

Code Select Expand

'------------------------------------------------------------------
FUNCTION FF_Control_GetFont (BYVAL hWndControl AS DWORD) AS LONG
   
    ' Do a check to ensure that this is actually a window handle
    IF IsWindow(hWndControl) THEN 
       
       ' Get the current font
        FUNCTION = SendMessage(hWndControl, %WM_GETFONT, 0, 0)

    END IF
       
END FUNCTION  

[TechSupport]

Hi Elias,

Right you are! I can't believe I never noticed that error over the last couple of years. I guess that I don't use the GetFont function.