ConfirmBox Owner wenn "minimized"

[AUGE_OHR]

hi,

irgendwie geht heut nix ...

Code: Alles auswählen

#include "Xbp.ch"
#include "Appevent.ch"

PROCEDURE  APPSYS
RETURN

FUNCTION   CENTERPOS( aSize, aRefSize )
RETURN { Int( (aRefSize[1] - aSize[1]) / 2 ) ;
       , Int( (aRefSize[2] - aSize[2]) / 2 ) }

PROCEDURE  Main
LOCAL nEvent, mp1, mp2, oXbp
LOCAL oDlg1, oDraw1
LOCAL aPos, aSize := {600,400}

   aPos := CENTERPOS(aSize,AppDesktop():currentSize())

   oDlg1          := XbpDialog():new( AppDesktop() ,, aPos, aSize )
   oDlg1:title    := "ConfirmBox Owner"
   oDlg1:tasklist := .T.
   oDlg1:create()

   oDraw1 := oDlg1:drawingArea

   oBtn   := XbpPushButton():new( oDraw1,, {10,10}, {580,30} )
   oBtn:caption := "Minimize Parent to test ConfirmBox Owner"
   oBtn:create()
   oBtn:activate := {|| TESTOWNER(oDlg1) }

   nEvent := 0
   DO WHILE nEvent <> xbeP_Close
      nEvent := AppEvent( @mp1, @mp2, @oXbp )
      oXbp:handleEvent( nEvent, mp1, mp2 )
   ENDDO
RETURN

PROCEDURE TESTOWNER(oDlg1)
LOCAL nButton := 0

   oDlg1:setFrameState(XBPDLG_FRAMESTAT_MINIMIZED)

   nButton := ConfirmBox( oDlg1:drawingArea , ;
                    "is Owner working correct while Parent is MINIMIZED ?", ;
                    "Parent / Owner ", ;
                     XBPMB_YESNO , ;
                     XBPMB_QUESTION+XBPMB_APPMODAL, ;
                     XBPMB_DEFBUTTON2 )

   IF nButton = XBPMB_RET_YES
      MSGBOX("are you shure ?")
   ELSE
      MSGBOX("so it is a BUG ?")
   ENDIF

   oDlg1:setFrameState(XBPDLG_FRAMESTAT_NORMALIZED)

RETURN

wie ihr seht "minimize" ich den oDlg1 welcher der "Owner" von
der ConfirmBox ist und ich habe auch XBPMB_APPMODAL gesetzt.

... dann dürfte ich die ConfirmBox doch nicht "sehen" oder was ist
falsch (gedacht) ?

gruss by OHR
Jimmy

[AUGE_OHR]

also eigendlich ist die Antwort ganz einfach :

ConfirmBox ist wie MsgBox eine "Windows Element" und hat als Parent
immer AppDeskTop() ... da hilft dann auch kein Owner.

gruss by OHR
Jimmy