FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour TtaskPanel
Marcelo Via Giglio
Posts: 1088
Joined: Fri Oct 07, 2005 03:33 PM
TtaskPanel
Posted: Tue Aug 25, 2015 07:47 PM
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
Posts: 625
Joined: Wed Mar 14, 2007 06:49 PM
Re: TtaskPanel
Posted: Tue Aug 25, 2015 11:43 PM

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.

Soluciones y Dise帽o de Software
Damos Soluciones...

I.S.C. Victor Daniel Cuatecatl Leon
Director y Dise帽ador de Proyectos

http://www.soldisoft.unlugar.com
http://www.sisa.unlugar.com
danyleon82@hotmail.com
www.facebook.com/victordaniel.cuatecatlleon
Marcelo Via Giglio
Posts: 1088
Joined: Fri Oct 07, 2005 03:33 PM
Re: TtaskPanel
Posted: Wed Aug 26, 2015 11:40 AM

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
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: TtaskPanel
Posted: Wed Aug 26, 2015 10:12 PM

Marcelo,

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
armando.lagunas
Posts: 346
Joined: Mon Oct 05, 2009 03:35 PM
Re: TtaskPanel
Posted: Thu Aug 27, 2015 03:49 PM
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 (fw): Select all Collapse
   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
SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com
Marcelo Via Giglio
Posts: 1088
Joined: Fri Oct 07, 2005 03:33 PM
Re: TtaskPanel
Posted: Thu Aug 27, 2015 06:20 PM
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 (fw): Select all Collapse
 聽 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
Posts: 1088
Joined: Fri Oct 07, 2005 03:33 PM
Re: TtaskPanel
Posted: Thu Aug 27, 2015 06:22 PM

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
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: TtaskPanel
Posted: Sun Aug 30, 2015 09:55 PM
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
Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: TtaskPanel
Posted: Mon Aug 31, 2015 02:54 AM
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 (fw): Select all Collapse
 聽 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
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Ariel
Posts: 389
Joined: Wed Nov 29, 2006 01:51 PM
Re: TtaskPanel
Posted: Mon Aug 31, 2015 09:57 AM

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

Saludos, Ariel

cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: TtaskPanel
Posted: Mon Aug 31, 2015 10:03 AM

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Ariel
Posts: 389
Joined: Wed Nov 29, 2006 01:51 PM
Re: TtaskPanel
Posted: Mon Aug 31, 2015 06:59 PM

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
Posts: 346
Joined: Mon Oct 05, 2009 03:35 PM
Re: TtaskPanel
Posted: Mon Aug 31, 2015 07:37 PM
Mario:

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

Code (fw): Select all Collapse
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 (fw): Select all Collapse
      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
SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com
Marcelo Via Giglio
Posts: 1088
Joined: Fri Oct 07, 2005 03:33 PM
Re: TtaskPanel
Posted: Mon Aug 31, 2015 08:24 PM

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
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: TtaskPanel
Posted: Mon Aug 31, 2015 10:56 PM

Armndo;
muchas gracias por el enlace
Comenzar茅 la migraci贸n; los samples se ven fant谩sticos

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
Static archive 路 New replies & topics via GitHub Discussions