CHAT
Search
 
 

Display results as :
 


Rechercher Advanced Search

Latest topics

Ejemplo de uso TTaskpanel + xBrowse en ventana MDI Child

View previous topic View next topic Go down

Ejemplo de uso TTaskpanel + xBrowse en ventana MDI Child

Post  Andres Reyes on 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 "<b>TTaskPanel()</b>" + ;
                    "<p>Clase para la creacion de paneles de tareas</p>"+;
                    "<p><b>Autor</b></p>" +;
                    "<p>Andres Reyes Hernandez</p>" 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
avatar
Andres Reyes
Admin

Posts : 38
Reputation : 3
Join date : 2010-06-23
Age : 37
Location : Mazatlan, Sinaloa, Mexico

View user profile http://codigo-base.blogspot.com

Back to top Go down

View previous topic View next topic Back to top


 
Permissions in this forum:
You cannot reply to topics in this forum