FiveTech Software tech support forums

Posted: **Fri Sep 18, 2015 12:16 pm**

Buenos dias
Estimado Armando Lagunas, quisiera saber como se obtiene el aspecto que tiene tu TTaskPanel. Agregas algun tema?

gracias

Posted: **Fri Sep 18, 2015 1:05 pm**

Hola,

Podrias compartir parte de ese codigo para lograr esa apariencia muy buena que tiene tu aplicacion ?

Slds,

Posted: **Mon Sep 21, 2015 7:03 pm**

estimados Mario y Nicanor:

esta es la mascara:

Code: Select all Expand view: 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

y asi se utiliza

Code: Select all Expand view: 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

saludos.

Posted: **Tue Sep 22, 2015 10:42 am**

Muchísimas gracias!

Posted: **Tue Sep 22, 2015 2:10 pm**

Hola Armando,
He visto tu aplicación y me parece excelente. Quiero preguntarte por la fuente que usas en tu aplicación, veo que no es la fuente del sistema sino que usas una fuente personalizada. ¿ Me puedes explicar cómo lo haces ? Mi sistema para usar fuentes grandes en Windows 10 no funciona, lo tienes en https://cincomundos.wordpress.com/2006/ ... es-en-fwh/ y me gustaría saber la manera que usas para definir la fuente de tu aplicación, en particular la del Panel.

Saludos,

Posted: **Tue Sep 22, 2015 2:24 pm**

Armando;
preguntonta: Estos son colores predefinidos?

--------------------Configuración: pru32 - Debug--------------------
xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 9421)
Copyright 1999-2011, http://www.xharbour.org http://www.harbour-project.org/
D:\MIXHAR~1\TTASKP~1\tests\TESTCU~1\TESTCU~1.PRG(146) Warning W0001 Ambiguous reference: 'TSKBACK'
D:\MIXHAR~1\TTASKP~1\tests\TESTCU~1\TESTCU~1.PRG(146) Warning W0001 Ambiguous reference: 'TSKPAN1'
D:\MIXHAR~1\TTASKP~1\tests\TESTCU~1\TESTCU~1.PRG(146) Warning W0001 Ambiguous reference: 'TSKPAN2'
D:\MIXHAR~1\TTASKP~1\tests\TESTCU~1\TESTCU~1.PRG(151) Warning W0001 Ambiguous reference: 'TSKBACT'
D:\MIXHAR~1\TTASKP~1\tests\TESTCU~1\TESTCU~1.PRG(156) Warning W0001 Ambiguous reference: 'TSKFOND'
D:\MIXHAR~1\TTASKP~1\tests\TESTCU~1\TESTCU~1.PRG(156) Warning W0001 Ambiguous reference: 'TSKTEXT'
D:\MIXHAR~1\TTASKP~1\tests\TESTCU~1\TESTCU~1.PRG(267) Warning W0001 Ambiguous reference: 'TSKBACK'
D:\MIXHAR~1\TTASKP~1\tests\TESTCU~1\TESTCU~1.PRG(267) Warning W0001 Ambiguous reference: 'TSKPAN1'
D:\MIXHAR~1\TTASKP~1\tests\TESTCU~1\TESTCU~1.PRG(267) Warning W0001 Ambiguous reference: 'TSKPAN2'
D:\MIXHAR~1\TTASKP~1\tests\TESTCU~1\TESTCU~1.PRG(272) Warning W0001 Ambiguous reference: 'TSKBACT'
D:\MIXHAR~1\TTASKP~1\tests\TESTCU~1\TESTCU~1.PRG(277) Warning W0001 Ambiguous reference: 'TSKFOND'
D:\MIXHAR~1\TTASKP~1\tests\TESTCU~1\TESTCU~1.PRG(277) Warning W0001 Ambiguous reference: 'TSKTEXT'
Borland C++ 5.82 for Win32 Copyright (c) 1993, 2005 Borland
TESTCU~1.c:
Borland Resource Compiler Version 5.40
Copyright (c) 1990, 1999 Inprise Corporation. All rights reserved.
Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland
xHPru32 - 0 error(es), 12 advertencia(s)

Me los podrias pasar, para ver el efecto?
gracias

Posted: **Tue Oct 13, 2015 2:44 pm**

