Ejemplo de uso TTaskpanel + xBrowse en ventana MDI Child

**Andres Reyes** Mon Jul 05, 2010 5:45 pm

Code:: #include "fivewin.ch" #include "taskpanel.ch" #include "xbrowse.ch" PROCEDURE MAIN() LOCAL oWnd, oMenu MENU oMenu MENUITEM "&Archivo" MENU MENUITEM "&Salir" ACTION oWnd:End() ENDMENU oMenu:AddMdi() ENDMENU //Definimos la Ventana Principal DEFINE WINDOW oWnd ; FROM 0, 0 TO 720, 900 PIXEL ; TITLE "TTaskPanel 1.0" ; COLOR CLR_WHITE, CLR_GRAY ; MENU oMenu ; ICON "#1" MDI ACTIVATE WINDOW oWnd On Init BrowseTest() RETURN //----------------------------------------------------------------------------// FUNCTION BrowseTest() LOCAL oWnd, oBrw, oTaskPanel, aArray, nFor DEFINE WINDOW oWnd TITLE "MDI Test Taskpanel & Browse" MDICHILD FROM 10, 10 TO 650, 800 PIXEL oWnd:Hide() DEFINE TASKPANEL oTaskPanel ANCHOR LEFT TASKGROUP "Tareas de Video" BITMAP "HEADER1" SPECIAL WATERMARK "WATERMARK" TASKITEM "Reproducir todo" BITMAP "ICON1" TOOLTIP "Tooltip de Prueba 1" TASKITEM "Obtener Imagenes desde una camara o un escaner" BITMAP "ICON2" TASKITEM "Copiar todos los elementos a un CD" BITMAP "ICON3" ENDTASKGROUP TASKGROUP "Tareas de archivo y carpeta sa" TASKITEM "Cambiar nombre a este archivo" BITMAP "ICON4" TASKITEM "Mover este archivo" BITMAP "ICON5" TASKITEM "Copiar este archivo" BITMAP "ICON6" TASKITEM "Publicar este archivo en web" BITMAP "ICON7" TASKITEM "Enviar este archivo por correo electronico" BITMAP "ICON8" TASKITEM "Eliminar este archivo" BITMAP "ICON9" ENDTASKGROUP TASKGROUP "Otros sitios" TASKITEM "Mi PC" BITMAP "ICON10" TASKITEM "Mis sitios de red" BITMAP "ICON11" ENDTASKGROUP TASKGROUP "Detalles" NO COLLAPSABLE TASKITEM "TTaskPanel()" + ; "Clase para la creacion de paneles de tareas"+; "Autor" +; "Andres Reyes Hernandez" INFO ENDTASKGROUP ENDTASKPANEL aArray := {} aAdd( aArray , { "Juan Domingo Lopez Aramburo", "Rio Panuco #454645", "6699843023"} ) aAdd( aArray , { "Mario Rosales Montevideo", "Rio Presidio #546564", "6699879788"} ) aAdd( aArray , { "Felipe de Jesus Ramirez Lopez", "Rio de la Loma #18795", "6695644556"} ) aAdd( aArray , { "Renesio Recto", "Rio Florido #56546", "6699565464"} ) oBrw := TXBrowse():New( oWnd ) oBrw:SetArray( aArray ) oBrw:aCols[1]:cHeader := "Nombre" oBrw:aCols[2]:cHeader := "Direccion" oBrw:aCols[3]:cHeader := "Telefono" oBrw:CreateFromCode() oWnd:setControl(oBrw) ACTIVATE WINDOW oWnd RETURN Nil //----------------------------------------------------------------------------//

Saludos,

Andres Reyes