Ver Mensaje Individual
  #1  
Antiguo 11-12-2008
Avatar de gulder
gulder gulder is offline
Miembro
 
Registrado: abr 2005
Ubicación: colombia-sucre
Posts: 384
Reputación: 20
gulder Va por buen camino
Thumbs up Cargar imágenes en celdas de StringGrid dependiendo de una consulta en tiempo de eje

Hola foro como andan espero que bien, con el siguiente codigo cargo imagenes en las celdas de un StringGrid

Código Delphi [-]
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  Ancho,Posicion: Integer;
begin
  Ancho := StringGrid1.ColWidths[2] div 2;
  Posicion := Ancho - (Image1.Picture.Width div 2);
  if (ARow = 3) and (ACol = 2) then
    with StringGrid1.Canvas do
      Draw(Rect.Left+Posicion, Rect.Top, Image1.Picture.Graphic);
end;

Este codigo lo hace bien el problema es que con este código las cargo cuando se ejecuta mi aplicación, y yo quiero cambiar dichas imágenes dependiendo una consulta que hago a una base de datos, pero no se como llamar dicho evento para que cargue mis imágenes cuando realizo la consulta, la consulta ya esta bien lo que quiero que me digan es como rellenar las celdas del StringGrid desde la consulta con las imagenes saludos gulder-gan
Responder Con Cita