Dibujar imagen con ImageList en StringGrid
 

Hola,

quiero poder dibujar un icono almacenado en un imagelist en un StringGrid en tiempo de ejecución. El StringGrid tiene asociado un pop-up, y al seleccionar un item de este pop-up me debe dibujar el icono en una determinada columna.
El problema esta en que al no realizar esto en el evento on draw tengo una serie de problemas para calcular la posicion deseada y para que lo pinte inmediatamente.
Lo hago de la siguiente forma :

ImageList5.Draw(StringGrid1.Canvas, x, y, 1)

Debes utilizar el evento DrawCell para pintar la celda, ya que es el adecuado para ello; En todo caso en el PopupMenu lo que debes hacer es activar/desactivar un flag que te marque si se pinta el bitmap o no.

En el DrawCell coloca un código como éste:

Código Delphi [-]
var
  bmp:TBitmap;
begin
  //Flag para saber si pinto la imagen (iniciualmente FALSE)
  if (not MustPintar) then begin
    Exit;
  end;
  // Coumna que quiero pintar
  if (ACol <> 1) then begin
    Exit;
  end;
 
  // Crear
  bmp := TBitmap.Create();
  // proteccon
  Try
    // Asignar la imagen
    ImageList1.GetBitmap(0,bmp);
    // pintarla
    StringGrid1.Canvas.Draw(Rect.Left + 2, Rect.Top + 2, bmp);
  finally
    bmp.Free;
  end;

Luego en tu popupmenu añades un código como éste:

Código Delphi [-]
  MustPintar := not MustPintar;
  StringGrid1.Repaint;