TRichView.com

Code: Select all

function getInfo(ItemNo, OffsetItem : Integer; var Line, Column : Integer) : Integer;
var 
     PageNo : Integer;
     IndexB, IndexE, Offs : Integer; // DrawItemNo
begin
  SRV.RichViewEdit.RVData.Item2DrawItem(ItemNo, OffsetItem, IndexE, Offs);
  PageNo := SRV.getRVPageNoEx(DrawItemNo);
  indexB := SRV.getPageStartDrawItemNo(PageNo);
  Result := PageNo;

  if (indexB >= 0) then
    begin
      Line := 0;
      // Line
      while (IndexB <= IndexE) do
        begin
          if SRV.RichViewEdit.RVData.DrawItems.Items[indexB].FromNewLine then
            Line := Line + 1;
          indexB := indexB + 1;
        end;
      // Col
      if (SRV.getPageStartDrawItemNo(PageNo) <= IndexE) then
        indexB := indexB - 1;
      IndexE := indexB;
      indexB := SRV.getPageStartDrawItemNo(PageNo);
      Column := Offs;
      while (not SRV.RichViewEdit.RVData.DrawItems.Items[indexE].FromNewLine) do
        begin
          IndexE := IndexE - 1;
          if (IndexE >= IndexB) then
            Column := Column + SRV.RichViewEdit.RVData.DrawItems.Items[indexE].Length
          else
            break;
        end;
    end
  else
    begin
      Line := 1;
      Column := 1;
    end;
end;