Freezed graphics when moving a windowed game

@fabian - I tried your example code - works fine.


I tried to implement it in my code and from then I wasn't even able to move the mouse around - neither in the window nor in the title-area. Also strokes on the keyboard aren't recognized.

So I tried to add some events for keydown events - no change.

Function Hook:Object ( id , data:Object , context:Object )
  Local Event:TEvent = TEvent ( data )
  Select Event.source
    Case Null
      If Event.id = EVENT_MOUSEMOVE
	    Print "mousemove"
        MOUSEMANAGER.changeStatus()
	  EndIf
      If Event.id = EVENT_APPTERMINATE
        Ending = True
      EndIf
	  If Event.id = EVENT_KEYDOWN
	    Print "keydown"
	    KEYMANAGER.changeStatus()
	  End If
      If Event.id = EVENT_KEYDOWN And Event.data = KEY_ESCAPE
	    Print "esc"
        Ending = True
      EndIf
    Case mytimer
      If Event.id = EVENT_TIMERTICK
	    DrawMain()
      EndIf
  EndSelect
  Return data
EndFunction

Because of not recognizing keystrokes or klicks on [x] I also tried to close it by the contextmenu - but in this case its an empty one (no items to click on) which forces me to kill the program using the task manager.

EDIT: I removed some lines of code (something which is now commented out makes it stop working - but this will be another subject which does not fit here - and which I will find out myself - I hope ;D) and I think your source is working pretty well (ok it gets kind of slower while being dragged - but its a start)

EDIT2: I uncommented my first commented lines of code - and now it works (no changes made) - very strange. But as long as it works.

Big bags of thanks to fabian.

bye
MB