BDGrid. Подсветить часть текста.

[_SERGEYX_]

Как подсветить часть текста в ячейке BDGrid? Или цветом текста или фоном, все равно. (Хочу сделать при поиске по подстроке).
В RichEdit понятно, там проще.
А в ячейке не могу сообразить. Например, значение ячейки <DELPHI>.
Нужно подсветить четыре буквы <ELPH>

Пробовал в событии OnDrawColumnCell нарисовать Rect.
Pos('ELPH',text) мне известен.
Начало Rect-а = Length(Copy(Text,0,Pos('ELPH',Text) ))
т.е. я знаю сколько символов находится до нужной позиции.

А что дальше? Rect.Left плюс (умножить количество символов на количество пикселей в одном символе)?

Но оно может быть разным (символы разной ширины).

Или я вообще не с той стороны копаю?
Может уже есть готовый код? Я не нашел.

[Stilet]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, Grids, DBGrids, DBTables, StdCtrls, ADODB;

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Edit1: TEdit;
    ADOTable1: TADOTable;
    procedure DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
      Field: TField; State: TGridDrawState);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
var i:integer;s:string;  r:TRect;
begin
  with DBGrid1.Canvas do begin
   r:=Rect;
   FillRect(r);
   i:=pos(Edit1.Text,Field.AsString);
   if i<>0 then begin
    s:=copy(Field.AsString,1,i-1);
     TextOut(r.Left,r.Top,s);
     r.Left:=r.Left+TextWidth(s);
    Brush.Color:=clRed;
    s:=Edit1.Text;
     TextOut(r.Left,r.Top,s);
     r.Left:=r.Left+TextWidth(s);
    Brush.Color:=clWhite;
    s:=copy(Field.AsString,i+length(Edit1.Text),length(Field.AsString));
     TextOut(r.Left,r.Top,s);
   end else begin
     TextOut(r.Left,r.Top,Field.AsString);
   end;
  end;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
 DBGrid1.Repaint;
end;

end.

Смысл пояснить?

[_SERGEYX_]

Stilet, большое спасибо. Смысл понятен.
Я забыл, что существует TextWidth();
Работает отлично.

В догонку...
Stilet, может есть мысль как подсветить без учета регистра?
Вообще, было бы супер-пупер...

[Stilet]

i:=pos(AnsiLowerCase(Edit1.Text),AnsiLowerCase(Field.AsString));

Однако могу сказать что AnsiLowerCase(Edit1.Text) стоит сделать только один раз перед перерисовкой, например в OnChange, при этом можно перекинуть в какую нить глобальную переменку с в методе отрисовки с ней работать.

[_SERGEYX_]

Точно. Еще раз спасибо.

Вот такой получился код (может кому интересно)
Таблица - mem
Поле - Detail_name
Edit для поиска - eFind

procedure TfrmMain.GridDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
var i, tmpPos: integer;
  s, e, f2: string;
  r: TRect;
begin
  if DataCol = 2 then
  begin
    with Grid.Canvas do
    begin
      r := Rect;
      FillRect(r);
      e := AnsiUpperCase(eFind.Text);
      f2 := AnsiUpperCase(MemDetail_name.Text);
      i := pos(e, f2);
      if i <> 0 then
      begin
        s := copy(MemDetail_name.Text, 1, i - 1);
        Font.Color := clBlack;
        Font.Style := [];
        TextOut(r.Left, r.Top, s);
        r.Left := r.Left + TextWidth(s);
        Brush.Color := $00CCFFFF;
        tmpPos := Pos(e, f2);
        s := Copy(MemDetail_name.Text, tmpPos, Length(e));
        Font.Color := clMaroon;
        Font.Style := [fsBold];
        TextOut(r.Left, r.Top, s);
        r.Left := r.Left + TextWidth(s);
        Brush.Color := clWhite;
        s := copy(MemDetail_name.Text, i + length(e), length(f2));
        Font.Color := clBlack;
        Font.Style := [];
        TextOut(r.Left, r.Top, s);
      end else
      begin
        TextOut(r.Left, r.Top, MemDetail_name.Text);
      end;
    end;
  end;
end;