dlls

[okman]

guys i just made a dll to use with gamemaker. (gamemaker.nl) my objective was to prepare a dll to add an extra window to gm form(using the openwindow command in pb).

heres my code

Code: Select all

ProcedureDLL MyWin(Message$)

 OpenWindow(0, 100, 200, 195, 260, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget, Message$)
Repeat 
WaitWindowEvent()
    
     If #PB_Event_CloseWindow = 1 ; 
      Quit = 1
    
 EndIf 
 Until Quit = 1
    EndProcedure

it works fine. but if i press the close button on the new window obtained it doesnt close. plz help.

[Chris]

Try that:

Code: Select all

ProcedureDLL MyWin(Message$) 
  
  OpenWindow(0, 100, 200, 195, 260, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget, Message$) 
  Repeat 
    Select WaitWindowEvent() 
      Case #PB_Event_CloseWindow : Quit = 1 
    EndSelect
  Until Quit = 1
EndProcedure

or that

Code: Select all

ProcedureDLL MyWin(Message$) 
  
  OpenWindow(0, 100, 200, 195, 260, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget, Message$) 
  Repeat 
    If WaitWindowEvent() = #PB_Event_CloseWindow
      Quit = 1
    EndIf 
  Until Quit = 1 
EndProcedure

or that:

Code: Select all

ProcedureDLL MyWin(Message$) 
  
  OpenWindow(0, 100, 200, 195, 260, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget, Message$) 
  Repeat 
  Until WaitWindowEvent() = #PB_Event_CloseWindow
EndProcedure

The function WaitWindowEvent() must always return the value of #PB_Event_CloseWindow if you want to close the window.

Chris

[okman]

still the window doesnt close when clicked on x.

[NoahPhense]

still the window doesnt close when clicked on x.

This one works fine with 3.91 b1 ..

DLL

Code: Select all

ProcedureDLL MyWin(Message$) 
  
  OpenWindow(0, 100, 200, 195, 260, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget, Message$) 
  Repeat 
  Until WaitWindowEvent() = #PB_Event_CloseWindow 
EndProcedure

EXE

Code: Select all

If OpenLibrary(0, "test.dll")
  CallFunction(0, "MyWin", "testtesttest")
  CloseLibrary(0)
EndIf

End

You might experience a problem if you are not checking the Shared DLL option under Compiler Options...

- np

[neomancer]

Im a little new, but it worked.

if your still having problems

use

destroywindow_(WindowID(0))

i dont know if it will leave memory leaks tho, i dunno how to look for those