openwindow

[delikanli_19_82]

hallo leutz,

1) funktioniert dieset StickyWindow irgendwie nicht so wie er soll.

2) das mit dem Schließen der fenster klappt nicht so richtig. ich habe das gefühl, das beide fenster dieselben Ereignisse gegenseitig oder so abfragen.

Code: Alles auswählen

  Global other_wins.l = 1;
  
  Global id_search.l = 0;
  
  Procedure FrmSearch( x.l, y.l, w.l, h.l )
    
    mx.l = x.l + ( ( w.l - 300 ) / 2 )
    my.l = y.l + ( ( h.l - 160 ) / 2 )
    
    id_search.l = other_wins
    other_wins = other_wins + 1
    
    If OpenWindow( id_search, mx, my, 300, 160, ft_search.s, #PB_Window_MinimizeGadget )
      
      Repeat
        
      Until WaitWindowEvent() = #PB_Event_CloseWindow 
      
    EndIf
    
    StickyWindow(id_search, 1)
    
  EndProcedure

OpenWindow(0,0,0,600,600,"fenster", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MaximizeGadget | #PB_Window_MinimizeGadget | #PB_Window_SizeGadget)

Repeat

Event = WaitWindowEvent()

; ...

Until Event = #PB_Event_CloseWindow

End

[NicTheQuick]

Was hat das Problem mit dem Code zu tun?

Zu 2. rate ich mal blind 'EventWindow()'.

[delikanli_19_82]

wenn der FrmSearch geladen wird, so ist gerieht er in den hintergrund, sobald ich auf den hauptfenster klicke.

klicke ich am hauptfenster auf den "Schließen-Button" alios rote X, so geriet der Search-Fenster in dern vordergrund.

der soll aber logischerweise sofort vorne sein.

das mit dem EventWindow() konnte ich jetzt nicht nachvollziehen.

[delikanli_19_82]

so geht es jetzt mit dem StickyWindow:

Code: Alles auswählen

  Procedure FrmSearch( x.l, y.l, w.l, h.l )
    
    mx.l = x.l + ( ( w.l - 300 ) / 2 )
    my.l = y.l + ( ( h.l - 160 ) / 2 )
    
    id_search.l = other_wins
    other_wins = other_wins + 1
    
    If OpenWindow( id_search, mx, my, 300, 160, ft_search.s, #PB_Window_MinimizeGadget )
      
      
    EndIf
    
    StickyWindow(id_search, 1)
    
  EndProcedure

aber wenn ich den Search-Fenster schließe, geht das ganze Programm flirten. wieso?

[Kiffi]

@delikanli_19_82: StickyWindow() nach OpenWindow() und
vor die Eventschleife platzieren. Dann klappt's auch.

zu 2.: siehe NicTheQuick. Wenn ein PB_Event_CloseWindow
auftritt, solltest Du mit EventWindow() abfragen, welches
Fenster das Ereignis gemeldet hat und entsprechend reagieren.

Grüße ... Kiffi

[delikanli_19_82]

achso... ok, mach ich.

vielen dank euch beiden.

[Bisonte]

Du solltest beim #PB_Event_CloseWindow auch abfragen, welches Fenster dieses Event generiert hat, wenn Du mehrere Fenster geöffnet hast.

z.B. :

Code: Alles auswählen

If Event = #PB_Event_CloseWindow And EventWindow() = id_search
  CloseWindow(id_search)
EndIf

Edit: Ups .... da hab ich zu langsam getippt