Support forums for TRichView, ScaleRichView, Report Workshop and RVMedia components
https://www.trichview.com/forums/
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;