Скачать: CL | DM;

Свойства 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 модератор, олл: сори за офтоп.

---

← →
Катя ©   (2004-06-20 21:51) [4]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c