Свойства DBGrid

← →
Катя (2004-06-20 17:21) [0]

Ребята, помогите, кто может, пожалуйста. Нужно, чтобы в DBGrid чередовался цвет фона через строчку, не знаю как сделать.
Когда список большой выводится, проще ориентироваться, если две соседние строки разного цвета. Я видела такой прием в одной программе, и мой заказчик тоже это видел...
Заранее благодарна.

← →
Kadr (2004-06-20 18:06) [1]

ehlib.com
смотри в примерах

← →
GanibalLector © (2004-06-20 20:08) [2]

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;
вот мой кусок...сам разбирайся.

← →
miwa © (2004-06-20 20:29) [3]

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

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

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

Спасибо, парни!
Разберусь
САМА

Свойства DBGrid Найти похожие ветки