In which memoLine does the cursor stand ?

Return to index

Author

Message

jb

Posted: 07/24/2005 20:29:49

Does someone know, in which line I am standing ?

In the meantime I kow how many lines a memo has:

memoZeilen.Caption:=IntToStr(memo.GetLineNo(memo.ItemCount-1,   memo.GetOffsAfterItem(memo.ItemCount-1)));

oder

  memo.format;  memoZeilen.Caption:=intToStr(HowManyLines(memo));

  function TForm1.HowManyLines(rv: TCustomRichView): Integer;

  var i: Integer;  // from Sergey

  begin

    Result := 0;

    for i := 0 to rv.RVData.DrawItems.Count-1 do

      if rv.RVData.DrawItems[i].FromNewLine then inc(Result);

  end;