Como cargar la Ttaskpanel en un Panel de una dialog

Tengo una dialog con un Panel y un Browser, la intentar cargar la ttaskpanel en la dialog me da el siguiente error:

Error occurred at: 14-08-2010, 11:51:44
Error description: Error BASE/1075 Argument error: >
Args:
[ 1] = U
[ 2] = N 0

Stack Calls
===========
Called from: Source\texplbar.prg => TTASKPANEL:NEW(495)
Called from: Source\clienti.prg => MENU_CLIENTI(1404)

Parte del Codigo:

oApp():oPanel:=TPanel():New( 0,0,oApp():oDlg:nbottom - 26, nsplit, oApp():oDlg )

ACTIVATE DIALOG oApp():oDlg NOWAIT ;
ON INIT Menu_Clientes(oDCli,nSplit,oApp():oPanel)


FUNCTION Menu_Clientes(oDCli,nSplit,oPanel)

Local oTaskPanel

oApp():oTaskPanel= TTASKPANEL():New(,,,,,1,oPanel)

TASKGROUP "Tareas de Video" SPECIAL
TASKITEM "Reproducir todo"
TASKITEM "Obtener Imagenes desde una camara o un escaner"
TASKITEM "Copiar todos los elementos a un CD"
ENDTASKGROUP
TASKGROUP "Tareas de archivo y carpeta"
TASKITEM "Cambiar nombre a este archivo"
TASKITEM "Mover este archivo"
TASKITEM "Copiar este archivo"
TASKITEM "Publicar este archivo en web"
TASKITEM "Enviar este archivo por correo electronico"
TASKITEM "Eliminar este archivo"
ENDTASKGROUP
TASKGROUP "Otros sitios"
TASKITEM "Mi PC"
TASKITEM "Mis sitios de red"
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

oTaskPanel:Item(1):Item(1):Hide()

RETU NIL



Gracias

Hola DiGregorio,

A Simple vista veo los siguientes 2 Errores,

Primero el error que obtienes es porque se esta enlazando la libreria de fivewin antes de ttaskpanel.lib.

El segundo,

Hay que cambiar esta linea

Code:


oApp():oTaskPanel= TTASKPANEL():New(,,,,,1,oPanel)


por

Code:


DEFINE TASKPANEL oApp():oTaskPanel OF oPanel ANCHOR LEFT


Por k cambiar esto ?
Si es tu deseo puedes utlizar la TTaskpanel de forma 100% orientada a objetos sin ningun problema .... pero en este caso no puedes mesclar por lo menos en la definicion del Objeto TTaskpanel Comandos, OOP ... si ves el codigo en el archivo Taskpanel.prg veraz la razon.

Si te interesa crearla con 100% codigo OOP. yo te puedo proveer de un ejemplo solo hazmelo saber.

Saludos,

Andres Reyes

Andres Reyes wrote:Hola DiGregorio,

A Simple vista veo los siguientes 2 Errores,

Primero el error que obtienes es porque se esta enlazando la libreria de fivewin antes de ttaskpanel.lib.

El segundo,

Hay que cambiar esta linea

Code:


oApp():oTaskPanel= TTASKPANEL():New(,,,,,1,oPanel)


por

Code:


DEFINE TASKPANEL oApp():oTaskPanel OF oPanel ANCHOR LEFT


Por k cambiar esto ?
Si es tu deseo puedes utlizar la TTaskpanel de forma 100% orientada a objetos sin ningun problema .... pero en este caso no puedes mesclar por lo menos en la definicion del Objeto TTaskpanel Comandos, OOP ... si ves el codigo en el archivo Taskpanel.prg veraz la razon.

Si te interesa crearla con 100% codigo OOP. yo te puedo proveer de un ejemplo solo hazmelo saber.

Saludos,

Andres Reyes

Andres hize el cambio que me dijistes;

El primero entiendo lo que me dices pero no se como modificarlo.

El segundo ya yo habia probado tambien asi como tu me dices y obtengo este error:

Error description: Error BASE/1004 Class: 'NIL' has no exported method: SUSPENDLAYOUT
Args:
[ 1] = U

Stack Calls
===========
Called from: => SUSPENDLAYOUT(0)
Called from: source\taskpanel.prg => TASKPANELBEGIN(65)
Called from: Source\clienti.prg => CLIENTI(104)
Called from: source\stePyme.prg => (b)TAPPLICATION:ACTIVATE(371)


Gracias.

Gracias.

Hola DiGregorio,

Me refieron a k texplbar.prg pertenece a la Clase TExplorerBar de Fivewin ... necesitas enlazar la Libreria TTaskpanel.lib antes de FiveHX.lib,

Called from: Source\texplbar.prg => TTASKPANEL:NEW(495)

Saludos,

Andres Reyes

