Ver Mensaje Individual
  #1  
Antiguo 22-01-2018
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Posts: 1.350
Reputación: 19
Angel.Matilla Va por buen camino
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).
Responder Con Cita