[SynEdit] Ist Zeile markiert?

[calculon]

Hi allerseits!

Ich würde gerne mit markierten Elementen in meinem SynEdit etwas machen. Nur weiß' ich nicht wie ich prüfen kann, ob die Zeile markiert ist:

Delphi-Quellcode:

for i := 0 to SynEdit.Lines.Count - 1 do
  if Synedit.Lines.Strings[i].isSelected then // <-- diese Funktion gibt es leider nicht
    ...

Weiß jemand wie ich das realisieren kann?

Gruß

Calculon
--

[marabu]

Hallo,

markierte Zeilen musst du nicht unbedingt suchen, sie sind berechenbar:

Delphi-Quellcode:

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  iFirst, iLast: Integer;
  bc: TBufferCoord;
begin
  with SynEdit do
    if SelAvail then
    begin
      bc := CharIndexToRowCol(SelStart);
      iFirst := bc.Line;
      bc := CharIndexToRowCol(Pred(SelStart + SelLength));
      iLast := bc.Line;
      ShowMessage(Format('first line selected: %d - last line: %d', [iFirst, iLast]));
    end else 
      ShowMessage('Dies alles ist höchst wunderlich!');
end;

Grüße vom marabu

[calculon]

Habe deinen Code übernommen und es funktioniert genau wie ich es wollte. Vielen Dank dafür!

Gruß

Calculon
--