FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)Last update on Thu Jun 04, 2026 12:06 PM UTC
Board index FiveWin para Harbour/xHarbour Consulta aspecto TCalex - SOLUCIONADO
AngelSalom
Posts: 729
Joined: Fri Oct 07, 2005 07:38 AM

Consulta aspecto TCalex - SOLUCIONADO

Posted: Wed Apr 19, 2017 02:01 PM
Hola amigos, estoy implementando TCalex (Gracias Cristóbal por la versión) y aprecio en principio unas diferencias en la legibilidad de las citas en el calendario mensual que en el ejemplo (que ya viene compìlado) de la clase original se ve mucho mejor, también en la vista diaria sólo aparecen las horas de las citas y no el texto. Adjunto algunas imágenes :

Imagen vista mensual del ejemplo que he compilado yo


Imagen vista mensual del ejemplo que ya venía compilado con la clase


Imagen vista diaria del ejemplo que he compilado yo


Imagen vista diara del ejemplo que ya venía compilado con la clase


Además también se puede observar en la presentación diaria que las "líneas" que separan las horas se ven más agradables en el ejemplo que ya venía compilado con la clase.

(Al decir compilado con la clase, me refiero a los sample01.exe y sample02.exe que venían con la distribución).

¿Alguna sugerencia?
Gracias!

Angel Salom

Visionwin Software - https://www.visionwin.com

fwh 24.07 - harbour 3.2 - bcc 7.7

MGA
Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM

Re: Consulta aspecto TCalex

Posted: Wed Apr 19, 2017 02:45 PM

Angel,

eu implementei também a TCALEX (Cristobal), eu notei os problemas mencionados por você e tive que corrigir ponto a ponto.

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
cnavarro
Posts: 6760
Joined: Wed Feb 15, 2012 08:25 PM

Re: Consulta aspecto TCalex

Posted: Wed Apr 19, 2017 03:51 PM

Angel, quieres decir que los .EXEs que iban incluídos en el ZIP tienen diferencias visuales respecto a las que tu consigues con los source?
Si es así, cuál es la apariencia que te gusta más?

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
AngelSalom
Posts: 729
Joined: Fri Oct 07, 2005 07:38 AM

Re: Consulta aspecto TCalex

Posted: Wed Apr 19, 2017 03:59 PM
cnavarro wrote:Angel, quieres decir que los .EXEs que iban incluídos en el ZIP tienen diferencias visuales respecto a las que tu consigues con los source?
Si es así, cuál es la apariencia que te gusta más?


En efecto Cristóbal, el tema de colores y tal no me preocupa ... pero, en los EXEs que iban incluidos, las citas en el calendario mensual son mucho más legibles, además que en la visualización diaria se puede ver la hora y el asunto de la cita, en los source no.

Angel Salom

Visionwin Software - https://www.visionwin.com

fwh 24.07 - harbour 3.2 - bcc 7.7

cnavarro
Posts: 6760
Joined: Wed Feb 15, 2012 08:25 PM

Re: Consulta aspecto TCalex

Posted: Wed Apr 19, 2017 07:57 PM
Bueno, para que aparezca lo que deseas en Calinfo.prg, METHOD PaintOnMonth, cambia

Code (fw): Select all Collapse
   if cFrom == "TMONTHVIEW"
      IF ::lBloqueoT
         SetTextColor( hDC, CLR_WHITE )
      ENDIF
      DrawTextTransparent( hDC, Space(1) + cTime + Space(1) + ::cSubject , ;
                           { ::aCoords[ 1 ], ::aCoords[ 2 ] + 8, ::aCoords[ 3 ], ::aCoords[ 4 ] - 8 }, nOR( DT_SINGLELINE, DT_VCENTER ) )

   else     //  de aqui a abajo agregado fjhg 30-11-2012 para despliegue de lineas y colores del asunto

      IF ::lBloqueoT
         SetTextColor( hDC, CLR_WHITE )
      ENDIF
      DrawTextTransparent( hDC, Space(1) + cTime + Space(1) + aRen[1] , ;
                           { ::aCoords[ 1 ] + 10, ::aCoords[ 2 ] + 10, ::aCoords[ 3 ], ::aCoords[ 4 ] - 8 }, nOR( DT_SINGLELINE ) )


Por

Code (fw): Select all Collapse
      DrawTextTransparent( hDC, Space(1) + cTime + Space(1) + ::cSubject, ; //aRen[1] , ;
                           { ::aCoords[ 1 ] + 10, ::aCoords[ 2 ] + 10, ::aCoords[ 3 ], ::aCoords[ 4 ] - 8 }, nOR( DT_SINGLELINE ) )


En cuanto al tema de la apariencia, en el mismo metodo se hace referencia al font utilizado, creo que está la linea comentada

Code (fw): Select all Collapse
//   hOldFont = SelectObject( hDC, ::hFont )
   hOldFont = SelectObject( hDC, oFnt:hFont )      // fjhg 30-11-2012


o modifica estas lineas así o como consideres ( el font y el tamaño )

Code (fw): Select all Collapse
   if cFrom == "TMONTHVIEW"
         bPaint = {| hDC, aCoords | DrawBox( hDC, aCoords ) }
         //DEFINE FONT oFnt NAME "Segoe UI LIGHT" SIZE 0,-8
         DEFINE FONT oFnt NAME if( Empty( ::oFont:cFaceName ), "Arial", ::oFont:cFaceName ) SIZE 0,-8
   else
         bPaint = {| hDC, aCoords | DrawSpecialBox( hDC, aCoords ) }
         DEFINE FONT oFnt NAME if( Empty( ::oFont:cFaceName ), "Arial", ::oFont:cFaceName ) SIZE 0,-10
   endif
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
AngelSalom
Posts: 729
Joined: Fri Oct 07, 2005 07:38 AM

Re: Consulta aspecto TCalex

Posted: Thu Apr 20, 2017 07:05 AM

Gracias Cristóbal, pruebo y comento.

Angel Salom

Visionwin Software - https://www.visionwin.com

fwh 24.07 - harbour 3.2 - bcc 7.7

AngelSalom
Posts: 729
Joined: Fri Oct 07, 2005 07:38 AM

Re: Consulta aspecto TCalex

Posted: Thu Apr 20, 2017 04:20 PM

Todo OK Cristóbal, gracias.

Angel Salom

Visionwin Software - https://www.visionwin.com

fwh 24.07 - harbour 3.2 - bcc 7.7

cnavarro
Posts: 6760
Joined: Wed Feb 15, 2012 08:25 PM

Re: Consulta aspecto TCalex - SOLUCIONADO

Posted: Thu Apr 20, 2017 07:41 PM

Si tenéis modificaciones o añadidos que puedan ser de interés, no dudéis en poneros en contacto conmigo para añadirlos y que nos beneficiemos todos

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
AngelSalom
Posts: 729
Joined: Fri Oct 07, 2005 07:38 AM

Re: Consulta aspecto TCalex - SOLUCIONADO

Posted: Thu Apr 20, 2017 07:50 PM

Ok. Estos días voy a ir adaptando la clase a mis aplicaciones. Si modifico algo que pueda ser de interés te lo notifico.

Angel Salom

Visionwin Software - https://www.visionwin.com

fwh 24.07 - harbour 3.2 - bcc 7.7

Continue the discussion

Static archive · New replies & topics via GitHub Discussions