7 respuestas en este tema

[El_Chava]

Hola amigos esperando que se encuentren bien aquí de nuevo con una situación que espero me puedan ayudar a solucionar y es la siguiente. Estoy desarrollando un calendario de labores en el cual se deben especificar los días inhábiles, así como los 2 periodos vacacionales que se tienes en el año. Para eso lo que hice fue usar stringGrid para cada mes ya el procedimiento de llenar los meses con sus respectivos días y dependiendo del día en que comienzan en la semana ya esta programado el detalle es el siguiente. tengo un popmenu que al dar click sobre algún día del calendario del stringGrid le saldrá la opciones de día inhábil, primer periodo vacacional y segundo periodo vacacional. El detalle aquí es como puedo hacer que al dar click por ejemplo el día inhábil del popmenu me cambie de color esa celda por ejemplo color gris (como se ve en el archivo adjunto). ya que posteriormente de guardara en una base de datos. Espero me puedan ayudar de antemano muchas gracias.
p.d. Estoy usando lazarus y los componentes de calendario no cuenta con multselect por eso opte por usar StringGrid.

Estos son los códigos que he encontrado en el foro y he usado 
Evento onDrawCell

php

procedure TFrmCalendarioOficial.StrEneroDrawCell(Sender: TObject; aCol,
  aRow: Integer; aRect: TRect; aState: TGridDrawState);
begin
   with TStringGrid(Sender) do
  begin
    if not (gdFixed in aState) then
    begin
      if ((gdSelected in aState) and (Cells[Acol,Arow]<>'')) then
        Canvas.Brush.Color := clHighlight
      else
        Canvas.Brush.Color := clWindow;
      Canvas.FillRect(aRect);
    end;
    Canvas.TextRect(aRect, ACol, ARow, Cells[ACol, ARow]);
  end;
end;

Evento OnMouseDown

php

//con este procedimientos de selecciona y se pinta la celda al dar click derecho del ratón para que el usuario detecte que día va a marcar como inhábil o periodo vacacional
procedure seleccionar_dia(X, Y: Integer;StrMes:TStringGrid);
var aCol, aRow :integer;
       p:TPoint;
 begin
   with FrmCalendarioOficial do
    begin
     StrMes.MouseToCell(X, Y, aCol, aRow);
     StrMes.Row := aRow;
     StrMes.Col := aCol;
     p := StrMes.ClientToScreen(Point(x,y));
     PopupMenu1.popup(p.x, p.y);
    end;
 end; 
 
procedure TFrmCalendarioOficial.StrEneroMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  var aCol, aRow :integer;
      p:TPoint;
begin
      if button = mbright then
      seleccionar_dia( X, Y,StrEnero);
end;

[egostar]

Hola El_Chava

 

¿Te refieres a hacer algo como ésto?

 

Si es así, te puedo ayudar por la noche que regrese a casa, ahí tengo el código que usé para marcar las celdas del StringGrid.

 

Saludos

Archivos adjuntos

•  post-3-14275695737456.png   217,02KB   3 descargas

[El_Chava]

Hola egostar gracias por tu respuesta. Estoy avanzando ya logre que al dar click con el botón izquierdo del mouse seleccionando el día y luego si le da click derecho en el popupmenu selecciona día inábil se ponga del color que hace referencia a los dias inahbiles. el problema es que si en el mismo mes hay otro día inhabil y deseo registrarlo pues me borra la marca del día que ya había marcado como inhabil. aquí una imagen del avance

 

[egostar]

Hola egostar gracias por tu respuesta. Estoy avanzando ya logre que al dar click con el botón izquierdo del mouse seleccionando el día y luego si le da click derecho en el popupmenu selecciona día inábil se ponga del color que hace referencia a los dias inahbiles. el problema es que si en el mismo mes hay otro día inhabil y deseo registrarlo pues me borra la marca del día que ya había marcado como inhabil. aquí una imagen del avance

 

 

 

Hola

 

Como determinas que un día es inhabil, quiero decir, utilizas una tabla o como sabes que un día es inhabil.

 

Saludos

[El_Chava]

Hola egostar al principio de cada año en mi trabajo ellos me pasan un calendario laboral. Ellos ya me definen que días serán inhábiles y cuales serán los 2 periodos vacacionales. En base a ese calendario yo tengo que registrar esos días en el calendario que tendra el sistema para luego guardarlo en una base de datos. Espero me haya explicado saludos

