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ß