Color Calendario...

[[Lepe]]

Código Delphi [-]
uses DateUtils;

mxcalendar1.OnGetItemStyle(Sender:TmxCustomCalendar;AstyleType:TmxStyleType;
                      ADate:TDate;var AFont:Tfont; var AColor:TColor)

var MiFecha :Tdate;
begin
// colorear según la fecha que yo quiera:
MiFecha := encodeDate(2007, 03, 25);
if ADate = MiFecha 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;

// colorear todos los fines de semana:
if AStyleType = stWeekend then AColor := clgreen

//colorear la fecha que hace click
else if AStyleType = stSelected then AColor := clYellow;
....
// mira en mxCalendar.pas para ver el StyleType

Saludos

[Bluefox]

Eso que quieres, creo que en la Jedi hay un control que te pone en color el los dias de las semana que quieras..

[[Lepe]]

Empezado por Bluefox

Eso que quieres, creo que en la Jedi hay un control que te pone en color el los dias de las semana que quieras..

¿Podrías mirarlo? No es una exigencia, es que lo estuve mirando y no encontré forma alguna... quizás no miré bien.

Saludos

[Bluefox]

Si que lo hay, pero esta asociado a un Text, al menos el que yo use hace poco, y puedes colorear los dias de la semana (yo lo hice del finde (sabado y domingo)).

[thelibmx]

mmm, creo que no entiendo un poco sus tecnicismos, pero si me sirvio de mucho la ayuda que me proporcionaron,ya puedo cambiar y colorear los dias, (que bien eso esta muy perfecto!!) pero lo hago de forma manual, creo q eso esta bien por el momento, (no esta mal para un principiante en delphi 2006)ahora mi proximo reto es guardar las fechas en una tabla en una bd en postgree, ya tengo la tabla, solo me gustaria si me pudieran decir que componente me recomiendan que utilize para guardar los datos de tipo fecha en la tabla, de antemano muchas gracias por el apoyo!!

[[Lepe]]

Lo lamento, no he usado postgree en mi vida.

Saludos

[thelibmx]

ok, muchas gracias de todos modos, con lo que me has dicho me ha ayudado mucho... buen dia

[thelibmx]

Empezado por Lepe

Código Delphi [-]
uses DateUtils;

mxcalendar1.OnGetItemStyle(Sender:TmxCustomCalendar;AstyleType:TmxStyleType;
ADate:TDate;var AFont:Tfont; var AColor:TColor)

var MiFecha :Tdate;
begin
// colorear según la fecha que yo quiera:
MiFecha := encodeDate(2007, 03, 25);
if ADate = MiFecha 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;

// colorear todos los fines de semana:
if AStyleType = stWeekend then AColor := clgreen

//colorear la fecha que hace click
else if AStyleType = stSelected then AColor := clYellow;
....
// mira en mxCalendar.pas para ver el StyleType






Saludos

oye ahi en donde esta la sintaxys para colorear la fecha que yo quiera, yo he asignado manualmente las fechas y si se pintan, mi duda es... hay una manera de que pueda hacer lo mismo pero introduciendo las fechas desde un Tedit, o caja de texto?, si se puede, podrias poner un codigo de ejemplo, please, por que he intentado ligarlos y no he podido,

[[Lepe]]

Necesitarás un sitio donde guardar todas las fechas que quieres resaltar, por ejemplo un array of TDate. Ese array debe ser global al formulario.

Código Delphi [-]
var Fechas : Array of TDate;

Mira la ayuda de SetLength para cambiar el tamaño de ese array dinamicamente.

Después dentro de ese evento, recorres el array y si la fecha Adate = Fechas[i] entonces pintas.

Saludos

[thelibmx]

hola, sabes estoy ocupando el componente tmaxcalendar, para sombrear las fechas de un color determinado, pues bien ya hice todo el procedimiento y pues a las fechas se sombrean pero por medio de codigo, entonces yo quise hacer lo mismo pero automaticamente, entonces ya hice mi conexion con una bd y tengo el campo en un DBedit. lo que yo quiero es que me sombrie todas las fechas que vayan apareciendo en el BDedit pero a la hora de pasar los datos me dice que no son compatibles

[Pascal Error] conf_calendario.pas(145): E2010 Incompatible types: 'Word' and 'string'

estos datos, como podria hacerlo ?
dejo parte de mi codigo para mayor informacion


procedure TForm5.diedClick(Sender: TObject);
begin
prueba:= DBedit3.EditText;
showmessage(prueba);//aqui esta todo correcto me trae el registro de la bd
end;


function cambiaFormato(fecha:String):String;
begin
an:=Copy(fecha,3,2);
mes:=Copy(fecha,6,2);
dia:=Copy(fecha,9,2);
cambiaFormato:=an+','+mes+','+dia;
end;



procedure TForm5.mxCalendar1GetItemStyle(Sender: TmxCustomCalendar;
AStyleType: TmxStyleType; ADate: TDate; var AFont: TFont; var AColor: TColor);
begin

nuevaFecha:=cambiaFormato(prueba);
segundafecha:= strtodate (nuevaFecha);

segundafecha:=encodedate(an,mes,dia);

if (ADate = primefecha) or (Adate=segundafecha) 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;

end;

[[Lepe]]

Código Delphi [-]
 segundafecha:=encodedate(strtoInt(an),strToInt(mes),strtoint(dia);

Aquí "an" está en formato dos dígitos, es decir 02 para referirte al año 2002, la función lo entenderá como 1902, ya que el calendario base empieza en 1900, y al esperar un Word (que al fin y al cabo es un integer), lo interpreta mal. Obliga al usuario a escribir 4 dígitos para el año.

Saludos

[thelibmx]

Muchas gracias, tenias mucha razon, solo agregue los numeros complementarios a la funcion y quedo listo, gracias por la ayuda