FiveTech Support Forums

#include "FiveWin.ch"
#include "XBrowse.ch"

FUNCTION Main()

   LOCAL oWndMain
   LOCAL oMenu

   MENU oMenu

  MENUITEM "&Archivo"

  MENU
     MENUITEM "&Salir" ;
        ACTION oWndMain:End()
  ENDMENU

  MENUITEM "&Ejemplos"

  MENU
     MENUITEM "&Abrir MDIChild" ;
        ACTION VentanaPrueba( oWndMain )
  ENDMENU

   ENDMENU

   DEFINE WINDOW oWndMain ;
      TITLE "Prueba MDI + Toolbar + XBrowse" ;
      MDI ;
      MENU oMenu

   ACTIVATE WINDOW oWndMain ;
      MAXIMIZED

RETURN NIL


// ----------------------------------------------------------------------
// Ventana MDI Child
// ----------------------------------------------------------------------

FUNCTION VentanaPrueba( oWndMain )

   LOCAL oWndChild
   LOCAL oBar
   LOCAL oBrw
   LOCAL oImgList
   LOCAL aDatos

   LOCAL oBmpNuevo
   LOCAL oBmpEditar
   LOCAL oBmpBorrar
   LOCAL oBmpSalir

   // -------------------------------------------------------------------
   // Array de prueba
   // -------------------------------------------------------------------

   aDatos := { ;
      { 1001, "Juan Pérez",      "Buenos Aires", 12500.50 }, ;
      { 1002, "María Gómez",     "Córdoba",        8300.00 }, ;
      { 1003, "Carlos López",    "Rosario",       15250.75 }, ;
      { 1004, "Ana Martínez",    "Mendoza",        9450.20 }, ;
      { 1005, "Pedro Sánchez",   "Neuquén",       18700.00 }, ;
      { 1006, "Laura Fernández", "La Plata",      11300.25 }, ;
      { 1007, "José Rodríguez",  "Quilmes",        7800.00 }, ;
      { 1008, "Marta González",  "Bernal",        22100.80 }  ;
   }

   // -------------------------------------------------------------------
   // MDIChild
   // -------------------------------------------------------------------

   DEFINE WINDOW oWndChild ;
      MDICHILD ;
      OF oWndMain ;
      TITLE "Clientes" ;
      FROM 30, 30 ;
      TO 550, 950 ;
      PIXEL

   // -------------------------------------------------------------------
   // Bitmaps
   //
   // Estos nombres deben existir en tu archivo .RC:
   //
   // NUEVO
   // EDITAR
   // BORRAR
   // SALIR
   //
   // -------------------------------------------------------------------

   DEFINE BITMAP oBmpNuevo  RESOURCE "NUEVO"
   DEFINE BITMAP oBmpEditar RESOURCE "EDITAR"
   DEFINE BITMAP oBmpBorrar RESOURCE "BORRAR"
   DEFINE BITMAP oBmpSalir  RESOURCE "SALIR"

   // -------------------------------------------------------------------
   // ImageList
   // -------------------------------------------------------------------

   oImgList := TImageList():New( 24, 24 )

   oImgList:AddMasked( oBmpNuevo,  RGB( 255, 0, 255 ) )
   oImgList:AddMasked( oBmpEditar, RGB( 255, 0, 255 ) )
   oImgList:AddMasked( oBmpBorrar, RGB( 255, 0, 255 ) )
   oImgList:AddMasked( oBmpSalir,  RGB( 255, 0, 255 ) )

   // -------------------------------------------------------------------
   // Toolbar
   // -------------------------------------------------------------------

   oBar := TToolBar():New( oWndChild, 32, 32, oImgList )

   oBar:AddButton( ;
      { || MsgInfo( "Nuevo registro", "Toolbar" ) }, ;
      "Nuevo", ;
      "Nuevo registro" )

   oBar:AddButton( ;
      { || MsgInfo( "Editar registro", "Toolbar" ) }, ;
      "Editar", ;
      "Editar registro" )

   oBar:AddButton( ;
      { || MsgInfo( "Borrar registro", "Toolbar" ) }, ;
      "Borrar", ;
      "Borrar registro" )

   oBar:AddSeparator()

   oBar:AddButton( ;
      { || oWndChild:End() }, ;
      "Salir", ;
      "Cerrar ventana" )

   // -------------------------------------------------------------------
   // XBrowse
   // -------------------------------------------------------------------

   @ 10, 0 XBROWSE oBrw ;
      OF oWndChild ;
      ARRAY aDatos ;
      AUTOCOLS ;
      PIXEL

   oBrw:aCols[ 1 ]:cHeader := "Código"
   oBrw:aCols[ 2 ]:cHeader := "Nombre"
   oBrw:aCols[ 3 ]:cHeader := "Localidad"
   oBrw:aCols[ 4 ]:cHeader := "Importe"

   oBrw:aCols[ 1 ]:nWidth := 80
   oBrw:aCols[ 2 ]:nWidth := 220
   oBrw:aCols[ 3 ]:nWidth := 160
   oBrw:aCols[ 4 ]:nWidth := 120

   oBrw:aCols[ 4 ]:nDataStrAlign := AL_RIGHT

   oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW

   oBrw:CreateFromCode()

   // -------------------------------------------------------------------
   // CLAVE DEL RESIZE
   //
   // FiveWin considera al browse como área cliente de la MDIChild.
   // Al redimensionar la ventana, el browse se adapta automáticamente.
   //
   // La Toolbar ya ocupa la parte superior.
   // -------------------------------------------------------------------

   oWndChild:oClient := oBrw

   // -------------------------------------------------------------------
   // Activar
   // -------------------------------------------------------------------

   ACTIVATE WINDOW oWndChild

RETURN NIL