TtaskPanel

[Marcelo Via Giglio]

Holas,

Estoy tratando de utilizar la clase TtakPanel de Andrés Reyes Hernández, definí un tema personalizado, y tengo problemas con la posición de los bmp, como se puede ver en la siguiente imagen

[url] https://app.box.com/s/z9byfoyobd9ltlo0qzh4t4hy9f6q28sj [/ url]

No puedo cambiar la posición de los bmp están pegados a la esquina izquierda superior.

Otra cosa, puedo volver a compilar la clase y recrear la lib, pero no puedo encontrar la fuente para para la función th_DrawTaskItem, no entiendo cómo puedo compilar la libreria sin la definición de esta función

saludos

Marcelo Via

[cuatecatl82]

Marcelo:

Usa mejor la clase TExplorerBar, es nativa de Fivewin y se han correjido algunos detalles de estetica, la Clase TTaskPanel la deje de lado por el mismo problema, no entiendo porque comparten las fuentes de sus clases sin dar "algunos fuentes", sin ellos la clase queda totalmente obsoleta, una pena era una gran clase, se quedo a medias y lo peor sin soporte.. busqúe entre mis chacharas los fuentes de la clase pero tambien le falta la misma función..

Saludos.

[Marcelo Via Giglio]

Victor,

gracias por responder, seguro que la clase que viene con FW funciona correctamente, pero lo malo es que esta limitada a un funcionamiento estandar y no puedes salir de el, bueno a seguir buscando respuesta

saludos

Marcelo

[Antonio Linares]

Marcelo,

FWH proporciona todo el código fuente de la clase TExplorerBar, por lo que puedes modificarla según tus necesidades

[armando.lagunas]

Estimado:

yo uso taskpanel sin problemas, genero una mascara con innumerables combinaciones y solo incluyo la lib que proporciona la clase para xHarbour

los BMP los hago mas hanchos y corro la imagen a la derecha, y se encuadran perfectamente.




aqui esta la mascara que utilizo:

Code: Select all  Expand view  RUN

   DEFINE THEME NAME "#TASKOK"

      ELEMENT TASKPANEL BACKGROUND {nRGB(249,250,253), nRGB(100,101,105),1}                    ;
                        BORDERCOLOR CLR_BLACK                                                  ;
                        BORDERTHICKNESS 1                                                      ;
                        PADDING 5

         ELEMENT SPECIAL GROUP

            ELEMENT HEADER   BACKGROUND      {nRGB( 60, 97,145),nRGB( 39, 80,133),-1}          ;
                             FOREGROUND      {nRGB(218,219,221),nRGB(250,251,255)   }          ;
                             BORDERCOLOR      nRGB(101,147,209)                                ;
                             BORDERTHICKNESS 2                                                 ;
                             BUTTON COLLAPSE { ".\SYSTEM\DOWN3.Bmp" , ".\SYSTEM\DOWN4.Bmp" }   ;
                             BUTTON EXPAND   { ".\SYSTEM\DOWN1.Bmp" , ".\SYSTEM\DOWN2.Bmp" }   ;
                             FONT            {"Segoe UI Symbol",12}                            ;
                             FONTSTYLE       {"N" ,"N"}                                        ;
                             MARGIN TO PANEL 7                                                 ;
                             PADDING 5
            ENDELEMENT

            ELEMENT TASKLIST BACKGROUND       nRGB(250,252,254)                                ;
                             BORDERCOLOR      nRGB(101,147,209)                                ;
                             BORDERTHICKNESS { 2, 0, 2, 2 }                                    ;
                             PADDING         5                                                 ;
                             MARGIN TO TASK  7

               ELEMENT TASK  BACKGROUND      {nRGB(250,252,254), nRGB( 52,123,254),-1}         ;
                             FOREGROUND      {nRGB( 67, 68, 70), nRGB(255,255, 26)   }         ;
                             FONT            {"Segoe UI Symbol",10}                            ;
                             FONTSTYLE       { "N", "N"  }                                     ;
                             PADDING         5
               ENDELEMENT

            ENDELEMENT

         ENDELEMENT

         ELEMENT NORMAL GROUP
            ELEMENT HEADER   BACKGROUND TSKBACK                                                ;
                             FOREGROUND {TSKPAN1,TSKPAN2}                                      ;
                             BUTTON COLLAPSE { ".\SYSTEM\DOWN3.Bmp" , ".\SYSTEM\DOWN4.Bmp" }   ;
                             BUTTON EXPAND   { ".\SYSTEM\DOWN1.Bmp" , ".\SYSTEM\DOWN2.Bmp" }   ;
                             BORDERTHICKNESS 0                                                 ;
                             FONT {"Segoe UI Symbol",12}                                       ;
                             FONTSTYLE {"N","NU"}                                              ;
                             MARGIN TO PANEL 10
            ENDELEMENT
            ELEMENT TASKLIST BACKGROUND TSKBACT                                                ;
                             BORDERTHICKNESS 1                                                 ;
                             PADDING 5                                                         ;
                             MARGIN TO TASK 2

               ELEMENT TASK  BACKGROUND TSKFOND                                                ;
                             FONT {"Segoe UI Symbol",10}                                       ;
                             FOREGROUND TSKTEXT                                                ;
                             PADDING { 2, 2, 2, 2 }
               ENDELEMENT
            ENDELEMENT
         ENDELEMENT
      ENDELEMENT
   ENDTHEME

 

