Color a part of my DB results with a TDbAdvGrid

VCL TMS VCL UI Pack
1
Hello,
After a button is cliked, the TADOQuery returns values that contain the search Text.
Exemple :
select * from XXX where REF like ('%PRO%') , return only values that contain 'PRO'.



I try to change the color of the search text on my Query values to clearely identify them. (like the Hightlight process when you search a text in your Delphi's Unit)
Can you help me. I don't know to do.
PS : I use a TDbADVGrid and the type of my data values are String.
Thanks.
2

If you want to highlight just the part PRO in the text, you could implement the event OnGetDisplText() and use the function HiLight that is in AsgHTMLE.pas:


function HiLight(s,h,tag:string;DoCase:boolean):string;

Example:

procedure TForm1.AdvStringGrid1GetDisplText(Sender: TObject; ACol,
  ARow: Integer; var Value: string);
begin
  Value := Hilight(Value,'PRO','hi');
end;