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