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;