topic-27797

Posts: 211

Joined: Wed Jul 16, 2008 12:59 PM

TCalex: no pinta bien FEBRERO/2014
Posted: Tue Dec 10, 2013 02:33 AM

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

Posts: 211

Joined: Wed Jul 16, 2008 12:59 PM

Re: TCalex: no pinta bien FEBRERO/2014 (SOLUCIONADO)
Posted: Wed Dec 11, 2013 09:26 PM

Amigos del foro:

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

Code (fw): Select all Collapse

   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 (fw): Select all Collapse

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

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Re: TCalex: no pinta bien FEBRERO/2014
Posted: Sat Dec 14, 2013 02:12 AM

Hola Rolando

se agradece

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

Ariel

Posts: 389

Joined: Wed Nov 29, 2006 01:51 PM

Re: TCalex: no pinta bien FEBRERO/2014
Posted: Sat Dec 14, 2013 01:21 PM

Gracias, muy buen aporte.

FiveTech Support Forums

Continue the discussion