Ver Mensaje Individual
  #6  
Antiguo 06-08-2007
Avatar de thelibmx
thelibmx thelibmx is offline
Miembro
 
Registrado: mar 2007
Posts: 515
Reputación: 20
thelibmx Va por buen camino
Cool

bien yo hice lo mismo que tu pintaba los dias desde una tabla en una base de datos, no recuerdo mucho pero tal ves esto te ayude un poco, haber si me puedo explicar y si estoy bien, cada que tu cambias el calendario se manda a llamar el evento OnGetItemStyleEvent por cada dia del calendario creo..., y ahi fijas el color de cada dia, entonces si quieres que se pinten los dias en una tabla, debes de comparar cada dia y si esta en la tabla que se pinte si no pues no...

un ejemplo de codigo seria este, en el evento ongetitemstyleevent


Código Delphi [-]
query1.add('select * from nombre_tabla where fecha='''+dia que quieras seleccionar+'''');
query1.execsql;
 
if(query1.RowsAffected=1) then
                begin
                  AFont.Style:= AFont.Style + [fsBold]; // poner en negrita la letra de ese día
                  AColor:=clRed; // color de esa fecha en rojo
            end;
 query1.Close;
   end;

es un codigo un poco viejito, tal ves le faltan algunas cosas... no creo que muchas, pero con eso se que te puede ayudar a lo que quieres hacer solo es cosa de que lo adaptes un poco...
__________________
En movimiento...
Responder Con Cita