si necesitas mas ayuda, con gusto de la proporciono.

Saludos desde Chile

[Marcelo Via Giglio]

Antonio,

gracias por responder, se que tenemos disponibles esos fuentes, y será siempre una opción, pero te puede pedir explicación de como pude generar la libreria ttaskpanel.lib, sin tener el fuente de :

Code: Select all  Expand view  RUN

  th_DrawTaskItem( ::oTheme:nHandle,;
                     ::hDc,;
                     0, 0, ::nWidth, ::nHeight,;
                     ::GetText(),;
                     ::hBitmap,;
                     ::lHasAlpha,;
                     ::oWnd:lSpecial,;
                     ::lFocused,;
                     ::lMouseOver,;
                     ::lActive,;
                     ::lIsInfo,;
                     ::oWnd:oWnd:nPlainStyle )
 

para ser CLARO "SI" logro generar la biblioteca ttaskpanel.lib, lo que me deja intrigado como lo logro COMPILAR sin tener la definición de la función mencionada, me gustaría saber como sucede esto, de donde saca su definición el compilador

saludos, muchas gracias

Marcelo Via

[Marcelo Via Giglio]

Armando,

muchas gracias por responder, impresionante tu interface, muy bonita y sobria.

Sobre los BMP, justamente queria evitar el tocar los bitmaps, pero creo que no hay solución mas que esa, reitero mis agradecimientos

Saludos

Marcelo Vía

[MarioG]

Hola Armando
Felicitaciones, espectacular presentación!
No tengo la versión que incluye TTaskpanel, por lo que estoy usando TExplorer.
Veo que tu presentación presenta el primer panel abierto y los restantes cerrados (me refiero a las opciones en vertical).
Esto no lo puedo lograr con TExplorer, quizas si alguna ves lo usaste me puedas indicar como hacerlo
Acá mi post de consulta, para ampliar si no se entiende
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=31256

[cnavarro]

Antonio,

gracias por responder, se que tenemos disponibles esos fuentes, y será siempre una opción, pero te puede pedir explicación de como pude generar la libreria ttaskpanel.lib, sin tener el fuente de :

Code: Select all  Expand view  RUN

  th_DrawTaskItem( ::oTheme:nHandle,;
                     ::hDc,;
                     0, 0, ::nWidth, ::nHeight,;
                     ::GetText(),;
                     ::hBitmap,;
                     ::lHasAlpha,;
                     ::oWnd:lSpecial,;
                     ::lFocused,;
                     ::lMouseOver,;
                     ::lActive,;
                     ::lIsInfo,;
                     ::oWnd:oWnd:nPlainStyle )
 

para ser CLARO "SI" logro generar la biblioteca ttaskpanel.lib, lo que me deja intrigado como lo logro COMPILAR sin tener la definición de la función mencionada, me gustaría saber como sucede esto, de donde saca su definición el compilador

saludos, muchas gracias

Marcelo Via

