[SynEdit] Probleme mit Marks

[MrKnogge]

Moin,

ich habe ein SynEdit und eine ImageList mit 6 Images auf einer Form.
Nun möchte ich durch einen Click auf den Rand ein Mark setzten, bzw. ihn verändern.

Delphi-Quellcode:

procedure TForm1.SynEdit1GutterClick(Sender: TObject;
  Button: TMouseButton; X, Y, Line: Integer; Mark: TSynEditMark);
var
  i: integer;
begin
  if not assigned(mark) then
  begin
    SynEdit1.Marks.ClearLine(Line);  
    Mark := TSynEditMark.Create;
    Mark.Line := Line;
    Mark.ImageIndex := 0;
    Mark.Visible := true;
    SynEdit1.Marks.Add(Mark);
  end
  else begin
    if Mark.ImageIndex < 5 then begin
      Mark.ImageIndex := Mark.ImageIndex + 1;
      Mark.Visible := true;
    end
    else
      Mark.Free;
  end;
end;

Das setzen funktioniert auch soweit, nur wird das Image nicht verändert.

Weis jemand von euch vielleicht einen Rat ?

Gruß

[MrKnogge]

*push*

Gruß