Cargar imágenes en celdas de StringGrid dependiendo de una consulta en tiempo de eje

[*Caro*]

Empezado por egostar

Hola,

Algo sencillo....

Código Delphi [-]
function MaidSt(datoabuscar:string):integer;
begin
//Consulta X que regresa un entero, por ejemplo
end;

begin
Case MaidSt(StringGrid1.Cells[0,ARow]) of
3 : StringGrid1.Canvas.Draw(Rect.Left+34, Rect.Top, Image2.Picture.Graphic);
4 : StringGrid1.Canvas.Draw(Rect.Left+34, Rect.Top, Image3.Picture.Graphic);
5 : StringGrid1.Canvas.Draw(Rect.Left+34, Rect.Top, Image1.Picture.Graphic);
end;
end;

Lo que pasa amiguito es que el parametro Rect lo tiene en el evento OnDrawCell y el quiere colocar la imagen despues de hacer su consulta osea que no se estaría en el evento OnDrawCell.

Para hacer lo que pide lo que se me ocurre es obtener el TRect de la celda donde se quiere colocar la imagen, teniendo eso ya podemos dibujar la imagen dentro de esa celda.

En este ejemplo se coloca la imagen dentro de la fila y columna 2, tu debes adecuar a tu codigo.

Código Delphi [-]
var
 Rec : TRect;
begin
 Rec :=StringGrid1.CellRect(2,2);
 StringGrid1.Canvas.Draw(Rec.Left+34, Rec.Top, Image1.Picture.Graphic);

Saluditos

[[egostar]]

Empezado por Caro

Lo que pasa amiguito es que el parametro Rect lo tiene en el evento OnDrawCell y el quiere colocar la imagen despues de hacer su consulta osea que no se estaría en el evento OnDrawCell.

Asi es amiguita, no coloque el nombre del evento OnDrawCell porque asumí que estabamos en ese evento, el "pintado" de las imagenes se hace en ese evento, aqui te muestro lo que yo hago.....

Código Delphi [-]
//Consulto es status de una habitación.
function TFcalendar.MaidSt(Habitacion:String):Integer;
begin
  With DataModule1.QMaidStatus do begin
    SQL.Text := 'SELECT STATUS FROM MAIDSTATUS WHERE HABITACION = "'+Habitacion+'"';
    Open;
    Result := fields[0].AsInteger;
    Close;
 end;
end;

//Asigno la imagen que le corresponde a la fila en base al status de la habitación
procedure TFcalendar.StringGrid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  with Sender as TStringGrid do begin
    if (ACol=0) then begin
      Case MaidSt(StringGrid1.Cells[0,ARow]) of
         3 : StringGrid1.Canvas.Draw(Rect.Left+34, Rect.Top, Image2.Picture.Graphic);
         4 : StringGrid1.Canvas.Draw(Rect.Left+34, Rect.Top, Image3.Picture.Graphic);
         5 : StringGrid1.Canvas.Draw(Rect.Left+34, Rect.Top, Image1.Picture.Graphic);
      end;
    end;
  end;
end;

Salud ITOS

[gulder]

Caro y egostar gracias por responder con la respuesta que me dio cara logre cargar las imagenes en las celdas del StringGrid el problema que tengo ahora es que si doi clic en una de las imagenes que se
encuentra en la celdas del StringGrid esta se borra y de igual manera si dimenciono el StringGrid el cual yo le doi la opcion al usuario de redimencionar se borra todas y no se por que espero alguna ayuda saluditos

[[egostar]]

Hola

Eso es porque lo estas haciendo fuera del evento OnDrawCell, amigo gulder

Salud OS

[gulder]

hola egostar yo de new por aqui bueno como veo que lo de caro no me resulta le estoy tirando cabeza un poco a tu codigo entonces quiero que me expliques que en caso de que el estado de alguna habitacion cambiara como haces para llamar a dicho evento para que repinte las imagenes saluditos y discupa por tanta molestadera

[[egostar]]

Empezado por gulder

hola egostar yo de new por aqui bueno como veo que lo de caro no me resulta le estoy tirando cabeza un poco a tu codigo entonces quiero que me expliques que en caso de que el estado de alguna habitacion cambiara como haces para llamar a dicho evento para que repinte las imagenes saluditos y discupa por tanta molestadera

Hola

el "repintado" de las celdas se hace cuando realizas un cambio en el StringGrid, en mi caso lo que hago es modificar las casillas del StringGrid con algunos datos y automáticamente ejecuta el evento OnDrawCell, depende que es lo que estes haciendo.

Salud OS