RichEdit Markierung Zeilennummer oben und unten

[axelf98]

Hallo,
ich versuche gerade in einem RichEdit die Zeilennummern der aktuellen Markierung zu bekommen. SelStart und SelLength gibt mir ja nur die Zeichenpositionen in der Zeile zurück!

Also wenn man alles markiert, möchte ich zurück haben: (oben = 0, unten = Richedit.lines.count-1)

Hat jemand eine Idee?

[Blackheart]

CaretPos.x, CaretPos.y

[marabu]

Hallo,

mit der Message EM_LINEFROMCHAR kann man den Zeilenindex zu einem beliebigen Zeichenoffset ermitteln:

Delphi-Quellcode:

var
  iLine, iOffset: Integer;
begin
  with RichEdit do
  begin
    iOffset := SelStart;  // SelStart + SelLength
    iLine := Perform(EM_LINEFROMCHAR, iOffset, 0);
  end;
end;

Grüße vom marabu

[axelf98]

Danke hat geklappt!