TRichView.com

Code: Select all

type
  TWordColorer = class (TRVWordEnumerator)
  private
    FEdit: TCustomRichViewEdit;
  public
    procedure Run(Edit: TCustomRichViewEdit);
    function ProcessWord: Boolean; override;
  end;

function TWordColorer.ProcessWord: Boolean;
begin
  // word is available in FWord variable
  SelectCurrentWord;
  FEdit.ApplyTextStyle(1);
  Result := True;
end;

Code: Select all

for wd_ndx := 0 to cklist.Count-1 do begin
   sl := TStringList(cklist.Items.Objects[wd_ndx]);
   if (sl <> nil) then begin
      wd := cklist.Items[wd_ndx];
      rve.SetSelectionBounds(0, rve.GetOffsBeforeItem(0), 0, rve.GetOffsBeforeItem(0));
      while rve.SearchText( wd, [rvseoDown,rvseoWholeWord]) do begin
         if (prev_item_no = rve.CurItemNo) then // sometimes this gets stuck in a loop.  This should help us break out.
            break;

         inc( tot_kwds );
         RVGetSelection( rve, _st, _len );
         n := tagged_wds.AddKwd( wd, _st, _len );
         rve.SetCurrentTag( n );  // lets us lookup entry in tagged_wds
         rve.ApplyTextStyle(2);

         if (prev_item_no <> rve.CurItemNo) then 
            prev_item_no := rve.CurItemNo;
      end;
   end;
end;

Code: Select all

 {Search -------------------------------------}
function TForm1.rvSearch : boolean;
var
  pucs, ita, itb, itc, z1, z2, z3, z4 : integer;
  SelectedStr, UniStr : String;
  WdFind, ShowMsg : boolean;

  function rvTextFind : boolean;
  begin
    if rve.RVData.SearchText(FindDlg.sUpOrDown, FindDlg.sMatch,
                           FindDlg.sWholeWord , FindDlg.rvTextStr) then Result := True
    else begin
      Result := False;
      if ReplaceCount = 0 then
          Application.MessageBox(
          'None found for this click      ',  'Search complete',
          MB_OK or MB_ICONEXCLAMATION);
    end;
  end;

begin
  Result := True;
  SkipLang := True; //Avoid current textstyle change
  if CheckUniKey(SearchLangID) then begin //Check if SearchLangID is unicode                                                   
    WdFind := False;
    ShowMsg := False;
    ita := -1;
    itb := -1;
    itc := -1;
    while WdFind = False do begin
      if rvTextFind then begin
        if rve.GetItemStyle(rve.CurItemNo) = rvsTable then begin
          rve.TopLevelEditor.GetSelectionBounds(z1, z2, z3, z4, False);
          SelectedStr := rve.TopLevelEditor.RVData.GetSelText(True);
        end else begin
          rve.GetSelectionBounds(z1, z2, z3, z4, False);
          SelectedStr := rve.RVData.GetSelText(True);
        end;
        UniStr := FindDlg.rvTextUni;
        if (ita = z1) and (itb = z3) and (itc = z4)
        and (SelectedStr <> FindDlg.rvTextUni) then begin
          WdFind := True;
          ShowMsg := True;
        end else begin
          ita := z1;
          itb := z3;
          itc := z4;
          if SelectedStr = FindDlg.rvTextUni then begin
            if rve.GetItemStyle(rve.CurItemNo) = rvsTable then
              pucs := rve.TopLevelEditor.RVData.GetItemStyle(z1)
            else pucs := rve.GetItemStyle(z1);
            //test for unicode then match (only) CharacterSet is good enough!!
            if (RVStyle1.TextStyles[pucs].Unicode)
            and (EnumCharset = RVStyle1.TextStyles[pucs].Charset) then
              WdFind := True
             else WdFind := False;
          end else WdFind := False;
        end;
      end else WdFind := True;
    end;
    if ShowMsg then begin
      rve.Deselect;
      rve.Reformat;
      Application.MessageBox(
                       'None found for this click      ', 'Search complete',
                       MB_OK or MB_ICONEXCLAMATION);
    end;
  end else if rvTextFind then Result := True;
  SkipLang := False;
end;