Marcar una fecha en un TMonthCalendar

[[Lepe]]

Puedes quitar la palabra "Self." es una manía más que otra cosa .

Self hace referencia al objeto que instancia la clase, digamos que es un comodín, ya que una ventana puede crearse varias veces desde distintas variables, por ejemplo al compilar:

Código Delphi [-]
var f1, f2:TForm1;
begin
f1 := TForm1.Create(application);
f2 := TForm1.Create(application);

En la unidad de TForm1 no podemos poner "Form1.width := 300" porque no estamos usando la variable "Form1", en este caso usamos f1 y f2, así que en la unidad TForm1 pondremos "Self.width := 300" o abreviando, también podemos escribir "width := 300"

Yo dije que se quitara el original por el hecho de ahorrar espacio en el FTP yno repetir programas, pero si vamos a causar más molestias que otra cosa, que se quede como está .

Lo dicho, se lo comentas y si le pilla de paso el FTP, que lo borre.

Saludos

[[Caral]]

Hola
Gracias Lepe, mas que claro, ya he arreglado esto y si, mejora mucho.
Voy a implementarlo con un archivo INI (como me comento Egostar) así sera mas fácil instalarlo y poner la base de datos en donde se quiera.
Si se te ocurre algo mas que se le pueda hacer me gustaría tratar de hacerlo, con tu ayuda por supuesto.
Saludos

[Tom]

Estoy haciendo lo que menciono Lepe usando este codigo para evitar el parpadeo al cambio de la fecha

Código Delphi [-]
 procedure TForm1.CreaCalendario;...begin    LockWindowUpdate(self.Handle);// aquí el contenido original de esta rutina    LockWindowUpdate(0);end;

pero me marca el sig error :

Undeclared identifier 'handle'

usa alguna clase este o algo para que me lo tome en cuenta ??

Gracias Saludos

[[Caral]]

Hola
Hay que declarar el procedimiento.
Voy a cambiar el archivo, con esa modificación y con el archivo INI.
En unos minutos lo coloco, estoy en eso.
Saludos

[Tom]

Ok Muy bien, entonces esperare unos minuticos y a checar

Saludos

[[egostar]]

Empezado por Caral

Hola
Gracias Lepe, mas que claro, ya he arreglado esto y si, mejora mucho.
Voy a implementarlo con un archivo INI (como me comento Egostar) así sera mas fácil instalarlo y poner la base de datos en donde se quiera.
Si se te ocurre algo mas que se le pueda hacer me gustaría tratar de hacerlo, con tu ayuda por supuesto.
Saludos

Hey, que pasó amigo, que van a pensar de mi , que soy un vago que ni eso puedo hacer......

Salud OS

[[Caral]]

Hola
Hoy estas susceptible, por que sera
Ya sabes que a lo que me refiero es a que me indicaste, muy atinadamente que le pusiera un archivo ini, que seria mejor y que TU, te harías el tuyo.
Bueno, ya hice las modificaciones y he puesto el programa en el mismo hilo, para que no cambie el concepto.
Ya lo podéis bajar ahí.
Saludos
Ah, se me olvida, si no saben usar un INI, es bueno leer el archivo leeme.

[[egostar]]

Empezado por Caral

Hola
Hoy estas susceptible, por que sera

N'ombre, cual suceptible, si yo soy un hombre feliz......

Empezado por Caral

Ya sabes que a lo que me refiero es a que me indicaste, muy atinadamente que le pusiera un archivo ini, que seria mejor y que TU, te harías el tuyo.
Bueno, ya hice las modificaciones y he puesto el programa en el mismo hilo, para que no cambie el concepto.

Como siempre amigo, mis consejos te han servido para migrar de NOVATO a MASTER

Empezado por Caral

Ah, se me olvida, si no saben usar un INI, es bueno leer el archivo leeme.

, pensé que nos ibas a mandar aquí

Salud OS

[spyfenix]

Que tal genete, este codigo me ha sio de bastante ayuda la vdd.
le quiero modificar un aspecto que seria el seiguiente :

Código Delphi [-]
LockWindowUpdate(self.handle);
    TheTop:= 36;
    Dias := DaysInMonth(Fecha);// cuantos días tiene ese més?
    for cont := 1 to Dias  do
    begin
      dia := TfrmCelda.Create(frmPrincipal.tbCalendario);
      dia.Fecha := RecodeDay(fecha,cont); // asignamos la fecha y el caption de esa celda
      dia.Name := dia.Name + IntToStr(cont); // le ponemos un nombre irrepetible.
      dia.Left:= (DayOfTheWeek(dia.Fecha)-1) * dia.Width; // segun el dia de la semana y el ancho del Freame, lo situamos en pantalla.
      if dia.Left = 0 then
        TheTop := TheTop + dia.Height; // si el dia es 1 es Lunes, aumentamos el Top para la siguiente linea
      dia.Top := TheTop;
      dia.Parent:= frmPrincipal.tbCalendario; // lo hacemos visible en el Form
  
AQUI ME GUSTARIA AGREGAR ESTE BLOQUE PARA QUE CARGUE LOS DATOS SI HAY DATO SEGUN LA FECHA    
  
//cargamos las actividades que se hayan registrado
      {frmPrincipal.ADOQuery2.Close;
      frmPrincipal.ADOQuery2.Parameters.ParamByName('An').Value := frmPrincipal.EAn.Text;
      frmPrincipal.ADOQuery2.Parameters.ParamByName('Me').Value := frmPrincipal.EMes.Text;
      frmPrincipal.ADOQuery2.Parameters.ParamByName('Di').Value := cont;
      frmPrincipal.ADOQuery2.Open;
      if frmPrincipal.ADOQuery2.RecordCount  > 0 then
      begin
        dia.Memo1.Text := frmPrincipal.ADOQuery2.Fields[0].Value;
      end;}
      LockWindowUpdate(0);
   end;

Solo tengo un problema, como puedo saber el nombre del objeto que esta creando para pasar cargar los datos de la consulta

muchas gracias por la ayuda, saludos a todos

[[Caral]]

Hola
dia := TfrmCelda.Create(frmPrincipal.tbCalendario);
Saludos

[dalsim]

envian dd mm y aaaa como puedo cambiarlo a mm dd aaaa gracias