Gente;
He probado los samples de la clase, sin problemas para la lib construida con xHarbour
Tengo problemas con Harbour
Al enlazar un sample (BCC85) me devuelve el siguiente error:
Descripción de Error generado:
___________________________________________________
Error BASE/1075 Argument error: >
Args:
[ 1] = U
[ 2] = N 0

Llamadas al Stack:
___________________________________________________
Llamado desde: .\source\classes\TEXPLBAR.PRG TTASKPANEL:NEW(365)
Llamado desde: source\taskpanel.prg TASKPANELBEGIN(64)
Llamado desde: D:\MIXHAR~1\TTASKP~1\tests\TESTCU~1\TESTCU~1.PRG MAIN(182)

Y si quiero recompilar las libs
Al ejecutar win-make, me devuelve el siguiente error:
d:\MixHarbour\TTaskPanel>win-make
win-make[1]: Entering directory `d:/MixHarbour/TTaskPanel'
# -----------------------------------------------------------------------
# Building lib\harbour\bcc\ttaskpanel.lib
#
# C_COMPILER :bcc at \bcc582
# HB_COMPILER :harbour at \harbour
# -----------------------------------------------------------------------
win-make[1]: Nothing to be done for `samples'.
win-make[1]: Leaving directory `d:/MixHarbour/TTaskPanel'

que estoy haciendo mal
gracias

Posted: **Tue Oct 13, 2015 3:12 pm**

Mario:

este es el archivo CH.

Code: Select all Expand view: // TASK PANEL #define TSK_BACK nRGB( 51, 51, 51) // COLOR DE FONDO 74-97-132 #define TSK_BEND nRGB( 21, 21, 21) // COLOR FINAL DEL FONDO #define TSK_PAN1 nRGB( 13, 57, 94) // COLOR DE FONDO PANEL SIN SELECCIONAR 33-47-72 #define TSK_PAN2 nRGB( 26,117,188) // COLOR DE FONDO PANEL AL SELECCIONAR 0-40-81 #define TSK_TEX1 nRGB(227,255,255) // COLOR DEL TEXTO PANEL SIN SELECCIONAR 188-199-216 #define TSK_TEX2 nRGB(255,255,255) // COLOR DEL TEXTO PANEL AL SELECCIONAR 238-241-245 #define TSK_BAC1 nRGB(138,138,138) // COLOR DE FONDO DEL TASKITEM 172-186-206 #define TSK_BAC2 nRGB( 51, 51, 51) // COLOR DE FONDO DEL TASKITEM 172-186-206 #define TSK_TAS1 nRGB(223,228,236) // COLOR DE FONDO DEL ITEM DEL TASKPANEL 223-228-236 #define TSK_TAS2 nRGB( 0,128,192) // COLOR DE LA BARRA AL SELECCIONAR EL ITEM 0-128-192 #define TSK_TEX3 nRGB( 26,117,188) // COLOR DE TEXTO DE LOS ITEMS DEL TASKPANEL 0-0-0 #define TSK_TEX4 nRGB(255,255,125) // COLOR DE TEXTO AL SELECCIONAR EL ITEM 238-241-245 // ESTILO NORMAL #define TSKBACK nRGB( 51, 51, 51) // 51,51,51 #define TSKPAN1 nRGB(100,100,100) #define TSKPAN2 nRGB(255,255,255) #define TSKBACT nRGB(255,201, 14) #define TSKFOND nRGB(239,228,176) #define TSKTEXT nRGB( 0,163,232)

Posted: **Tue Oct 13, 2015 3:14 pm**

Jose:

la fuente que ocupo es "Segoe UI Symbol" de windows 10 o anteriores, cuando no esta disponible, la busco en Google y la instalo como cualquier otra fuente.

Posted: **Tue Oct 13, 2015 8:35 pm**

Muchas gracias Armando!

Posted: **Fri Nov 06, 2015 7:02 pm**

Armando, cómo te puedo contactar. Necesito hacerte unas consultas al usar TtaskPanel. Me puedes enviar tu correo, para escribirte.

Un abrazo

Posted: **Fri Nov 06, 2015 10:27 pm**

Amigos:

No sería mejor preguntar y responder en el foro?, de esta manera
aprenderemos muchos !. Que finalmente ese es el principal objetivo
de este foro.

Saludos

Posted: **Sat Nov 07, 2015 12:03 am**

Armando wrote:Amigos:

No sería mejor preguntar y responder en el foro?, de esta manera
aprenderemos muchos !. Que finalmente ese es el principal objetivo
de este foro.

Saludos

Estas en lo cierto armando, pero creo que eso dependeria de lo que se vaya a preguntar, si por lo menos el colega le pregunta "CUANTO ME COBRARIAS POR HACERME CON LA TtaskPanel..bla, bla, bla....?", de eso no creo aprendamos nada, jejeje...bueno, es solo una opinion para bajarle 2 a los mensajes, saludos... :shock:

Posted: **Sat Nov 07, 2015 9:04 pm**

Estimados:

Pido las disculpas del caso, Armando tienes toda la razón. La idea es que todos aprendamos en este Foro.

La consulta se trataba sobre como usar TaskPanel en un Panel y dentro de este panel también contener una ventana de dialogo. Finalmente la solución fue usar una Ventana de dialogo y dentro de este Dialogo tener un TaskPanel y todos los controles como SAY y GET, todos creados por recursos, tal como lo muestra el Ejemplo que a continuación dejo:

Code: Select all Expand view: // TestDialog #include "fivewin.ch" #include "taskpanel.ch" PROCEDURE MAIN() LOCAL oDlg, oTaskPanel DEFINE DIALOG oDlg RESOURCE "Test" REDEFINE TASKPANEL oTaskPanel ID 100 ANIMATE ACTIVATE DIALOG oDlg ON INIT oDlg_Init( oTaskPanel ) RETURN //----------------------------------------------------------------------------// FUNCTION oDlg_Init( 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 "TTaskPanel()" + ; "Clase para la creacion de paneles de tareas"+; "Autor" +; "Andres Reyes Hernandez" INFO ENDTASKGROUP ENDTASKPANEL RETURN nil //----------------------------------------------------------------------------//

el Archivo de recurso es el siguiente:

TestDialog.rc

Code: Select all Expand view: #include <windows.h> 1 24 "resource\windows.manifest" 1 ICON "resource\Taskpanel.ico" WATERMARK BITMAP32 "resource\watermark.bmp" HEADER1 BITMAP32 "resource\Header1.bmp" ICON1 BITMAP32 "resource\Bitmap1.bmp" ICON2 BITMAP32 "resource\Bitmap2.bmp" ICON3 BITMAP32 "resource\Bitmap3.bmp" ICON4 BITMAP32 "resource\Bitmap4.bmp" ICON5 BITMAP32 "resource\Bitmap5.bmp" ICON6 BITMAP32 "resource\Bitmap6.bmp" ICON7 BITMAP32 "resource\Bitmap7.bmp" ICON8 BITMAP32 "resource\Bitmap8.bmp" ICON9 BITMAP32 "resource\Bitmap9.bmp" ICON10 BITMAP32 "resource\Bitmap10.bmp" ICON11 BITMAP32 "resource\Bitmap11.bmp" LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL TEST DIALOG 0, 0, 305, 249 STYLE DS_3DLOOK | DS_CENTER | DS_MODALFRAME | DS_FIXEDSYS | WS_VISIBLE | WS_BORDER | WS_CAPTION | WS_DLGFRAME | WS_POPUP | WS_SYSMENU CAPTION "Dialog" FONT 8, "Ms Shell Dlg 2" { DEFPUSHBUTTON "OK", IDOK, 239, 8, 50, 14 PUSHBUTTON "Cancel", IDCANCEL, 239, 25, 50, 14 CONTROL "", 100, "TTASKPANEL", 0x50020000, 0, 0, 200, 249 }

Y lo que podemos obtener es lo siguiente:

subir fotos online

Saludos desde Chile

Posted: **Sat Nov 07, 2015 11:29 pm**

Sergio:

Gracias !, :wink:

Saludos

FiveTech Software tech support forums

TtaskPanel

Re: TtaskPanel

Re: TtaskPanel

Re: TtaskPanel

Re: TtaskPanel

Re: TtaskPanel

Re: TtaskPanel

Re: TtaskPanel (Andres)

Re: TtaskPanel

Re: TtaskPanel

Re: TtaskPanel

Re: TtaskPanel

Re: TtaskPanel

Re: TtaskPanel

Re: TtaskPanel

Re: TtaskPanel