Da ich nicht weiß, wo du deine Codefragmente aufrufst, hab ich mir mal schnell einen OnDrawCell-Handler gebaut:
Delphi-Quellcode:
procedure TForm62.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if ACol = 0 then
ImageList1.Draw(StringGrid1.Canvas, Rect.Left + 2, Rect.Top + 2, ARow);
end;
Auf die Art hab ich dein Artefakt nicht. Wenn das dein Problem nicht löst, bitte mehr Infos.
Uli.