Para Ariel, Dialog con TTaskpanel +xbrowse

**Andres Reyes** 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 "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:oLeft := oTaskPanel oWnd:oClient := oBrw oWnd:Resize() RETURN nil

Saludos,

Andres