Цвет полоски выделения DBGrid

[Хитрец]

Не совсем в этот форум наверно но думаю что тут больше всего сталкиваются с этим элементом.
Так вот... Как изменить цвет полоски выделения ячейки DBGrid`а?
То чето серый цвет меня угнетает.

И плюс ко всем кто нибуть занимался расчетом ширины колон при масштабировании окна может поделится опытом..?

Можно конечно взять ширину всего грида отнять скрол и разделить на количество колонок, но получается не очень когда все колонки одной ширины.

[koma_grusha]

а у тебя нет компонентов DevExpress? у них очень удобный грид, которому можно задать любой стиль, в том числе цвет выделенной записи, и можно выбрать авонастройку ширины колонок по ширине грида (если это то что нужно).
но я на всяк случай покопаю в старых исходниках, посмотрю че там у обычного грида...

[Хитрец]

Не хотелось бы использовать не стандартные средства. Я знаю что и у DBGridEh все это есть.

[Хитрец]

Одинаковую ширину для колонок можно получить так:

procedure ResizeDBgrid();
var i, WidthDB, CountVisColums, ScrollBar, Indicator, ColumnsWidth:integer;
begin
//Обнуление ширины колонки
ColumnsWidth := 0;

//Ширина индикатора курсора
Indicator := 13;

//Ширина скрол бара
ScrollBar := 17;

//Общая ширина Грида
WidthDB := DBgrid1.Width;

//Получаем количество видимых колонок
CountVisColums := 0;
for I := 0 to DBgrid1.Columns.Count - 1 do
if DBGrid1.Columns.Items[i].Visible = true then inc(CountVisColums);

//Расчет ширины колонок
ColumnsWidth := (WidthDB - ScrollBar - Indicator)div(CountVisColums);

//Установка ширины колонок
for I := 0 to DBgrid1.Columns.Count - 1 do DBGrid1.Columns.Items[i].Width := ColumnsWidth;
end;

[ArtInt]

Делаешь поле и в зависомости 1 или 0 раскарашиваешь его:

procedure TFInfoDobav.cyDBGrid1DrawDataCell(Sender: TObject;
  const Rect: TRect; Field: TField; State: TGridDrawState);
var
   holdColor: TColor;
begin
  holdColor := cyDBGrid1.Canvas.Brush.Color; {сохраняем оригинальный цвет}
  {"раскрашиваем" ячейки только для поля check}
    if Form1.ADOtablevrem.FieldByName('check').asinteger=1 then
    begin
//      cyDBGrid1.Canvas.Brush.Color := clGreen;
      cyDBGrid1.Canvas.Brush.Color := $fa9c78; {синеватый оттенок}
      cydbGrid1.DefaultDrawDataCell(Rect,Field,State);
      cyDBGrid1.Canvas.Brush.Color := holdColor;
    end;

[Хитрец]

Сообщение от ArtInt

Делаешь поле и в зависомости 1 или 0 раскарашиваешь его:

procedure TFInfoDobav.cyDBGrid1DrawDataCell(Sender: TObject;
  const Rect: TRect; Field: TField; State: TGridDrawState);
var
   holdColor: TColor;
begin
  holdColor := cyDBGrid1.Canvas.Brush.Color; {сохраняем оригинальный цвет}
  {"раскрашиваем" ячейки только для поля check}
    if Form1.ADOtablevrem.FieldByName('check').asinteger=1 then
    begin
//      cyDBGrid1.Canvas.Brush.Color := clGreen;
      cyDBGrid1.Canvas.Brush.Color := $fa9c78; {синеватый оттенок}
      cydbGrid1.DefaultDrawDataCell(Rect,Field,State);
      cyDBGrid1.Canvas.Brush.Color := holdColor;
    end;

Нет вопрос был не в том как сделать полосатую таблицу.
Для раскраски таблицы создание дополнительного поля трата места, сил, и показывает плохой тон в написании программы. Что будет при составлении SQL запрос когда все 1 и 0 будут в разнобой???
Вопрос в том как сделать полоску выделения ячейки нужным цветом.
(Когда выделяешь мышкой ячейку она серая а мне нужно чтоб цвет был другой)

[ArtInt]

Сначала не до конца понял твой вопрос, но для этих целей обычно пишу так:

Procedure TForm1.DBGrid1DrawDataCell(SEnder: TObject; Const Rect:
TRect;
Field: TField; State: TGridDrawState);
Begin
If gdFocused in State Then
with (SEnder as TDBGrid).Canvas do
Begin
Brush.Color := clRed;
FillRect(Rect);
TextOut(Rect.Left, Rect.Top, Field.Asstring);
End;
End;

Теперь, надеюсь претензий нет к коду или опять мной неправильно понят вопрос

[Хитрец]

Чето не хватает! Кликаю по ДБГриду он в DBGrid1DrawDataCell не попадает...

[ArtInt]

Необходимо установить свойство DefaultDrawing в True. Здесь перерисовывается только выделенная ячейка. Если установить DefaultDrawing в False, то вы должны самостоятельно перерисовать все ячейки аналогично примеру.

[Хитрец]

Сообщение от ArtInt

Необходимо установить свойство DefaultDrawing в True. Здесь перерисовывается только выделенная ячейка. Если установить DefaultDrawing в False, то вы должны самостоятельно перерисовать все ячейки аналогично примеру.

DefaultDrawing стоит в True, но все равно не попадает в DBGrid1DrawDataCell.