Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Выделить текущую строку в DBGrid, цвет текущей строки 
:(
    Опции темы
Slyfox
Дата 16.5.2008, 11:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Нужно поменять цвет текущей строки в DBGrid.
Когда переходим на другую строку, то цвет выбранной строки должен пометься, а предыдущей вернуться в исходное состояние(т.е. белого цвета).

Также хотелось бы знать как задавать цвет в rgb в 16-ной системе счисления.

Заранее спасибо
PM MAIL   Вверх
Frees
Дата 16.5.2008, 11:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 23
Всего: 54
Цитата(Slyfox @  16.5.2008,  11:14 Найти цитируемый пост)
Нужно поменять цвет текущей строки в DBGrid.

я делаю вот так

Код

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;// событие ТDBGrid OnDrawColumnCell
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
begin
  if ( Rect.Top = DBGrid1.CellRect( DBGrid1.Col, DBGrid1.Row ).Top ) and
     ( not ( gdFocused in State ) or not DBGrid1.Focused ) then begin
     DBGrid1.Canvas.Brush.Color := clRed;
  end;
  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;




Это сообщение отредактировал(а) Frees - 16.5.2008, 11:51


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
Slyfox
Дата 16.5.2008, 11:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Почему-то компилятору не нравится:
Код

if ( Rect.Top = DBGrid1.CellRect( DBGrid1.Col, DBGrid1.Row ).Top ) and
     ( not ( gdFocused in State ) or not DBGrid1.Focused )
PM MAIL   Вверх
Frees
Дата 16.5.2008, 12:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 23
Всего: 54
ну да совсем забыл у меня же TDBGridEh

Добавлено через 54 секунды
щас посмотрю для TDBGrid


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
Frees
Дата 16.5.2008, 12:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 23
Всего: 54
Код

type
TPeekAtCustomDBGrid = class(TCustomDBGrid);
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  with TPeekAtCustomDBGrid(Sender) do begin
     if DataLink.ActiveRecord = Row - 1 then
       Canvas.Brush.Color := clRed
     else
       Canvas.Brush.Color := clWhite;
    DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;

DRKB©


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
Slyfox
Дата 16.5.2008, 12:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
жду, потому что гугл не очень помогает мне :(
PM MAIL   Вверх
Frees
Дата 16.5.2008, 12:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 23
Всего: 54
Цитата(Slyfox @  16.5.2008,  12:47 Найти цитируемый пост)
жду, потому что гугл не очень помогает мне :(

DRKB смотри сперва потом гугл smile


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
Slyfox
Дата 16.5.2008, 13:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Спасибо.
С третьего раза завел smile
Я в этой процедуре комментил несколькими способами, закомментил все правильно, но код не запускался - компилятор сказал: "Облом))".
Когда удалил комменты код запустился, комментил не этот код, а другой.

Затем вернул комменты, вставил код и запустилось. Чудеса smile

Вопроса больше нет, я счастливый человек)))
PM MAIL   Вверх
Dobermann
Дата 24.1.2009, 15:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 0
Frees, хорошая вещь smile , сейчас себе тоже такую воткну!
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0930 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.