CHAT
Search
 
 

Display results as :
 


Rechercher Advanced Search

Latest topics

Como cargar la Ttaskpanel en un Panel de una dialog

View previous topic View next topic Go down

Como cargar la Ttaskpanel en un Panel de una dialog

Post  DIGREGORIO on Sat Aug 14, 2010 3:56 am

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

DIGREGORIO

Posts : 7
Reputation : 0
Join date : 2010-08-14

View user profile

Back to top Go down

Re: Como cargar la Ttaskpanel en un Panel de una dialog

Post  Andres Reyes on Sat Aug 14, 2010 7:56 am

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

_________________
-- { http://codigo-base.blogspot.com } ----
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

Re: Como cargar la Ttaskpanel en un Panel de una dialog

Post  DIGREGORIO on Sat Aug 14, 2010 8:42 am

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.


Last edited by DIGREGORIO on Sat Aug 14, 2010 8:57 am; edited 1 time in total

DIGREGORIO

Posts : 7
Reputation : 0
Join date : 2010-08-14

View user profile

Back to top Go down

Re: Como cargar la Ttaskpanel en un Panel de una dialog

Post  Andres Reyes on Sat Aug 14, 2010 8:47 am

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

_________________
-- { http://codigo-base.blogspot.com } ----
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

Re: Como cargar la Ttaskpanel en un Panel de una dialog

Post  DIGREGORIO on Sat Aug 14, 2010 8:58 am

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)

DIGREGORIO

Posts : 7
Reputation : 0
Join date : 2010-08-14

View user profile

Back to top Go down

Re: Como cargar la Ttaskpanel en un Panel de una dialog

Post  Andres Reyes on Sat Aug 14, 2010 9:07 am

Hola DiGregorio,

Que version de Harbour y Fivewin Usas?

_________________
-- { http://codigo-base.blogspot.com } ----
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

Re: Como cargar la Ttaskpanel en un Panel de una dialog

Post  DIGREGORIO on Sat Aug 14, 2010 9:08 am

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

DIGREGORIO

Posts : 7
Reputation : 0
Join date : 2010-08-14

View user profile

Back to top Go down

Re: Como cargar la Ttaskpanel en un Panel de una dialog

Post  Andres Reyes on Sat Aug 14, 2010 9:29 am

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


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

_________________
-- { http://codigo-base.blogspot.com } ----
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

Re: Como cargar la Ttaskpanel en un Panel de una dialog

Post  Andres Reyes on Sat Aug 14, 2010 10:26 am

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...



_________________
-- { http://codigo-base.blogspot.com } ----
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

Re: Como cargar la Ttaskpanel en un Panel de una dialog

Post  DIGREGORIO on Sat Aug 14, 2010 10:40 am

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

DIGREGORIO

Posts : 7
Reputation : 0
Join date : 2010-08-14

View user profile

Back to top Go down

Re: Como cargar la Ttaskpanel en un Panel de una dialog

Post  Andres Reyes on Sat Aug 14, 2010 10:56 am

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

_________________
-- { http://codigo-base.blogspot.com } ----
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

Re: Como cargar la Ttaskpanel en un Panel de una dialog

Post  DIGREGORIO on Sun Aug 15, 2010 11:54 pm

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

Posts : 7
Reputation : 0
Join date : 2010-08-14

View user profile

Back to top Go down

Re: Como cargar la Ttaskpanel en un Panel de una dialog

Post  DIGREGORIO on Mon Aug 23, 2010 12:46 am

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

DIGREGORIO

Posts : 7
Reputation : 0
Join date : 2010-08-14

View user profile

Back to top Go down

Re: Como cargar la Ttaskpanel en un Panel de una dialog

Post  Sponsored content


Sponsored content


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