Cita:
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