Function TParagraph.QuickFind(w:WideString; len:Integer; CompareAsLowercase:Boolean; StartPos:Integer; WildChar:Char) : Integer

Unit: WPRTEDefs
Class: WPRTEDefs.TParagraph

Parameters

  • w:WideString
  • len:Integer
  • CompareAsLowercase:Boolean
  • StartPos:Integer
  • WildChar:Char

Returns

The type of the result value is Integer.

Description

Checks if this paragraph contains a certain text or token, such as [~ANYNAME~] procedure TWPToolsEditor.WPRichText1InternPaintPar(Sender: TObject; Stage: TWPInternPaintParEventStage; Editor: TWPRTFEnginePaint; var LineData: TWPVirtPageImageLineRef; ThisRTFpage: TWPVirtPage; Par: TParagraph; LineNr: Integer; Canvas: TCanvas; var ParColorOverride, TextColorOverride: TColor; var AnyObject: TObject; var IgnoreOutput: Boolean); var i, len : Integer; bname : String; begin if (Stage=wpBeforeLineText) and (par.ParentPar=nil) then begin i:=par.QuickFind('[~*~]',len,false, 0,'*'); if i>=0 then begin bname:=par.GetSubText(i+2,len-4,false); if cmNamedPar.Items.IndexOf(bname)>=0 then begin TextColorOverride:=clGreen; ParColorOverride:=clYellow; end; end; end; end;

Overloaded Methods

Function TParagraph.QuickFind(w:WideString; CompareAsLowercase:Boolean; StartPos:Integer) : Integer