TRichView.com

Code: Select all

//Goes through replacing all
function TReCB.SelectReplaceAllNF(const M: TMatch):String;
var
  StartIndex, EndIndex, ItemNo1, Offs1, ItemNo2, Offs2: Integer;
  RVData1, RVData2: TCustomRVData;
  FindFontBool: Boolean;
  LFText: String;
begin
     //Stops searching unless it gets set to True later
     StartIndex := M.Index-1;
     EndIndex := StartIndex + M.Length;
     //Also update with GRegDiffPoss here to keep alignment correct with the Replaced LFText further down. Starts as 0;
     StartIndex := StartIndex + GRegDiffPos;
     EndIndex := EndIndex + GRegDiffPos;
     if LinearToRichView(GRichViewEdit, GRichViewEdit.RVData, StartIndex, RVData1, ItemNo1, Offs1) and
       LinearToRichView(GRichViewEdit, GRichViewEdit.RVData, EndIndex, RVData2, ItemNo2, Offs2) and
       (RVData1 = RVData2) then
     begin
      RVData1 := RVData1.Edit;
      //Caret after the find
      TCustomRVFormattedData(RVData1).SetSelectionBounds(ItemNo1, Offs1, ItemNo2, Offs2); //The caret is afterwards so the next search is possible.
      //Swap out text here. (This is a regex to update the matched string portion to a replaced value.)
      LFText := ReplaceRe(M.Value, GRegFindStr, GRegReplStr, GRegexOptions);

      //Now insert the new text with format if desired.
      GRichViewEdit.TopLevelEditor.InsertText(LFText, False); //False so the caret is afterwards so the next regex match is possible.
      Inc(GReplaceItemInt);

      //Compare the difference between LFText and M.Length
      //                            20 Replace      - 10 Find
      //                            10 Replace      - 20 Find
      //Alginment happens here so that the strings are kept in parallel alignment between the RegexString and the Document.
      GRegDiffPos := GRegDiffPos + (M.Length + (Length(LFText)-M.Length))-2;
      GSearchBoolFound := True;
    end else
      begin
      Application.MessageBox('The matched fragment cannot be selected OR End of Document', 'OK', MB_OK);
    end;
    Result := 'ok';
end;