TtaskPanel

Post Reply
User avatar
MarioG
Posts: 1356
Joined: Fri Oct 14, 2005 1:28 pm
Location: Resistencia - Chaco - AR

Re: TtaskPanel

Post by MarioG »

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

gracias
Resistencia - "Ciudad de las Esculturas"
Chaco - Argentina
Top
nnicanor
Posts: 296
Joined: Fri Apr 23, 2010 4:30 am
Location: Colombia

Re: TtaskPanel

Post by nnicanor »

Hola,

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

Slds,
Nicanor Martinez M.
Auditoria y Sistemas Ltda.
MicroExpress Ltda.
FW + FWH + XHARBOUR + HARBOUR + PELLES C + XDEVSTUDIO + XEDIT + BCC + VC_X86 + VCC_X64 + MINGW + R&R Reports + FastReport + Tdolphin + ADO + MYSQL + MARIADB + ORACLE
nnicanor@yahoo.com
Top
User avatar
armando.lagunas
Posts: 340
Joined: Mon Oct 05, 2009 3:35 pm
Location: Curico-Chile
Contact:
Contact armando.lagunas

Re: TtaskPanel

Post by armando.lagunas »

estimados Mario y Nicanor:

esta es la mascara:

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
 
y asi se utiliza

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
 
saludos.
Top
User avatar
MarioG
Posts: 1356
Joined: Fri Oct 14, 2005 1:28 pm
Location: Resistencia - Chaco - AR

Re: TtaskPanel

Post by MarioG »

Muchísimas gracias!
Resistencia - "Ciudad de las Esculturas"
Chaco - Argentina
Top
User avatar
José Luis Sánchez
Posts: 484
Joined: Thu Oct 13, 2005 9:23 am
Location: Novelda - Alicante - España
Contact:
Contact José Luis Sánchez

Re: TtaskPanel

Post by 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,
Top
User avatar
MarioG
Posts: 1356
Joined: Fri Oct 14, 2005 1:28 pm
Location: Resistencia - Chaco - AR

Re: TtaskPanel

Post by 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
Resistencia - "Ciudad de las Esculturas"
Chaco - Argentina
Top
User avatar
MarioG
Posts: 1356
Joined: Fri Oct 14, 2005 1:28 pm
Location: Resistencia - Chaco - AR

Re: TtaskPanel (Andres)

Post by 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
Resistencia - "Ciudad de las Esculturas"
Chaco - Argentina
Top
User avatar
armando.lagunas
Posts: 340
Joined: Mon Oct 05, 2009 3:35 pm
Location: Curico-Chile
Contact:
Contact armando.lagunas

Re: TtaskPanel

Post by armando.lagunas »

Mario:

este es el archivo CH.

Code: Select all

// 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)
 
Top
User avatar
armando.lagunas
Posts: 340
Joined: Mon Oct 05, 2009 3:35 pm
Location: Curico-Chile
Contact:
Contact armando.lagunas

Re: TtaskPanel

Post by 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.
Top
User avatar
MarioG
Posts: 1356
Joined: Fri Oct 14, 2005 1:28 pm
Location: Resistencia - Chaco - AR

Re: TtaskPanel

Post by MarioG »

Muchas gracias Armando!
Resistencia - "Ciudad de las Esculturas"
Chaco - Argentina
Top
User avatar
checo176
Posts: 46
Joined: Wed Apr 20, 2011 3:08 pm

Re: TtaskPanel

Post by checo176 »

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

Un abrazo
Sergio Vacarezza S.
Programador Freelance
sergio@vacarezza.cl
Santiago, Chile

xHarbour 1.2.3 - FWH 13.08 - Advantage 10.1
Top
User avatar
Armando
Posts: 2479
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Contact:
Contact Armando

Re: TtaskPanel

Post by 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
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Top
User avatar
joseluisysturiz
Posts: 2024
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela
Contact:
Contact joseluisysturiz

Re: TtaskPanel

Post by joseluisysturiz »

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:
Dios no está muerto...

Gracias a mi Dios ante todo!
Top
User avatar
checo176
Posts: 46
Joined: Wed Apr 20, 2011 3:08 pm

Re: TtaskPanel

Post by 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

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

#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:

Image
subir fotos online


Saludos desde Chile
Sergio Vacarezza S.
Programador Freelance
sergio@vacarezza.cl
Santiago, Chile

xHarbour 1.2.3 - FWH 13.08 - Advantage 10.1
Top
User avatar
Armando
Posts: 2479
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Contact:
Contact Armando

Re: TtaskPanel

Post by Armando »

Sergio:

Gracias !, :wink:

Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Top
Post Reply

Return to “FiveWin para Harbour/xHarbour”