Class XbpDialog() Foundation

// The example demonstrates parent, owner, and child 
// relationships. Two dialog windows are created. 
// The first dialog has the "application window" 
// as its parent. The second dialog window can be 
// positioned freely on the screen, because the parent 
// is the desktop window. The owner is the same for 
// both dialog windows and is the "application window". 
// When the "application window" is minimized or moved, 
// the same action is executed for both dialog windows. 
// Both dialog windows include pushbuttons that control 
// the dialog windows. 

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

PROCEDURE  Main 
   LOCAL nEvent, mp1, mp2, oXbp 
   LOCAL oDlg1, oDlg2, oDraw1, oDraw2, oBtn, bSetFocus, bKillFocus 

   SetColor("N/W") 
   CLS 

   bSetFocus  := {|mp1,mp2,obj| ; 
                   QOut( obj:title, "received the focus") } 

   bKillFocus :=  {|mp1,mp2,obj| ; 
                   QOut( obj:title, "lost the focus") } 

   // Create dialog window which can only be 
   // positioned within the application window 
   oDlg1         := XbpDialog():new( ,, {50,30}, {300,200} ) 
   oDlg1:title   := "Parent is Application Window" 
   oDlg1:create() 
   oDlg1:setDisplayFocus  := bSetFocus 
   oDlg1:killDisplayFocus := bKillFocus 

   oDraw1 := oDlg1:drawingArea 

   // Create two pushbuttons in the dialog window (children) 
   // The parent of the pushbuttons is :drawingArea ! 
   oBtn         := XbpPushButton():new( oDraw1 ,, {10,10}, {100,30} ) 
   oBtn:caption := "Dialog 2" 
   oBtn:create() 
   oBtn:activate := {|| ; 
      IIf( oDlg2:getFrameState()==XBPDLG_FRAMESTAT_MINIMIZED, ; 
           oDlg2:setFrameState(XBPDLG_FRAMESTAT_NORMALIZED),NIL),; 
           SetAppFocus( oDlg2 ), QOut("Dialog 2") } 

   oBtn         := XbpPushButton():new( oDraw1,, {160,10}, {100,30} ) 
   oBtn:caption := "Maximize" 
   oBtn:create() 
   oBtn:activate := ; 
      {|| oDlg1:setFrameState( XBPDLG_FRAMESTAT_MAXIMIZED ) } 

   // Create dialog window that can be 
   // positioned outside the application window 
   oDlg2       := XbpDialog():new( ,, {400,300}, {500,300} ) 
   oDlg2:title := "Parent is Desktop - Owner is Application" 
   oDlg2:create( AppDesktop(), SetAppWindow() ) 
   oDlg2:setDisplayFocus  := bSetFocus   //  ^ this is the owner 
   oDlg2:killDisplayFocus := bKillFocus 

   oDraw2 := oDlg2:drawingArea 

   // Create pushbutton that shifts the focus 
   // to the first dialog window 
   oBtn         := XbpPushButton():new( oDraw2 ,, {10,10}, {100,30} ) 
   oBtn:caption := "Dialog 1" 
   oBtn:create() 
   oBtn:activate := {|| ; 
      IIf( oDlg1:getFrameState()==XBPDLG_FRAMESTAT_MINIMIZED   , ; 
           oDlg1:setFrameState(XBPDLG_FRAMESTAT_NORMALIZED), NIL), ; 
           SetAppFocus( oDlg1 ), QOut("Dialog 1") } 

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

// The example demonstrates how a menu can be 
// constructed within a dialog window. A menu bar 
// is created with only one menu item that calls 
// a submenu. 

#include "Appevent.ch" 

PROCEDURE  Main 
   LOCAL nEvent, mp1, mp2, oXbp 
   LOCAL oDlg, oMenuBar, oMenu 

   SetColor("N/W") 
   CLS 

   // Create dialog 
   oDlg         := XbpDialog():new( AppDesktop() ,, ; 
                                    {30,50}, {400,250} ) 
   oDlg:title   := "Xbase++ Dialog with Menubar" 
   oDlg:create() 

   // Create XbpMenubar in the dialog 
   oMenuBar     := oDlg:menuBar() 

   // Create submenu and specify the menu bar as parent 
   oMenu        := XbpMenu():New( oMenuBar ):create() 
   oMenu:title  := "~SubMenu" 
   oMenu:addItem( { "~First ", {|| QOut("First") } } ) 
   oMenu:addItem( { "~Second", {|| QOut("Second")} } ) 

   // Attach submenu to menu bar 
   oMenubar:addItem( { oMenu, NIL } ) 

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