Falsche Fensternummer über Scintillagadget

[Josh]

Hallo Leute,

handelt es sich hier um einen Fehler oder sehe ich da etwas falsch. Wenn ich meine Maus in Fenster 2 bewege und dann direkt in das Scintillagadget von Fenster 1 fahre, bekomme ich als EventWindow noch immer Fenster 2. Erst wenn ich aus dem Scintillagadget rausfahre, schlägt die Anzeige auf Fenster 1 um.

Code: Alles auswählen

EnableExplicit

Define PosX.w
Define PosY.w
Define event.i

OpenWindow(1, #PB_Ignore, #PB_Ignore, 500, 200, "Fenster 1", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
InitScintilla()
ScintillaGadget(1, 10, 10, 480, 180, 0)

OpenWindow(2, #PB_Ignore, #PB_Ignore, 200, 500, "Fenster 2", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)

Repeat
  event=WaitWindowEvent()

  Select event
    Case #WM_MOUSEMOVE
      PosX = EventlParam()       & $FFFF
      PosY = EventlParam() >> 16 & $FFFF
      Debug Str(EventWindow()) + " "  + Str(PosX) + " " + Str(PosY)
  EndSelect  

Until event = #PB_Event_CloseWindow

PB 4.60 x64
Win7 SP1

[mk-soft]

Dachte erste es ist ein Bug von Purebasic... Geht aber auch nicht mit API!

Code: Alles auswählen

EnableExplicit

Define.i PosX, PosY, event
Define.s temp
Define.i x, y, hWnd

OpenWindow(1, #PB_Ignore, #PB_Ignore, 500, 200, "Fenster 1", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
InitScintilla()
ScintillaGadget(1, 10, 10, 480, 180, 0)

OpenWindow(2, #PB_Ignore, #PB_Ignore, 200, 500, "Fenster 2", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)

Repeat
  event=WaitWindowEvent()

  Select event
    Case #WM_MOUSEMOVE
      
      x = DesktopMouseX()
      y = DesktopMouseY()
      
      hWnd = WindowFromPoint_(y << 32 | x)
      Select hWnd
        Case WindowID(1)
          temp = "Fenster 1:"
        Case WindowID(2)
          temp = "Fenster 2:"
      EndSelect
     
      PosX = EventlParam()       & $FFFF
      PosY = EventlParam() >> 16 & $FFFF
      Debug temp + " "  + Str(X) + " " + Str(Y)
  EndSelect 

Until event = #PB_Event_CloseWindow

[mk-soft]

Mit ContainerGadget geht es auch nicht, aber so...

Code: Alles auswählen

EnableExplicit

Define.i PosX, PosY, event
Define.s temp
Define.i x, y, hWnd

OpenWindow(1, #PB_Ignore, #PB_Ignore, 500, 200, "Fenster 1", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
InitScintilla()

ScintillaGadget(1, 10, 10, 480, 180, 0)

OpenWindow(2, #PB_Ignore, #PB_Ignore, 200, 500, "Fenster 2", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
ScintillaGadget(2, 0, 0, 200, 500, 0)

Repeat
  event=WaitWindowEvent()

  Select event
    Case #WM_MOUSEMOVE
      
      x = DesktopMouseX()
      y = DesktopMouseY()
      
      hWnd = WindowFromPoint_(y << 32 | x)
      Select hWnd
        Case GadgetID(1)
          temp = "Fenster 1:"
        Case GadgetID(2)
          temp = "Fenster 2:"
      EndSelect
     
      PosX = EventlParam()       & $FFFF
      PosY = EventlParam() >> 16 & $FFFF
      Debug temp + " "  + Str(PosX) + " " + Str(PosY)
  EndSelect 

Until event = #PB_Event_CloseWindow

[ts-soft]

http://www.purebasic.fr/english/viewtop ... 50#p383850

[Josh]

Ich habe es mit den Windowevents dann schon hingebracht. Aber trotzdem danke.