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 |