Andres Reyes wrote:Hola DiGregorio,

Me refieron a k texplbar.prg pertenece a la Clase TExplorerBar de Fivewin ... necesitas enlazar la Libreria TTaskpanel.lib antes de FiveHX.lib,

Called from: Source\texplbar.prg => TTASKPANEL:NEW(495)

Saludos,

Andres Reyes

Si eso ya lo cambie y perfecto pero tengo el siguiente error ahora:

Error description: Error BASE/1004 Class: 'NIL' has no exported method: SUSPENDLAYOUT
Args:
[ 1] = U

Stack Calls
===========
Called from: => SUSPENDLAYOUT(0)
Called from: source\taskpanel.prg => TASKPANELBEGIN(65)
Called from: Source\clienti.prg => CLIENTI(104)
Called from: source\stePyme.prg => (b)TAPPLICATION:ACTIVATE(371)

Hola DiGregorio,

Que version de Harbour y Fivewin Usas?

Andres Reyes wrote:Hola DiGregorio,

Que version de Harbour y Fivewin Usas?

xHarbour y FWH 10.7 xHarbour Compiler Build 1.2.1 y al BCC 582

Hola DiGregorio,

Prodrias compilar el siguiente ejemplo y decirme si te muestra el mismo error ?

Code:


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

PROCEDURE MAIN()

  LOCAL oDlg

  DEFINE DIALOG oDlg RESOURCE "Test"

  ACTIVATE DIALOG oDlg ON INIT oDlg_Init()


  RETURN

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

FUNCTION oDlg_Init()
  LOCAL oTaskPanel

      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

  RETURN nil


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


Hola DiGregorio,

Los Objetos TPanel necesitas definirlos dentro del metodo on Init del dialogo
ya que al definirlos antes en realidad no se crea el Objeto TPanel ...

eso esta provocando el error...

Andres Reyes wrote:Hola DiGregorio,

Los Objetos TPanel necesitas definirlos dentro del metodo on Init del dialogo
ya que al definirlos antes en realidad no se crea el Objeto TPanel ...

eso esta provocando el error...

Andres ya funziona perfecto, te explico:

En el Init tenia: ON INIT (aa(),Menu_Clienti( oApp():oDlg,oDCli,nSplit)
en vez de ser : ON INIT (aa(),Menu_Clienti( oApp():oPanel,oDCli,nSplit)

ya que era: oApp():oPanel:=TPanel():New( 0,0,oApp():oDlg:nbottom - 26, nsplit, oApp():oDlg )

Gracias por tu ayuda...ììì


Lo unico es que tengo que probar porque no me aparece la scrollbar cuando modifico los tamanos de la dialog, pero tengo que revisar.

Gracias

Hola DiGregorio,

Realmente necesitas que el Objeto padre del TTaskpanel sea oPanel ?

en este caso .. el scrollbar del TTaskpanel probablemente no se muestre ya que esta es solo mostrada cuando no cabe dentro de su objeto padre en este caso oPanel,

deberias de verificar si cuando cambias el tamano del Dialog tambien cambias el tamaño de oPanel.

Saludos
Andres Reyes

Andres Reyes wrote:Hola DiGregorio,

Realmente necesitas que el Objeto padre del TTaskpanel sea oPanel ?

en este caso .. el scrollbar del TTaskpanel probablemente no se muestre ya que esta es solo mostrada cuando no cabe dentro de su objeto padre en este caso oPanel,

deberias de verificar si cuando cambias el tamano del Dialog tambien cambias el tamaño de oPanel.

Saludos
Andres Reyes

Estimado Reyes:

Gracias por tu ayuda, no se veia el scrool por un problema de size con la tpanel donde yo colocaba la taskpanel, ahora funciona perfecto sin ningun problema, excelente classe.

Gracias por tu ayuda. Seguire probando cada una de sus caracteristicas y te seguire contando. Gracias.

DIGREGORIO wrote:

Andres Reyes wrote:Hola DiGregorio,

Realmente necesitas que el Objeto padre del TTaskpanel sea oPanel ?

en este caso .. el scrollbar del TTaskpanel probablemente no se muestre ya que esta es solo mostrada cuando no cabe dentro de su objeto padre en este caso oPanel,

deberias de verificar si cuando cambias el tamano del Dialog tambien cambias el tamaño de oPanel.

Saludos
Andres Reyes

Estimado Reyes:

Gracias por tu ayuda, no se veia el scrool por un problema de size con la tpanel donde yo colocaba la taskpanel, ahora funciona perfecto sin ningun problema, excelente classe.

Gracias por tu ayuda. Seguire probando cada una de sus caracteristicas y te seguire contando. Gracias.

Andres gracias por tu Ayuda, ya funziona bien, en efecto era un problema con el panel y el objeto Padre.

Di Gregorio