Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Свойства DBGrid [D7, Paradox]

Катя © (2004-06-20 17:21:00)
Ребята, помогите, кто может, пожалуйста. Нужно, чтобы в DBGrid чередовался цвет фона через строчку, не знаю как сделать.
Когда список большой выводится, проще ориентироваться, если две соседние строки разного цвета. Я видела такой прием в одной программе, и мой заказчик тоже это видел...
Заранее благодарна.

Катя (2004-06-20 21:51:00) [1]
Спасибо, парни!
Разберусь
САМА

miwa (2004-06-20 20:29:00) [2]

> сам разбирайся.

Скорее, сама, если судить по нику. А может и "он". Что-то наметилась тенденция в нерадивых спудеев подписываться девичьими именами. К чему бы это? :о)

2 модератор, олл: сори за офтоп.

GanibalLector (2004-06-20 20:08:00) [3]
procedure TForm5.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
with dbgrid1.Canvas do begin
if gdselected in state then begin
Brush.Color := $cbe08b;
FillRect(Rect);
Font.Color := clblack;
textout(rect.left+(rect.right-rect.left -textwidth(column.field.text)) div 2 , Rect.top+2,column.field.text);
end else begin
if (table1.FieldByName('chknumber').value mod 2)=0 then begin
Brush.Color := $ccffff;
FillRect(Rect);
Font.Color := clnavy;
textout(rect.left+(rect.right-rect.left -textwidth(column.field.text))
div 2 , Rect.top+2,column.field.text);
end else begin
Brush.Color := $b0ffff;
FillRect(Rect);
Font.Color := clblack;
textout(rect.left+(rect.right-rect.left -textwidth(column.field.text))
div 2 , Rect.top+2,column.field.text);
end;

end; end;
end;
вот мой кусок...сам разбирайся.

Kadr (2004-06-20 18:06:00) [4]
ehlib.com
смотри в примерах

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »