Привет всем!

Кто-нибудь подскажет, как можно реализовать следующее:
в Edit вводтся текст;
таблица фильтруется на предмет совпадения с любой частью поля;

Пример кода:
Query1.Active:=false;
Query1.SQL.Clear;
Query1.SQL.Add(QSQL);
Query1.SQL.Add('WHERE FIO LIKE ''%'+Edit2.Text+'%''');
Query1.Active:=true;


Вопрос:
как в отфильтрованных данных в DBGrid одновременно подсвечивать символы,
по которым фильтруется таблица, другим цветом?

Заранее спасибо.

используй событие DrawDataCell сетки, но с подкраской именной нужных символов ячейки тяжело, однако, наврятли тебе здесь дадут пример.
Может сам додумаешься - выкладывай на всеобщее обозрение

есть вариант, я его когдато исползовал, но в других целях.
в DrawDataCell определяеш ту ячеику, в которои нужная подстрока имеется, динамически создоещ TRichEdit и отрисовываеш его прямо над нужнои ячеикои, и там текст пишеш как душе угодно.

Здесь есть все что тебе может понадобиться.
http://www.delphikingdom.ru/asp/viewitem.a...dbgridcolor.htm

А вот простой примерчик, но он выделяет весь текст в ячейке

Код

procedure TForm1.ADOQuery1NameGetText(Sender: TField; var Text: String;   DisplayText: Boolean); begin   if ADOQuery1.FieldbyName('Name').AsString = Edit1.Text then begin     dbgrid1.canvas.Font.Color := clRed;     Text := ADOQuery1.FieldByName('Name').AsString;   end   else begin     dbgrid1.canvas.Font.Color := clBlack;     Text := ADOQuery1.FieldByName('Name').AsString;   end; end;

да весь текст - не проблема, а вот нужные симолы...

Я вот нарыл кое-что, не знаю, можно ли из этого решить поставленную задачу?


Как изменить цвет ячейки TDBGrid в зависимости от текущего значения
--------------------------------------------------------------------------------


Для изменения цвета некоторых ячеек таблицы TDBGrid необходимо определить реакцию на событие DBGrid1DrawDataCell и проверив необходимые условия, перерисовать ячейку вручную (если в этом есть необходимость).

Все необходимые данные для отрисовки передаются в параметрах процедуры. Отрисовка белых букв на красном фоне если, перерисовывается поле 'First_I', ячейка не в фокусе и значение поля меньше нуля.



procedure TForm1.DBGrid1DrawDataCell(Sender: TObject;
const Rect: TRect; Field: TField; State: TGridDrawState);
begin
with DBGrid1.Canvas do
if (Field.FieldName = 'First_I') and (not (gdFocused in State)) and (Field.AsInteger < 0) then
begin
Brush.Color := clRed;
Font.Color := clWhite;
end;
DBGrid1.DefaultDrawDataCell(Rect, Field, State);
end;

Но ты ведь хотел изменять цвет отдельных символов в ячейке

Сами ячейки и не надо красить.
Задача не изменилась.
Я имел ввиду этот примерчик не дает ли правильное направление хода мысли?

смотри ответа~FoX~`а
а в твоём примере не вижу сравнения с Edit1.Text

Хочешь онДравКолумнЦиль - держи:

Код

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;   DataCol: Integer; Column: TColumn; State: TGridDrawState); var   i: integer;   s: string; begin   if Column.Index = 2 then begin //====Вместо 2 указать номер столбца, где надо светить     for i := 0 to Length(Text) do begin       s := copy(ADOQuery1.FieldbyName('Name').AsString, i, Length(Edit1.Text));        If Edit1.Text = s then begin         Dbgrid1.Canvas.Font.Color := clRed;         TextOut(DBGrid1.Canvas.Handle, Rect.Left + 2 , Rect.Top + 2 , PChar(s), Length(s));       end;     end;   end; end;

Подсвечивает Красным указанную подстроку.
Да чуть не забыл, чтоб в реал тайм изменить усливие подсветки достаточно сделать DBGrid1.Refresh
Результат работы:

Это сообщение отредактировал(а) ~FoX~ - 7.7.2005, 08:21

Присоединённый файл ( Кол-во скачиваний: 25 )
 Grid.jpg 18,33 Kb

Цитата

Подсвечивает Красным указанную подстроку.

ето не подстроку, етот код меняет цвет шрифта в ячеике. а вопрос то был

Цитата

таблица фильтруется на предмет совпадения с любой частью поля;

Цитата

как в отфильтрованных данных в DBGrid одновременно подсвечивать символы, по которым фильтруется таблица, другим цветом?

Цитата(kobra @ 7.7.2005, 09:56)

ето не подстроку, етот код меняет цвет шрифта в ячеике. а вопрос то был

Он не меняет цвет шрифта в ячейке! Он вообще к ячейке иммет косвенное отношение.

Цитата(kobra @ 7.7.2005, 09:56)

таблица фильтруется на предмет совпадения с любой частью поля; Цитата (Гость_Виталий @ 4.7.2005, 08:43) как в отфильтрованных данных в DBGrid одновременно подсвечивать символы, по которым фильтруется таблица, другим цветом?

Ну и что не так, то? Фильтр он и сам наложить может, условие известно, найти вхождение подстроки в строку в поле не вопрос. А мой код просто пример.

Цитата

А мой код просто пример.

правилно, пример как изменить шрифт, цвет и ... в ячеике грида, но
если данные отфилтровани, зачем так трудится? можно веть изменить цвет шрифта всеи калонке, не ошибешся, все строки удовлетворяют условью.

kobra

Цитата

таблица фильтруется на предмет совпадения с любой частью поля;

Цитата

Query1.SQL.Add('WHERE FIO LIKE ''%'+Edit2.Text+'%''');

Ни о чем не говорит?

Like - вывод значений приблизительно соответствующих нужным!

Предположим условие = Like='%22%'
Возврещаем результат может быть 22, a22, a22a, asdf22222asdfasdf т.д.
Ему нужно выделить в возвращаемых строках только условие т.е. только "22"