PlanetSquires Forums

Support Forums => Other Software and Code => Topic started by: Richard Marchessault on June 02, 2015, 05:40:10 PM

Title: MLG and FB
Post by: Richard Marchessault on June 02, 2015, 05:40:10 PM
How might MLG be used in a FB project using FireFly?
Title: Re: MLG and FB
Post by: James Klutho on June 02, 2015, 06:18:31 PM
I don't have headers (.bi) or an object file built for freebasic.  You could call MLG_Init dynamically and use messages for now

DIM hLib as DWORD
DIM hProc as DWORD

hLib = LoadLibrary("MLG.DLL")

IF hLib <> 0 THEN
   hProc = GetProcAddress(hLib, "MLG_INIT")
   IF hProc <> 0 THEN CALL DWORD hProc USING MLG_INIT()
   'FreeLibrary hLib  when your program exits
END IF

hGrid1 = CreateWindow("MYLITTLEGRID", "r500/c10/b3",%MLG_STYLE,4, 4, 765, 555,hDlg, %IDC_MLGGRID1, GetWindowLong(hDlg, %GWL_HINSTANCE), BYVAL 0)