Image in DrawGrid :(

[himitsu]

Erst mal, wird an einer anderen Stelle ins Grid gezeichnet. (OnDrawCell)
Und zum Anderen, sollte auch ein Bild in der ImageList sein.
Ach ja, wie man die Grafiken eine ImageList zeichnet, steht in der OH. (TImageList / Draw)

Delphi-Quellcode:

Procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
Begin
  If (ACol = 1) and (ARow = 1) Then Begin
    ImageList1.Draw(DrawGrid1.Canvas, Rect.Left, Rect.Top, 0);
    { Der Bereich des Feldes, welches gezeichnet werden soll,         }
    {   liegt innerhalb des in Rect fesgelegten Bereich.              }
    { Und es ist besser nicht ausserhalb dieses Bereichs zu zeichnen. }
    { Also sollten für dieses Beispiel die Bilder nicht               }
    { grösser als die entsprechende Zelle sein.                       }
  End;
End;