Consulta aspecto TCalex - SOLUCIONADO

[AngelSalom]

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!

[MGA]

Angel,

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

[cnavarro]

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?

[AngelSalom]

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.

[cnavarro]

Bueno, para que aparezca lo que deseas en Calinfo.prg, METHOD PaintOnMonth, cambia

Code: Select all  Expand view

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

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

//   hOldFont = SelectObject( hDC, ::oFont: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: Select all  Expand view

   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
 

[AngelSalom]

Gracias Cristóbal, pruebo y comento.

[AngelSalom]

Todo OK Cristóbal, gracias.

[cnavarro]

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

[AngelSalom]

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.