Sin ver el script que utilizas para crear la libreria, es posible que lo unico que hace es sustituir los modulos .obj de los .PRGs ( TLIB -+ kkk.obj ) sin tocar los modulos .C que contiene.
Esto es lo que se me ocurre como explicacion

[Ariel]

Hola,
es asi como dice cristobal, la lib se puede generar perfectamente tanto para xhrb como hrb.

Saludos, Ariel

[cnavarro]

Ariel, por curiosidad, si lo sabes
Con qué version de Borland se creó la libreria?
Se puede utilizar otro Harbour posterior y Bcc7?
Lo que no se puede es crear la lib para 64 bits, evidentemente.
Saludos

[Ariel]

Hola Cristobal,

te averiguo cuando lo vea online a Andres, el tema que anda viajando por trabajo y ya ni lo toca, pero trataré de hablar con él
Saludos.

[armando.lagunas]

Mario:

gracias, es facil es colocarle la clausula NO COLLAPSABLE al grupo y a los otros COLLAPSED si los quieres cerrados.

Code: Select all  Expand view  RUN

TTaskpanel.ch  // command taskgroup

#xcommand TASKGROUP [ <oObj> PROMPT ] [ <cPrompt> ] ;
                  [ BITMAP <cBitmap> ];
                  [ WATERMARK <cWatermark> ];
                  [ HEIGHT <nHeight> ];
                  [ <special:SPECIAL> ];
                  [ <header:NO HEADER> ];
                  [ <collapsed:COLLAPSED> ];
                  [ <collapsable:COLLAPSABLE> ];
                  [ <nocollapsable:NO COLLAPSABLE> ] ;
                  [ ONCOLLAPSE <oncollapse,...> ];
                  [ ONEXPAND <onexpand,...> ];
         =>;
         [ <oObj> := ] TaskGroupBegin( <(cPrompt)>,;
                                       <cBitmap>,;
                                       <.special.>,;
                                       <cWatermark>,;
                                       <nHeight>,;
                                       !<.header.>,;
                                       <.collapsed.>,;
                                       [ <.collapsable.> ];
                                       [ !<.nocollapsable.> ],;
                                       [ {|oTaskGroup| <oncollapse> } ],;
                                       [ {|oTaskGroup| <onexpand> } ] )

 

asi lo utilizo en el programa

Code: Select all  Expand view  RUN

      DEFINE TASKPANEL oOut OF oWnd SIZE 295,400 ANCHOR LEFT THEME "#TASKOK" //  <---- esta es la mascara que esta definida mas arriba

         TASKGROUP " "+CRLF+"  Informes de Recepción"     BITMAP ".\SYSTEM\LIMA.Bmp"   SPECIAL
               TASKITEM " Recepción en Planta"            BITMAP ".\SKIN\100.BMP"    ACTION (Informe_100( oFont ), oOut:Item(1):Collapse()) //autocierre al ejecutar la acción
               TASKITEM " Recepciones por día"            BITMAP ".\SKIN\101.BMP"    ACTION (Informe_101( oFont ), oOut:Item(1):Collapse())
         ENDTASKGROUP

         TASKGROUP " "+CRLF+"  Producción y Proceso"      BITMAP ".\SYSTEM\PROD1.Bmp"  SPECIAL COLLAPSED  // <-- aqui lo muestra cerrado
               TASKITEM " 201  Resumen de Producción x Dia"        ACTION (Informe_201( oFont ), oOut:Item(2):Collapse())
               TASKITEM " 202  Producto actualmente en Producción" ACTION (Informe_202( oFont ), oOut:Item(2):Collapse())
         ENDTASKGROUP

         .....
         .....

      ENDTASKPANEL

 

te envío el link de descarga de la clase

http://codigo-base.blogspot.cl/2010/07/ttaskpanel-v10-for-fwh.html

tiene muchos ejemplos.

espero que te sirva.

Saludos

[Marcelo Via Giglio]

Estimado Cristobal,

efectivamente, al recompilar solo se recrean los módulos PRG y no se sabe lo que tiene la Lib como base, entonces estamos trancados, si alguien tiene contacto con Andres, quien sabe quiera liberar el código faltante.

saludos y muchas gracias

Marcelo

[MarioG]

Armndo;
muchas gracias por el enlace
Comenzaré la migración; los samples se ven fantásticos