(The Bug forum is locked so I'll post it here).
In version 1.04 the wrapper for Enable and Disable control is created in _Utility.inc with the following code:
Sub FF_Control_Enable (ByVal hWndControl As Dword)
' Do a check to ensure that this is actually a window handle
If IsWindow(hWndControl) Then
' Enable the window.
Function = EnableWindow(hWndControl, %TRUE)
End If
End Sub
'-- FF_Control_Disable --------------------------------------------
'
' Disable a Control or Form so that it no longer receives any
' messages or accepts user interaction.
'
' hWndControl: Handle of Control or Form (e.g. HWND_FORM1_COMMAND1)
'
'------------------------------------------------------------------
Sub FF_Control_Disable (ByVal hWndControl As Dword)
' Do a check to ensure that this is actually a window handle
If IsWindow(hWndControl) Then
' Disable the window.
Function = EnableWindow(hWndControl, %FALSE)
End If
End Sub
These are both subs and therefor generates error on line:
Function = EnableWindow(hWndControl, %FALSE)
Regards,
Gian
Also:
Function FF_EnumCharSet( _
elf As ENUMLOGFONT, _
ntm As NEWTEXTMETRIC, _
ByVal FontType As Long, _
CharSet As Long _
) As Long
CharSet = elf.elfLogFont.lfCharSet
End Function
seems incorrect since it does not return anything.
Gian
Thanks Gian,
:oops: I don't know what I was thinking there. I must have fell asleep as I was writing that one.
I have re-uploaded the zip file with the changes. Thanks for catching the problem.