Показать сообщение отдельно
  #2  
Старый 12.11.2010, 10:51
Аватар для TOJluK
TOJluK TOJluK вне форума
Местный
 
Регистрация: 25.02.2009
Адрес: Минск
Сообщения: 551
Версия Delphi: 2007
Репутация: 110
По умолчанию

Все оказалось просто. Если кому вдруг понадобиться:

Код:
procedure TClientContactForm.G1DBTableView1Firm_nameGetDisplayText(
  Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
  var AText: string);
var
   AStr, BStr: string;
   selection_Start, selection_Length: integer;
begin
  inherited;
    if ARecord <> nil then begin
      AStr := Arecord.Values[G1DBTableView1Firm_name.Index];
      BStr := lcbFirm.text;
      selection_Start  := pos(AnsiUpperCase(BStr), AnsiUpperCase(AStr));
      selection_Length := Length(BStr);
      RichEdit1.Text:=AStr;
      RichEdit1.SelStart :=selection_Start;
      RichEdit1.SelLength :=selection_Length;
      RichEdit1.SelAttributes.Color := clBlue;
      RichEdit1.SelAttributes.Style :=[fsbold];
      AText:=RichEdit1.EditValue ;
    end;
end;
Ответить с цитированием