покраска dbgrideh - БД в Delphi

artemavd · 15.06.2009, 18:39

как в этом гриде покрасить первые три строки?

Neeter · 16.06.2009, 12:47

Код:

procedure TfrmFilms.DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
begin
 if DBGridEh1.DataSource.DataSet.RecNo <= 3 then
 begin
  DBGridEh1.Canvas.Brush.Color := clGreen;
  DBGridEh1.Canvas.FillRect(Rect);
  DBGridEh1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
 end
end;

Раскрашивает первые три строки в зеленый цвет

15.06.2009, 18:39	#1
artemavd Старожил Регистрация: 05.06.2008 Сообщений: 4,206	покраска dbgrideh как в этом гриде покрасить первые три строки? Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.

16.06.2009, 12:47	#2
Neeter Форумчанин Регистрация: 22.02.2009 Сообщений: 875	Код: `procedure TfrmFilms.DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState); begin if DBGridEh1.DataSource.DataSet.RecNo <= 3 then begin DBGridEh1.Canvas.Brush.Color := clGreen; DBGridEh1.Canvas.FillRect(Rect); DBGridEh1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end end;` Раскрашивает первые три строки в зеленый цвет Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Операции с DBGridEh	artemavd	БД в Delphi	0	03.06.2009 11:53
DBGridEh и Filter	lexaltd	БД в Delphi	3	28.05.2009 12:05
Ehlib, DBGridEh	Rustem.xxx	Компоненты Delphi	2	27.05.2008 14:41
автопоиск в DBGridEh	furstenberg	Компоненты Delphi	4	18.02.2008 12:49
Вопрос по DBGridEh	Cyn4uk	Компоненты Delphi	1	01.01.2008 11:19