Bitmap i StringGrid

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  B: TBitmap;
begin
  if (ACol = 1) and (ARow = 1) then
  begin
    B := TBitmap.Create;
    ImageList1.GetBitmap(3, B);
    StringGrid1.Canvas.FillRect(Rect);
    StringGrid1.Canvas.TextRect(Rect, Rect.Left + 2 + ImageList1.Width, Rect.Top + 2, StringGrid1.Cells[aCol, aRow]);
    StringGrid1.Canvas.Draw(Rect.Left+2, Rect.Top+2, B);
  end;
end;

Det skulle vist virke :)

Jeg laver en scanning af nogle maskiner. Resultatet af denne scanning samler jeg i en StringGrid. Jeg vil så gerne supplere scanningsresultatet med et ikon.
På linie 1, skal jeg måske bruge ikon nr.1 fordi scanningen gik godt. På linie 2 skal jeg måske bruge ikon nr.3, fordi maskinen ikke var på nettet, da scanningen blev udført.
Jeg har derfor brug for en generel procedure, som kan smide et billede ind i en StringGrid sammen med noget tekst. Alle billederne vil komme til at stå i samme kolonne.

Jeg tror ikke du kan få en procedure til at smide billederne i StringGriden uden de bliver slettet meget hurtigt igen, men måske virker det her:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  B: TBitmap;
begin
  if ACol = 0 then
    exit;
  B := TBitmap.Create;
  ImageList1.GetBitmap(ARow-1, B);
  StringGrid1.Canvas.FillRect(Rect);
  StringGrid1.Canvas.TextRect(Rect, Rect.Left + 2 + ImageList1.Width, Rect.Top + 2, StringGrid1.Cells[aCol, aRow]);
  StringGrid1.Canvas.Draw(Rect.Left+2, Rect.Top+2, B);
end;

Jeg har fundet en løsning på problemet :-)
I den celle, hvor jeg vil ha' et billede placeret, skriver jeg nummeret på billedet fra ImageList. Hvis jeg bruger nedenstående procedure, bliver nummeret udskiftet med billedet i OnDraw.
Hvis man ikke kommenterer TextRect ud, bliver nummeret skrevet sammen med billedet.


procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  B: TBitmap;
  Picture: Integer;
begin
  //Fyld cellen i kolonne 2 med nummeret på det billede, der skal viss fra ImageList
  If (ACol=2) then begin
    if TryStrToInt(StringGrid1.Cells[ACol,ARow],Picture) then begin
      B := TBitmap.Create;
      ImageList1.GetBitmap(Picture, B);
      StringGrid1.Canvas.FillRect(Rect);
      //StringGrid1.Canvas.TextRect(Rect, Rect.Left + 2 + ImageList1.Width, Rect.Top + 2, StringGrid1.Cells[aCol, aRow]);
      StringGrid1.Canvas.Draw(Rect.Left+2, Rect.Top+2, B);
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  StringGrid1.Cells[1,1]:='Test 1';
  StringGrid1.Cells[2,1]:='1';
  StringGrid1.Cells[1,2]:='Test 0';
  StringGrid1.Cells[2,2]:='0';
end;

>>hejhej
Tak for inspiration til løsning af problemet.