Icon aus ImageList ins StringGrid laden!

[Uwe Raabe]

Delphi-Quellcode:

var
  X, Y: Integer;
begin
  if (ACol = 6) and (ARow >= StringGrid1.FixedRows) and (StringGrid1.Cells [1, ARow] ='Eingang') then begin
    { eventuell noch zentrieren }
    X := Rect.Left;
    Y := Rect.Top;
    ImageList1.Draw(StringGrid1.Canvas, X, Y, 0, true);  { 0 = erstes Image in ImageList }
  end;
end;