home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTMDI.PRG < prev    next >
Text File  |  1994-05-08  |  1KB  |  57 lines
  1. #include "FiveWin.ch"
  2.  
  3. static oWnd
  4.  
  5. //----------------------------------------------------------------------------//
  6.  
  7. function Main()
  8.  
  9.    local oWndEdit, oBar
  10.    local cName := "FiveWin 1.5 power"
  11.  
  12.    DEFINE WINDOW oWnd FROM 1, 1 TO 20, 70 TITLE "Testing MDI" ;
  13.       MDI ;
  14.       MENU BuildMenu() // COLOR "GR+*/RB"
  15.  
  16.    SET MESSAGE OF oWnd TO "Main Window"
  17.  
  18.    DEFINE WINDOW oWndEdit MDICHILD OF oWnd FROM 2, 2 TO 20, 50 ;
  19.       TITLE "I am a MDI Child" COLOR "W+/W"
  20.  
  21.    @ 4, 2 GET cName OF oWndEdit SIZE 170, 25 COLOR "BG+/B"
  22.  
  23.    DEFINE BUTTONBAR oBar OF oWndEdit
  24.  
  25.    DEFINE BUTTON OF oBar
  26.  
  27.    SET MESSAGE OF oWndEdit TO "Child Window"
  28.  
  29.    ACTIVATE WINDOW oWnd MAXIMIZED
  30.  
  31. return nil
  32.  
  33. //----------------------------------------------------------------------------//
  34.  
  35. function BuildMenu()
  36.  
  37.    local oMenu
  38.  
  39.    MENU oMenu
  40.       MENUITEM OemToAnsi( "&Información" )
  41.       MENU
  42.          MENUITEM "&Acerca de..."
  43.          SEPARATOR
  44.          MENUITEM "&Terminar..."
  45.       ENDMENU
  46.  
  47.       MENUITEM "&Child Windows"
  48.       MENU
  49.          MENUITEM "&Mosaico" ACTION oWnd:Tile()
  50.          MENUITEM "&Cascada" ACTION oWnd:Cascade()
  51.       ENDMENU
  52.    ENDMENU
  53.  
  54. return oMenu
  55.  
  56. //----------------------------------------------------------------------------//
  57.