Foros Club Delphi - Como agregar una imagen de una ImageList en un Stringgrid

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Como agregar una imagen de una ImageList en un Stringgrid (https://www.clubdelphi.com/foros/showthread.php?t=97010)

Como agregar una imagen de una ImageList en un Stringgrid

Hola amigos,

Tengo este codigo pero no tengo idea de como agregar las imagenes que tengo almacenadas en un Imagelist. Si alguien me puede orientar estare agradecido

Código:

procedure TFormMain.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;

  Rect: TRect; State: TGridDrawState);

var

  Alin: integer;

begin

  with Sender as TStringGrid do

  begin

    if ARow = 0 then

       Alin:= DT_CENTER

    else

       Alin:= DT_RIGHT;



    if ACol = 0 then

       Alin:= DT_LEFT;



     if ARow = 0 then

       Alin:= DT_CENTER;



    // Dibujar texto centrado horizontal y verticalmente o a la derecha

    InflateRect(Rect, -1, -1);

    Canvas.FillRect(Rect);

    InflateRect(Rect, -3, -3);

    DrawText(Canvas.Handle, PAnsiChar(Cells[ACol, ARow]), Length(Cells[ACol, ARow]), Rect,

        Alin or DT_VCENTER or DT_SINGLELINE);

  end;

end;

Este es un código que tengo sobre un componente nuestro que deriva del StringGrid así que podrás interpretarlo fácilmente

Código Delphi [-]procedure TFormManejaVerifactu.NTStringGrid3DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var
  SelectedPicture: TBitmap;
begin
  // Resultados del envío: 0=Enviado 1=No enviado(errores) 2=Enviado con errores
  if NtStringGrid3.RowCount <2 then
    exit;
  with Sender as TStringGrid do begin

    if NtStringGrid3.ValorCeldaPorCampoYFila('RESULTADO',ARow)<>'' then begin
      if (ACol=0) then begin
        if NtStringGrid3.Cells[0,ARow]<>'' then begin
          SelectedPicture:=TBitmap.Create;
          If NtStringGrid3.Cells[0,ARow]='0' then begin
            ImageList.GetBitmap(0, SelectedPicture);
          end else if NtStringGrid3.Cells[0,ARow]='1' then begin
            ImageList.GetBitmap(1, SelectedPicture);
          end else if NtStringGrid3.Cells[0,ARow]='2' then begin
            ImageList.GetBitmap(2, SelectedPicture);
          end;
          NtStringGrid3.Canvas.Draw(Rect.Left-2, Rect.Top, SelectedPicture);
          SelectedPicture.Free;
        end;
      end;
    end;

  end;

end;

Saludos.

Muchas gracias a todos