[egostar]

Hola egostar al principio de cada año en mi trabajo ellos me pasan un calendario laboral. Ellos ya me definen que días serán inhábiles y cuales serán los 2 periodos vacacionales. En base a ese calendario yo tengo que registrar esos días en el calendario que tendra el sistema para luego guardarlo en una base de datos. Espero me haya explicado saludos

 

¿Y porque no agregas otro registro con el nuevo día, lees de nuevo la tabla y "pintas" de nuevo las celdas ?

 

Saludos

[El_Chava]

Hola eso lo estaba considerando. Lo que quiero hacer es que el usuario ya que seleccione todos los días inhabiles del año asi como el periodo vacacional ya se guarde en la base de datos. Pero así como lo comentas creo que sera bueno llevar un registro en una tabla de memoria y luego vaciarlo en la base de datos. bueno eso es una idea que tengo por el momento de como resolver el problema.

[El_Chava]

Al fin logre lo que queria hacer en el stringGrid de marcar varias celdas sin que se desmarcaran las que ya lo estaban. Investigando por la red encontre ejemplos y los adapte a los requerimientos que necesitaba. Les dejo el código espero le sean de utilidad. Saludos.

 

procedimientos  

php

procedure seleccionar_dia(X, Y: Integer;StrMes:TStringGrid);
var aCol, aRow :integer;
       p:TPoint;
 begin
   with FrmCalendarioOficial do
    begin
     StrMes.MouseToCell(X, Y, aCol, aRow);
     StrMes.Row := aRow;
     StrMes.Col := aCol;
     p := StrMes.ClientToScreen(Point(x,y));
     PopupMenu1.popup(p.x, p.y);
    end;
 end;
 
procedure celda_seleccionada(Sender: TObject);
var
  aRect:TRect;
begin
    with TStringGrid(sender) do
    begin
     aRect:= CellRect(Col,Row);
       if Cells[Col,Row]<>'' then
      begin
        Objects[Col, Row] := TObject(clSilver);
        Canvas.Brush.Color := TColor(Objects[Col, Row]);
        Canvas.FillRect(aRect);
        Canvas.Font.Color := clBlack;
        Canvas.TextOut(aRect.Left+2, aRect.Top+2, Cells[Col, Row]);
      end;
    end;
end;

En el evento OnCreate del formulario

php

procedure TFrmCalendarioOficial.FormCreate(Sender: TObject);
var
  c, f: Integer;
begin
  with StrEnero do
  begin
    for c := FixedCols to ColCount-1 do
      for f := FixedRows to RowCount-1 do
      begin
        Objects[c, f]:= TObject(clWhite); // color por defecto
      end;
  end;
end;

En el evento OnDrawCell del StringGrid

php

procedure TFrmCalendarioOficial.StrEneroDrawCell(Sender: TObject; aCol,
  aRow: Integer; aRect: TRect; aState: TGridDrawState);
begin
  with TStringGrid(Sender) do
  begin
    if (ARow >= FixedRows) then
    begin
     if ((gdSelected in aState) and (Cells[Acol,Arow]<>'')) then
        Canvas.Brush.Color := clHighlight
     else
      Canvas.Brush.Color := TColor(Objects[ACol, ARow]);
      Canvas.FillRect(aRect);
      Canvas.Font.Color := clBlack;
      Canvas.TextOut(aRect.Left+2, aRect.Top+2, Cells[ACol, ARow]);
    end;
  end;
end;

En el evento MouseDown del StringGrid

php

procedure TFrmCalendarioOficial.StrEneroMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  var aCol, aRow :integer;
      p:TPoint;
begin
   with TStringGrid(Sender) do
    begin
      MouseToCell(X, Y, ACol, ARow);
     case Button of
       // mbLeft :seleccionar_dia( X, Y,StrEnero);
        mbRight:  seleccionar_dia( X, Y,StrEnero);
      end;
    end;
end;

en el popupmenu al seleccionar Día inhábil

php

procedure TFrmCalendarioOficial.MenudiainhabilClick(Sender: TObject);
begin
 if strEnero.Focused then
  celda_seleccionada(StrEnero);
end;

Resultado