FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour TtaskPanel
MarioG
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: TtaskPanel
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

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
nnicanor
Posts: 302
Joined: Fri Apr 23, 2010 04:30 AM
Re: TtaskPanel
Posted: Fri Sep 18, 2015 01:05 PM

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
armando.lagunas
Posts: 346
Joined: Mon Oct 05, 2009 03:35 PM
Re: TtaskPanel
Posted: Mon Sep 21, 2015 07:03 PM
estimados Mario y Nicanor:

esta es la mascara:

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


y asi se utiliza

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


saludos.
SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com
MarioG
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: TtaskPanel
Posted: Tue Sep 22, 2015 10:42 AM

Much铆simas gracias!

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
Jos茅 Luis S谩nchez
Posts: 564
Joined: Thu Oct 13, 2005 09:23 AM
Re: TtaskPanel
Posted: Tue Sep 22, 2015 02: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,

MarioG
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: TtaskPanel
Posted: Tue Sep 22, 2015 02: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

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
MarioG
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: TtaskPanel (Andres)
Posted: Tue Oct 13, 2015 02: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 directoryd:/MixHarbour/TTaskPanel'

que estoy haciendo mal
gracias

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
armando.lagunas
Posts: 346
Joined: Mon Oct 05, 2009 03:35 PM
Re: TtaskPanel
Posted: Tue Oct 13, 2015 03:12 PM
Mario:

este es el archivo CH.

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

Mail: armando.lagunas@gmail.com
armando.lagunas
Posts: 346
Joined: Mon Oct 05, 2009 03:35 PM
Re: TtaskPanel
Posted: Tue Oct 13, 2015 03: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.

SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com
MarioG
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: TtaskPanel
Posted: Tue Oct 13, 2015 08:35 PM

Muchas gracias Armando!

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
checo176
Posts: 83
Joined: Wed Apr 20, 2011 03:08 PM
Re: TtaskPanel
Posted: Fri Nov 06, 2015 07:02 PM

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

Harbour 3.2.0dev (r2407221137) - FWH 24.08 - MariaDB 12.2.2 - FivEdit 22.0214

Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: TtaskPanel
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

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
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: TtaskPanel
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... :-)
Dios no est谩 muerto...



Gracias a mi Dios ante todo!
checo176
Posts: 83
Joined: Wed Apr 20, 2011 03:08 PM
Re: TtaskPanel
Posted: Sat Nov 07, 2015 09: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 (fw): Select all Collapse
// 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 (fw): Select all Collapse
#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

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

Harbour 3.2.0dev (r2407221137) - FWH 24.08 - MariaDB 12.2.2 - FivEdit 22.0214

Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: TtaskPanel
Posted: Sat Nov 07, 2015 11:29 PM

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
Static archive 路 New replies & topics via GitHub Discussions