CHAT
Search
 
 

Display results as :
 


Rechercher Advanced Search

Latest topics

Para Ariel, Dialog con TTaskpanel +xbrowse

View previous topic View next topic Go down

Para Ariel, Dialog con TTaskpanel +xbrowse

Post  Andres Reyes on Sat Jul 24, 2010 4:37 pm

Ariel, Aqui el ejemplo que utilice:

testdialog.rc
Code:

#include <windows.h>

1 24 "resource\windows.manifest"

1          ICON        "resource\Taskpanel.ico"

WATERMARK  BITMAP32    "resource\watermark.bmp"

HEADER1    BITMAP32    "resource\Header1.bmp"
ICON1      BITMAP32    "resource\Bitmap1.bmp"
ICON2      BITMAP32    "resource\Bitmap2.bmp"
ICON3      BITMAP32    "resource\Bitmap3.bmp"
ICON4      BITMAP32    "resource\Bitmap4.bmp"
ICON5      BITMAP32    "resource\Bitmap5.bmp"
ICON6      BITMAP32    "resource\Bitmap6.bmp"
ICON7      BITMAP32    "resource\Bitmap7.bmp"
ICON8      BITMAP32    "resource\Bitmap8.bmp"
ICON9      BITMAP32    "resource\Bitmap9.bmp"
ICON10      BITMAP32    "resource\Bitmap10.bmp"
ICON11      BITMAP32    "resource\Bitmap11.bmp"

LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL
TEST DIALOG 0, 0, 405, 249
STYLE DS_3DLOOK | DS_CENTER | DS_MODALFRAME | DS_FIXEDSYS | WS_VISIBLE | WS_BORDER | WS_CAPTION | WS_DLGFRAME | WS_POPUP | WS_SYSMENU
CAPTION "Dialog"
FONT 8, "Ms Shell Dlg 2"
{
    CONTROL        "", 100, "TTASKPANEL", 0x50020000, 0, 0, 200, 249
}

testdialog.prg
Code:


#include "fivewin.ch"
#include "taskpanel.ch"

PROCEDURE MAIN()

  LOCAL oDlg, oTaskPanel


  DEFINE DIALOG oDlg RESOURCE "Test"

      REDEFINE TASKPANEL oTaskPanel ID 100 ANIMATE

  ACTIVATE DIALOG oDlg ON INIT oDlg_Init( oTaskPanel )



  RETURN

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

FUNCTION oDlg_Init( oTaskPanel )
  LOCAL oWnd := oTaskPanel:oWnd
  LOCAL oBrw, aArray
  LOCAL cNombre := Space(256)
  LOCAL cParte  := Space(256)
  LOCAL cBuscar := ""
  LOCAL cTipo  := ""
  LOCAL aCheck  := { .T., .F., .T., .F., .F. }
  LOCAL nRadio  := 1


      DEFINE TASKPANEL oTaskPanel
        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"
            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:oLeft  := oTaskPanel
      oWnd:oClient := oBrw
     oWnd:Resize()
    

  RETURN nil

Saludos,

Andres
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

- Similar topics

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