Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.04.2009, 13:56   #11
ArtInt
Форумчанин
 
Аватар для ArtInt
 
Регистрация: 06.03.2009
Сообщений: 583
По умолчанию

Странно, у меня все работает.
Попробуй создать новый проект и кинуть DBGrid (подсоединить его к базе), и пропиши код. Должно все заработать.
Не стыдно чего-то не знать, стыдно не стремиться к знаниям.
ArtInt вне форума Ответить с цитированием
Старый 19.04.2009, 19:34   #12
Хитрец
Пользователь
 
Регистрация: 26.01.2009
Сообщений: 48
По умолчанию

Хм... действительно на новом все работает, буду разбератся. Только может еще подскажешь как закрасить не одну ячейку, а всю полосу у меня RowSelect стоит.
Хитрец вне форума Ответить с цитированием
Старый 19.04.2009, 22:58   #13
ArtInt
Форумчанин
 
Аватар для ArtInt
 
Регистрация: 06.03.2009
Сообщений: 583
По умолчанию

Тут тоже ничего сложного нет. В стандартной справке есть подсказки.
Ведь gdFocused если ячейка находится в фокусе ввода. А когда выделяется вся строка значит gdSelected - текущая выделенная ячейка.

Код:
{Value	Meaning

gdSelected	The cell is currently selected.
gdFocused	The cell has input focus.
gdFixed	The cell is in the fixed region of the grid. }
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
If gdSelected in State Then
begin
  DBGrid1.Canvas.Brush.Color := $fa9c78; {синеватый оттенок}
  dbGrid1.DefaultDrawDataCell(Rect,Field,State);
  DBGrid1.Canvas.fillRect(Rect);
  DBGrid1.Canvas.TextOut(Rect.Left, Rect.Top, Field.Asstring);

end;

end;
Не стыдно чего-то не знать, стыдно не стремиться к знаниям.
ArtInt вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Manualdock без полоски с крестиком Deight Общие вопросы Delphi 3 02.01.2009 16:29
Произвольного выделения области рисунка MoR Мультимедиа в Delphi 3 02.08.2008 22:23
касательно выделения столбцов Volodymyr Microsoft Office Excel 2 20.07.2008 11:47