Foros Club Delphi - Efectos en un TDateTimePicker

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)

- - Efectos en un TDateTimePicker (https://www.clubdelphi.com/foros/showthread.php?t=98027)

Efectos en un TDateTimePicker

Estoy usando un código que me facilitó escafandra en el Foro Club Builder para destacar en este elemento determinadas fechas. El código es este:

Código:

#define BOLDDAY(ds, iDay)  \

        if (iDay > 0 && iDay < 32)(ds) |= (0x00000001 << (iDay - 1))

#define  DTM_GETMCSTYLE (DTM_FIRST + 12)

#define  DTM_SETMCSTYLE (DTM_FIRST + 11)



//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

  : TForm(Owner)

{

  DWORD style = SendMessage(DateTimePicker1->Handle, DTM_GETMCSTYLE, 0, 0);

  SendMessage(DateTimePicker1->Handle, DTM_SETMCSTYLE, 0, style | MCS_DAYSTATE);

}





//---------------------------------------------------------------------------

void __fastcall TForm1::DateTimePicker1DropDown(TObject *Sender)

{

  MONTHDAYSTATE MonthBInfo[3] = {0, 0, 0};



  HANDLE hCalendar = (HANDLE)SendMessage(DateTimePicker1->Handle, DTM_GETMONTHCAL, 0, 0);

  BOLDDAY(MonthBInfo[0], 0);

  BOLDDAY(MonthBInfo[1], 15);

  BOLDDAY(MonthBInfo[2], 0);

  if(hCalendar > 0)

    SendMessage(hCalendar, MCM_SETDAYSTATE, 3, LPARAM(MonthBInfo));

}

Necesito que me destaque las fechas, por ejemplo, entre el 1 de abril y hoy 24 de abril y con ese código me hace esto:

Como veis unos días sí los pone en negrita y otros no. He probado en ese evento con variaciones del código como esta:

Código:

void __fastcall TfFacAlb::FecPagoDropDown(TObject *Sender)

{

     MONTHDAYSTATE MonthBInfo[3] = {0, 0, 0};

     Word Year, Month, Day;



     fMenu->Query->Close();

     fMenu->Query->SQL->Text = "SELECT Fecha FROM Factura WHERE TipoDoc = 3 AND NumFactura = :NumFactura";

     fMenu->Query->ParamByName("NumFactura")->AsInteger = StrToInt(pItem->SubItems->Strings[3]);

     fMenu->Query->Open();



     DecodeDate(fMenu->Query->FieldByName("Fecha")->AsDateTime, Year, Month, Day);

     HANDLE hCalendar = (HANDLE)SendMessage(FecPago->Handle, DTM_GETMONTHCAL, 0, 0);

     BOLDDAY(MonthBInfo[0], 0);

     BOLDDAY(MonthBInfo[1], Day);

     BOLDDAY(MonthBInfo[2], 0);

     if (hCalendar > 0)

          SendMessage(hCalendar, MCM_SETDAYSTATE, 3, LPARAM(MonthBInfo));

}

o esta:

Código:

void __fastcall TfFacAlb::FecPagoDropDown(TObject *Sender)

{

     MONTHDAYSTATE MonthBInfo = 0;

     Word Year, Month, Day;



     fMenu->Query->Close();

     fMenu->Query->SQL->Text = "SELECT Fecha FROM Factura WHERE TipoDoc = 3 AND NumFactura = :NumFactura";

     fMenu->Query->ParamByName("NumFactura")->AsInteger = StrToInt(pItem->SubItems->Strings[3]);

     fMenu->Query->Open();



     DecodeDate(fMenu->Query->FieldByName("Fecha")->AsDateTime, Year, Month, Day);

     HANDLE hCalendar = (HANDLE)SendMessage(FecPago->Handle, DTM_GETMONTHCAL, 0, 0);

     BOLDDAY(MonthBInfo, Day);

     if (hCalendar > 0)

          SendMessage(hCalendar, MCM_SETDAYSTATE, 3, LPARAM(MonthBInfo));

}

Pero lo ponga como lo ponga me hace siempre lo msimo. ¿Qué puedo estar haciendo mal?

Cita:

Empezado por Angel.Matilla (Mensaje 572304)

Pero lo ponga como lo ponga me hace siempre lo msimo. ¿Qué puedo estar haciendo mal?

¿Perdona, pero cuando dices que siempre hace lo mismo a qué te refieres?
¿Que siempre son los ismos días?
¿Que no pinta ninguno?

Cita:

Empezado por Neftali [Germán.Estévez] (Mensaje 572305)

¿Perdona, pero cuando dices que siempre hace lo mismo a qué te refieres?
¿Que siempre son los ismos días?
¿Que no pinta ninguno?

Que hace siempre lo que se ve en la imagen: unos si los pone en negrita y otros no. Y, además, siempre los mismos.

¿Sabes a qué se refiere la estructura MONTHDAYSTATE?

Aquí explican qué es cada cosa...
https://learn.microsoft.com/es-es/wi...set-day-states

Cita:

Instrucciones

Una aplicación puede establecer explícitamente información de estado de día enviando el mensaje de MCM_SETDAYSTATE o mediante la macro correspondiente, MonthCal_SetDayState. Sin embargo, la información de estado del día normalmente se establece en respuesta al código de notificación de MCN_GETDAYSTATE , que se envía cada vez que se debe actualizar el control porque, por ejemplo, un mes diferente se ha desplazado hacia la vista.

En el código de ejemplo siguiente se muestra cómo procesar el código de notificación MCN_GETDAYSTATE en un controlador de mensajes WM_NOTIFY . Procesa MCN_GETDAYSTATE especificando que se debe resaltar el primer y el decimoquinto día de cada mes visible. El miembro cDayState de la estructura NMDAYSTATE especifica el número de valores MONTHDAYSTATE necesarios en la matriz, que se asigna un tamaño máximo arbitrario. A continuación, el código realiza un bucle para establecer los bits adecuados en cada elemento válido de la matriz, mediante la macro BOLDDAY definida por la aplicación.

Código:

#define BOLDDAY(ds, iDay)  \

        if (iDay > 0 && iDay < 32)(ds) |= (0x00000001 << (iDay - 1))



case WM_NOTIFY:

        if (((LPNMHDR)lParam)->code == MCN_GETDAYSTATE)

        {

            MONTHDAYSTATE rgMonths[12] = { 0 };

            int cMonths = ((NMDAYSTATE*)lParam)->cDayState;

            for (int i = 0; i < cMonths; i++)

            {

                BOLDDAY(rgMonths[i], 1);

                BOLDDAY(rgMonths[i], 15);

            }

            ((NMDAYSTATE*)lParam)->prgDayState = rgMonths;

            return TRUE;

        }

        break;

Gracias por la información, pero en estos temas estoy totalmente perdido y no entiendo lo que quieren decir. :confused:

Cita:

Empezado por duilioisola (Mensaje 572307)

¿Sabes a qué se refiere la estructura MONTHDAYSTATE?

Gracias por la ayuda. Estuve viendo el enlace que pusiste, me aclaró bastantes cosas y encontré la manera de hacer lo que quería. He usado este código:

Código:

void __fastcall TfFacAlb::DateTimePicker1DropDown(TObject *Sender)

{

     MONTHDAYSTATE MonthBInfo[3] = {0, 0, 0};

     Word Year, Month, Day;



     DateTimePicker1->MinDate = FecPago->MinDate;

     DateTimePicker1->MaxDate = FecPago->MaxDate;

     HANDLE hCalendar = (HANDLE)SendMessage(DateTimePicker1->Handle, DTM_GETMONTHCAL, 0, 0);

     for (TDate d = DateTimePicker1->MinDate; d <= DateTimePicker1->MaxDate; d ++)

     {

          DecodeDate(d, Year, Month, Day);

          BOLDDAY(MonthBInfo[0], Day);

          BOLDDAY(MonthBInfo[1], Day);

          BOLDDAY(MonthBInfo[2], Day);



          if(hCalendar > 0)

               SendMessage(hCalendar, MCM_SETDAYSTATE, 3, LPARAM(MonthBInfo));

     }

}

Pero me falta algo. La primera vez que se despliega el DateTimePicker hace lo que quiero.

Pero si salgo de ese desplegable, al volver a mostrar el mes me hace lo mismo de antes: uno sí los pone en negrita y otros no.

Tengo que ver si hay alguna forma de "resetear" el mes.