Paul,
I was just looking at the code generated par FireFly in the main file CODEGEN_MYPROJECT_MAIN.bas; there are 5 identical lines to load the SiGrid.dll; is it because I have 5 grid on my project ?
I post the code because I think you would like to see it.
Jean-Pierre
Function WinMain (ByVal hInstance As Dword, _
ByVal hPrevInstance As Dword, _
ByVal lpCmdLine As Asciiz Ptr, _
ByVal iCmdShow As Long) As Long
Local Msg As tagMsg
Local hWndForm As Dword
Local FF_Result As Long
Local wce As WndClassEx
Local uCC As INIT_COMMON_CONTROLSEX
'Initialize the common controls module..
uCC.dwSize = SizeOf(uCC)
uCC.dwICC = %ICC_NATIVEFNTCTL_CLASS or %ICC_COOL_CLASSES Or %ICC_BAR_CLASSES Or %ICC_TAB_CLASSES Or %ICC_USEREX_CLASSES Or %ICC_WIN95_CLASSES _
Or %ICC_STANDARD_CLASSES Or %ICC_ANIMATE_CLASS Or %ICC_DATE_CLASSES Or %ICC_HOTKEY_CLASS Or %ICC_INTERNET_CLASSES _
Or %ICC_LISTVIEW_CLASSES Or %ICC_PAGESCROLLER_CLASS Or %ICC_PROGRESS_CLASS Or %ICC_TREEVIEW_CLASSES Or %ICC_UPDOWN_CLASS
If InitCommonControlsEx(uCC) = 0 Then
InitCommonControls 'Win95A
End If
'Define variable used to uniquely identify this application. This is used
'by the FireFly function FF_PrevInstance.
gFF_AppID = "MYPROJECT_MAIN"
'Define Control Arrays if necessary
Call FF_InitializeVariables
Call FF_SetAppVariables
'Initialize the ATL71 DLL if necessary. This is used when we have OCX's.
'Call the Function FF_Main(). If that function returns True
'then cease to continue execution of this program.
If FF_WINMAIN(hInstance, hPrevInstance, lpCmdLine, iCmdShow) Then Exit Function
'Load any 3rd party custom controls that need to use LoadLibrary or perform
'an Initialization routine.
FF_Result = LoadLibrary("SIGRID.DLL")
If FF_Result = 0 Then MsgBox "Could not LoadLibrary 3rd party custom control: SIGRID.DLL", %MB_ICONWARNING, "FireFly Error"
FF_Result = LoadLibrary("SIGRID.DLL")
If FF_Result = 0 Then MsgBox "Could not LoadLibrary 3rd party custom control: SIGRID.DLL", %MB_ICONWARNING, "FireFly Error"
FF_Result = LoadLibrary("SIGRID.DLL")
If FF_Result = 0 Then MsgBox "Could not LoadLibrary 3rd party custom control: SIGRID.DLL", %MB_ICONWARNING, "FireFly Error"
FF_Result = LoadLibrary("SIGRID.DLL")
If FF_Result = 0 Then MsgBox "Could not LoadLibrary 3rd party custom control: SIGRID.DLL", %MB_ICONWARNING, "FireFly Error"
FF_Result = LoadLibrary("SIGRID.DLL")
If FF_Result = 0 Then MsgBox "Could not LoadLibrary 3rd party custom control: SIGRID.DLL", %MB_ICONWARNING, "FireFly Error"
' Create the Startup Form.
MAIN_Show %HWND_DESKTOP, %TRUE
Function = msg.wParam
End Function
hmmm, yes, that does not seem right. I will fix the code so that the library is only loaded once. I will upload a new FireFly package this weekend.
Thank you Paul !
This is now fixed and will be in the 2.60 update.