Показать сообщение отдельно
  #7  
Старый 29.03.2013, 16:07
Аватар для Mrak
Mrak Mrak вне форума
Местный
 
Регистрация: 26.01.2013
Адрес: МО
Сообщения: 438
Версия Delphi: XE2
Репутация: 17
По умолчанию

Код:
procedure TForm14.DBGrid16DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
// Красим нечетные строки
	IF TDBGrid(Sender).DataSource.DataSet.RecNo mod 2 = 1
	Then TDBGrid(Sender).Canvas.Brush.Color:=RGB(220,220,220);
	// Восстанавливаем выделение текущей позиции курсора
	IF  gdSelected   IN State
	Then Begin
		TDBGrid(Sender).Canvas.Brush.Color:= clHighLight;
		TDBGrid(Sender).Canvas.Font.Color := clHighLightText;
	End;
 	// Просим GRID перерисоваться самому
	TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
вот это делает полосатый grid (событие DrawColumnCell), в этом направлении копай)

з.ы. LIKE '%МОСКВА%' отфильтрует такие, например, значения: "1москва", "там москва", "здесь москва1" , "[пробел]москва2"
но не найдет: "москва"
__________________
Я за здоровый экстрим!
Спасибо за "спасибо")
Ответить с цитированием