VPF::Dbgrideh и курсор-прямоугольник - Форум программистов

caskad

Дата 14.7.2006, 09:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 10.7.2006

Репутация: нет
Всего: нет

Здравствуйте.
При изменении цвета текста текста в dbgrideh (при определенном условии) на красный и при перемещении курсора-прямоугольника (синенький такой) читаемость очень ухудшается. (Например, представьте красный или зеленый текст на синем фоне). Где то подсознанием понимаю, что дело в системных цветах Винды, но из-за малого опыта совсем замучался. Помогите пожалуйста.
Изменение цвета реализуется

DBGrideh1.Canvas.Font.Color:=clred;
DBGrideh1.DefaultDrawDataCell(Rect,DBGrideh1.Fields[datacol],State);
на DBGridEh1DrawColumnCell.

Заранее благодарен.

kulikoff

Дата 14.7.2006, 10:08 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 334
Регистрация: 5.11.2005
Где: Киев

Репутация: 1
Всего: 1

Для отдельных ячеек можно изменять значение:
<code='Delphi'>
procedure TForm3.DBGridEh1GetCellParams(Sender: TObject; Column: TColumnEh;
  AFont: TFont; var Background: TColor; State: TGridDrawState);
begin
  DBGridEh1.OptionsEh:=DBGridEh1.OptionsEh+[dghRowHighlight];
  if odd(DBGridEh1.SumList.RecNo) then
    begin
      Background:=$00FFC4C4;
    end
  else
    begin
      Background:=$00FFDDDD;
    end;
  if Column.Field.DataSet.Fields[0].AsInteger>2 then
    begin
      Background:=clRed;
    end;
end;
</code>

caskad

Дата 14.7.2006, 10:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 10.7.2006

Репутация: нет
Всего: нет

Нужно именно цвет текста в гриде красный и зеленый. Не цвет ячейки. Здорово было бы поменять этот самый курсор и реализовать вместо закрашивания синим просто темную оконтовку вокруг выделенной ячейки. Так реализовано в excel'е.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »