TRichView.com

Code: Select all

Item.Inserting(aRVData, sr, False);
aRVData.Items.InsertObject(i, sr, Item);
Item.Inserted(aRVData, i);

Code: Select all

ItemNo := RVData.ItemCount - 1;
Offs := RVData.GetOffsAfterItem(ItemNo) - 1;
RVData.SetSelectionBounds(ItemNo, Offs, ItemNo, Offs); 

Code: Select all

DrawItemOffs := ItemOffs-DrawItems[DrawItemNo].Offs+1;

Code: Select all

begin
  if not FileExists(aFileName) then Exit;

  Image := TPicture.Create;
  Image.LoadFromFile(aFileName);

  Item := TRVGraphicItemInfo.CreateEx(aRVData, Image.Graphic, rvvaBaseline);

  // iterate through tables
  for i := 0 to aRVData.ItemCount - 1 do
  begin
    table := TRVTableItemInfo(aRVData.GetItem(i));
    if Assigned(table.Rows) then
    begin
       for row := 0 to table.Rows.Count - 1 do
        for col := 0 to table.Rows[row].Count - 1 do
          while True do
          begin
            cellContent := table.Cells[row,col].GetRVData.GetItemText(0);
            stringIndex := Pos(aText, cellContent);

            // if placeholder does not exist in cell -> break loop
            if stringIndex = 0 then Break;

            Delete(cellContent, stringIndex, Length(aText));

            table.Cells[row, col].GetRVData.SetItemText(0, cellContent);

            //TODO: insert Image at stringIndex
          end;
    end;
  end;

  Image.Free;
end;