codigo-base.el-foro.net
Would you like to react to this message? Create an account in a few clicks or log in to continue.
CHAT
Search
 
 

Display results as :
 


Rechercher Advanced Search

Latest topics
» Saludos Andres Reyes - MURIO ESTE FORO.?
Para Ariel, Dialog con TTaskpanel +xbrowse EmptyThu Oct 26, 2017 8:01 pm by joseluisysturiz

» Eliminar TaskGroup y Crear Uno nuevo en su misma ubicación
Para Ariel, Dialog con TTaskpanel +xbrowse EmptyWed Jun 27, 2012 3:09 pm by hjvargas

» ERROR AL EJECUTAR DEMO DE TTPANEL
Para Ariel, Dialog con TTaskpanel +xbrowse EmptyWed Oct 26, 2011 4:46 pm by Fidel Echavarrria

» ERROR AL COMPILAR MI SISTEMA TTASKPANEL.LIB|c_dibbmp
Para Ariel, Dialog con TTaskpanel +xbrowse EmptyWed Oct 26, 2011 3:42 pm by Andres Reyes

» Hola a todos
Para Ariel, Dialog con TTaskpanel +xbrowse EmptyWed Apr 27, 2011 12:44 am by Pedro

» Los saludos de un profesor de Ingles en Costa Rica soleada.
Para Ariel, Dialog con TTaskpanel +xbrowse EmptyWed Jan 26, 2011 4:03 pm by RichardBlank

» Con OutLook2003
Para Ariel, Dialog con TTaskpanel +xbrowse EmptyTue Jan 11, 2011 7:38 pm by Francis Barrimbhal

» Una sugerencia en cuanto a la distribución de la Lib
Para Ariel, Dialog con TTaskpanel +xbrowse EmptyTue Jan 11, 2011 7:25 pm by Francis Barrimbhal

» problema con la animación
Para Ariel, Dialog con TTaskpanel +xbrowse EmptyMon Aug 30, 2010 4:35 pm by armando.lagunas


Para Ariel, Dialog con TTaskpanel +xbrowse

Go down

Para Ariel, Dialog con TTaskpanel +xbrowse Empty Para Ariel, Dialog con TTaskpanel +xbrowse

Post  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 "<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
Andres Reyes
Andres Reyes
Admin

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

http://codigo-base.blogspot.com

Back to top Go down

Back to top

- Similar topics

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