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