Foros Club Delphi - Ver Mensaje Individual - Cargar imágenes en celdas de StringGrid dependiendo de una consulta en tiempo de eje

[egostar] · #2 11-12-2008

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;

Salud OS