TCalex: no pinta bien FEBRERO/2014

[RSalazarU]

A los expertos en TCalex que tan gentilmente publico Daniel:

Baje la version de los contrib de Fivewin y logre compilar y ejecutar. TODO OK.

Al hacer las pruebas me di cuenta que en la VISTA MENSUAL no pinta bien los meses que empiezas en sabado.

Ejemplo: May/2010, Ene/2011, Oct/2011,....., Jun/2013, Feb/2014,.. etc.

En estos meses simpre empieza pintando de blanco la primera celda, y deberia hacerlo desde la columna de sabado.

En esta version, creo que, se cambio para que el dia DOMINGO sea la ultima columna de la derecha.
creo que por ahi va el asunto.

Ya revise todas las clases y no logro encontrar donde o como correjir el problema, POR FAVOR AYUDA.

De antemano, muchas gracias a todos.

Atentamente,

Rolando.
Cochabamba, Bolivia.

[RSalazarU]

Amigos del foro:

Despues de revisar la clase TMonthV.prg hice las siguiente correccion para resolver el problema:

Code: Select all  Expand view  RUN

   if nDayWeek  == 7
      if Month( dDay_1 ) == Month( dDate )
         ::dStart = ::dDate
      else
         ::dStart = ::GetFirstDateWeek( dDay_1 )//::dStart = dDay_1 + 1 //<--- aca la correcion
      endif
   else
      ::dStart = ::GetFirstDateWeek( dDay_1 )
   endif
 

Y tambien hice una correcion para que los domingos se vean de color rojo en forma correcta.

Code: Select all  Expand view  RUN

*-----  fjhg para los numeros de dia del Domingo en rojo
   if nCol == 7 - MOD( 7, _GFD) //1 //<--- aca la correcion
      nOldClr := SetTextColor( hDC, nRGB(200,0,0) )
   else
      nOldClr := SetTextColor( hDC, ::nClrText )
   endif
*----- fin fjhg
 

Espero que les sirva.

Atentamente,

Rolando.
Cochabamba, Bolivia.

[Patricio Avalos Aguirre]

Hola Rolando

se agradece

[Ariel]

Gracias, muy buen aporte.