TtaskPanel

[MarioG]

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

gracias

[nnicanor]

Hola,

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

Slds,

[armando.lagunas]

estimados Mario y Nicanor:

esta es la mascara:

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
 

y asi se utiliza

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
 

saludos.

[MarioG]

Muchísimas gracias!

[José Luis Sánchez]

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,

[MarioG]

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

[MarioG]

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

[armando.lagunas]

Mario:

este es el archivo CH.

Code: Select all  Expand view  RUN

// 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)
 

[armando.lagunas]

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.

[MarioG]

Muchas gracias Armando!

[checo176]

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

Un abrazo

[Armando]

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

[joseluisysturiz]

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

[checo176]

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  RUN

// 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 "<b>TTaskPanel()</b>" + ;
                     "<p>Clase para la creacion de paneles de tareas</p>"+;
                     "<p><b>Autor</b></p>" +;
                     "<p>Andres Reyes Hernandez</p>" INFO
         ENDTASKGROUP
      ENDTASKPANEL

   RETURN nil


//----------------------------------------------------------------------------//
 

el Archivo de recurso es el siguiente:

TestDialog.rc

Code: Select all  Expand view  RUN

#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

[Armando]

Sergio:

Gracias !,

Saludos