TRichView.com

Code: Select all

Procedure TfStory.HighLighting(Cell: TRVTableCellData; Words: Array of String);
var
  I: Integer;
  D: TRVItemFormattedData;
Begin
  D := TRVItemFormattedData(Cell.GetRVData);
  for I := Low(Words) to High(Words) do
    while D.SearchText(True, False, True, Words[I]) do
      TRVEditRVData(Cell.Edit).ApplyStyleConversion_(tsHighLight, rvscTextStyle, False);
end;

Code: Select all

var I: Integer;
  rve: TCustomRichViewEdit;

  Cell.Edit;
  for I := Low(Words) to High(Words) do 
  begin
    with CustomRVFormattedData(Cell.GetRVData) do
      SetSelectionBounds(0, GetOffsBeforeItem(0). 0, GetOffsBeforeItem(0));
    rve := RichViewEdit1.TopLevelEditor;
    while rve.SearchText(Words[I], [rvseoDown, rvseoWholeWord]) do 
      rve.ApplyStyleConversion(tsHighLight); 
  end;

Code: Select all

  //Printing Answer.
  RowNo := FixedTopRow;
  while not DS.Eof do
    with T.Cells[RowNo,1] do begin

      if RowNo mod 2 <> 0 then Color := clCream;
      AddNLWTag(DS.FindField('Text').AsString,tsNormal,-1,-1);

      SetItemExtraStrProperty(0, rvespHint, DS.FindField('QAID').AsString);
      HighLighting(T.Cells[RowNo, 1], [Words]);

      DS.Next;
      RowNo := RowNo + 1;
    end; // with

Code: Select all

          if rvioUnicode in item.ItemOptions then
            s3 := RVU_AnsiToUnicode(RVData.GetStyleCodePage(item.StyleNo), s3); 

Code: Select all

function InternalPosW(Search: PWideChar; lSearch: Cardinal; const Source: PWideChar; LSource: Cardinal; const StartPos: Cardinal): Cardinal;

label
  Zero, One, Two, Three, Match, Fail, Success;
var
  PSource, pSearchTemp, PSourceTemp: PWideChar;
  lSearchTemp: Cardinal;
  c: WideChar;
begin
  if lSearch > LSource then goto Fail;

  Dec(lSearch);
  Dec(LSource, lSearch);
  if LSource <= StartPos then goto Fail;

  Dec(LSource, StartPos);

  PSource := Source;
  Inc(PSource, StartPos);

  c := Search^;
  Inc(Search);

  while LSource > 0 do
    begin

      while LSource >= 4 do
        begin
          if PSource^ = c then goto Zero;
          if PSource[1] = c then goto One;
          if PSource[2] = c then goto Two;
          if PSource[3] = c then goto Three;
          Inc(PSource, 4);
          Dec(LSource, 4);
        end;

      if LSource = 0 then Break;
      if PSource^ = c then goto Zero;
      if LSource = 1 then Break;
      if PSource[1] = c then goto One;
      if LSource = 2 then Break;
      if PSource[2] = c then goto Two;
      Break;

      Three:
      Inc(PSource, 4);
      Dec(LSource, 3);
      goto Match;

      Two:
      Inc(PSource, 3);
      Dec(LSource, 2);
      goto Match;

      One:
      Inc(PSource, 2);
      Dec(LSource, 1);
      goto Match;

      Zero:
      Inc(PSource);

      Match:

      PSourceTemp := PSource;
      pSearchTemp := Search;
      lSearchTemp := lSearch;

      while (lSearchTemp >= 4) and
        (PCardinal(PSourceTemp)^ = PCardinal(pSearchTemp)^) and
        (PCardinal(@PSourceTemp[2])^ = PCardinal(@pSearchTemp[2])^) do
        begin
          Inc(PSourceTemp, 4);
          Inc(pSearchTemp, 4);
          Dec(lSearchTemp, 4);
        end;

      if lSearchTemp = 0 then goto Success;
      if PSourceTemp^ = pSearchTemp^ then
        begin
          if lSearchTemp = 1 then goto Success;
          if PSourceTemp[1] = pSearchTemp[1] then
            begin
              if lSearchTemp = 2 then goto Success;
              if PSourceTemp[2] = pSearchTemp[2] then
                begin
                  if lSearchTemp = 3 then goto Success;
                end;
            end;
        end;

      Dec(LSource);
    end;

  Fail:
  Result := 0;
  Exit;

  Success:
  Result := (Cardinal(PSource) - Cardinal(Source)) shr 1;
end;

function LastPosW(const Substr, Str: PWideChar): Integer;
var
  P: Integer;
begin
  Result := 0;

  P := 1;
  while P > 0 do begin
    P := InternalPosW(SubStr, Length(SubStr), Str, Length(Str), P);
    if P > 0 then
      Result := P;
  end;
end;