PC Toledo

Código: Selecionar todos

// Two folders at a time! Wow!

// New, much, much simpler!!!

#include "FiveWin.ch"
#include "Folder.ch"

//----------------------------------------------------------------------------//

function Main()

   local oDlg, oFld1, oFld2
   local cItem

   SET _3DLOOK ON

   DEFINE DIALOG oDlg RESOURCE "Test"

   REDEFINE FOLDER oFld1 ID 110 OF oDlg ;
      PROMPT "&Clipper", "&and", "&Windows", "&Magic" ;
      DIALOGS "Sub1", "Sub2"

   REDEFINE COMBOBOX cItem ITEMS { "One", "Two", "Three" } ;
      ID 105 OF oFld1:aDialogs[ 1 ]

   REDEFINE BUTTON ID 110 OF oFld1:aDialogs[ 1 ] ;   // Redefining a child
      ACTION MsgInfo( "First Page" )                // control !!!

   REDEFINE BUTTON ID 104 OF oFld1:aDialogs[ 2 ] ;   // Redefining a child
      ACTION MsgInfo( "Second Page" )               // control !!!

   REDEFINE FOLDER oFld2 ID 120 OF oDlg ;
      PROMPT "&The", "&beauty", "&and power", "&of xBase" ;
      DIALOGS "The", "Beauty"

   oDlg:aControls[ 2 ]:aDialogs[ 1 ]:bRClicked = ;
       { || MsgInfo( oDlg:aControls[ 2 ]:aDialogs[ 1 ]:hWnd ) }

   ACTIVATE DIALOG oDlg CENTERED

return nil


procedure AppSys  // XBase++ requirement

return

//----------------------------------------------------------------------------//