Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)
-   -   Aspecto de un formulario con xp.rc (https://www.clubdelphi.com/foros/showthread.php?t=92757)

Angel.Matilla 22-01-2018 18:57:54

Aspecto de un formulario con xp.rc
 
Tengo un formulario (en BCB6) que tiene sólo un TMonthCalendar y un TButton. Me está ocurriendo algo que yo al menos no había visto antes.
Si compilo el proyecto con el fichero de recursos xp.rc (para hacer el aspecto un poco más elegante) veo esto:

Pero si lo compilo sin ese fichero lo veo así:

Evidentemente la forma lógica es la inferior. He de decir que en el TMonthCalendar tengo puesto este código en el evento OnGetMonthInfo para que me resalte un rango de fechas concreto:
Código:

void __fastcall TfCalendar::FechaGetMonthInfo(TObject *Sender, DWORD Month, DWORD &MonthBoldInfo)
{
    std::vector<unsigned> dias;
    for (TDate d = Fecha->MinDate; d <= Fecha->MaxDate; d ++)
    {
          if (d.DayOfWeek() == 1 || d.DayOfWeek() == 7)
              continue;

          unsigned short anyo, mes, dia;
          d.DecodeDate(&anyo, &mes, &dia);
          if (static_cast<DWORD>(mes) == Month)
              dias.push_back(dia);
    }

    if (dias.size() > 0)
          Fecha->BoldDays(&dias[0], dias.size() - 1, static_cast<unsigned>(MonthBoldInfo));
}

pero he comprobado que el no poner ese código no afecta al aspecto del formulario. No sé si ocurrirá lo mismo en otros formularios (no he podido probar todos).

Angel.Matilla 22-01-2018 19:11:23

1 Archivos Adjunto(s)
Por cierto, qe el fichero de recursos xp.rc que estoy usando es el adjunto, evidentemente con su extensión correcta.

Angel.Matilla 26-01-2018 09:54:44

Aclarado el "problema". Al incluir el fichero xp.rc lo que ocurre es que las fechas fuera del rango MinDate a MaxDate no se muestran. ¡Menudo susto me he llevado!


La franja horaria es GMT +2. Ahora son las 05:23:00.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi