Thema: Delphi Frage zu Synedit

Einzelnen Beitrag anzeigen

Benedikt
(Gast)

n/a Beiträge
 
#4

Re: Frage zu Synedit

  Alt 15. Mai 2004, 20:16
Hi,

erstens ist mir aufgefallen, dass das Ganze in der D4Demo wesentlich besser veranschaulicht wird.

Allerdings trotzdem hier ein einfaches Beispiel (quasi das gleiche wie in der Demo) um ein Bild in das Gutter einzufügen.

Delphi-Quellcode:
//Prozedur: SynEdit OnGutterClick
//Beim Klick auf das Gutter wird in der entsprechenden Zeile ein Symbol aus einer ImageList
//eingefügt.

procedure TForm1.SynEdit1GutterClick(Sender: TObject; Button: TMouseButton;
  X, Y, Line: Integer; Mark: TSynEditMark);
begin
       SynEdit1.Marks.ClearLine(Line);

       Mark:=TSynEditMark.Create(SynEdit1);

       Mark.ImageIndex:=0;
       Mark.InternalImage:=SynEdit1.BookMarkOptions.BookmarkImages=nil;
       Mark.Visible:=TRUE;
       Mark.Line:=Line;

       SynEdit1.Marks.Place(Mark);
end;
Dabei muss in BookmarkOptions.BookmarkImages die entsprechende ImageList angegeben werden, in welcher das Bild zu suchen ist
  Mit Zitat antworten Zitat