StringGrid Zelle + TImage

[youuu]

Habe ich hinbekommen, denke das müsste auch richtig sein.

Delphi-Quellcode:

    if StringGridPositionen.Cells[ACol, ARow] = StringGridPositionen.Cells[3, Sell_Row_Count + 4]  then
    Begin
      StringGridPositionen.Canvas.MoveTo(Rect.Right,rect.Top);
      StringGridPositionen.Canvas.LineTo(Rect.left,rect.Top);
    End;

Zeichnet mir nun auf einmal mehrere Linien, aber normal dürfte es doch nur in einer Zelle eine Linie zusehen sein und nicht in fast allen?