Page 1 of 3

TtaskPanel

Posted: Tue Aug 25, 2015 7:47 pm
by 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

Re: TtaskPanel

Posted: Tue Aug 25, 2015 11:43 pm
by 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.

Re: TtaskPanel

Posted: Wed Aug 26, 2015 11:40 am
by 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

Re: TtaskPanel

Posted: Wed Aug 26, 2015 10:12 pm
by Antonio Linares
Marcelo,

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

Re: TtaskPanel

Posted: Thu Aug 27, 2015 3:49 pm
by 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.


Image

aqui esta la mascara que utilizo:

Code: Select all

   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

Re: TtaskPanel

Posted: Thu Aug 27, 2015 6:20 pm
by 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

   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

Re: TtaskPanel

Posted: Thu Aug 27, 2015 6:22 pm
by 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

Re: TtaskPanel

Posted: Sun Aug 30, 2015 9:55 pm
by 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/viewt ... =6&t=31256

Re: TtaskPanel

Posted: Mon Aug 31, 2015 2:54 am
by cnavarro
Marcelo Via Giglio wrote: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

   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

Re: TtaskPanel

Posted: Mon Aug 31, 2015 9:57 am
by Ariel
Hola,
es asi como dice cristobal, la lib se puede generar perfectamente tanto para xhrb como hrb.

Saludos, Ariel

Re: TtaskPanel

Posted: Mon Aug 31, 2015 10:03 am
by 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

Re: TtaskPanel

Posted: Mon Aug 31, 2015 6:59 pm
by 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.

Re: TtaskPanel

Posted: Mon Aug 31, 2015 7:37 pm
by 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

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

      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/ ... r-fwh.html

tiene muchos ejemplos.

espero que te sirva.

Saludos

Re: TtaskPanel

Posted: Mon Aug 31, 2015 8:24 pm
by 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

Re: TtaskPanel

Posted: Mon Aug 31, 2015 10:56 pm
by MarioG
Armndo;
muchas gracias por el enlace
Comenzaré la migración; los samples se ven fantásticos