Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

OnDrawColumnCell для динамически создаваемого DBGrid

513
26 июня 2008 года
Yurec
228 / / 21.09.2005
Добрый день!

Посоветуйте как указать процедуру, которая будет вызываться при событии OnDrawColumnCell динамически создаваемого DBGRID.

 
Код:
var
 v_DBGrid: TDBGrid;
begin

  v_DBGrid:=TDBGrid.Create(DetailsFrm);
  v_DBGrid.OnDrawColumnCell:=MyOnDraw;
....
end;


Где MyOnDraw задана так:

 
Код:
procedure MyOnDraw(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
...
end;


Компилироваться категорически отказывается, в то время как
подобное для чекбокса работает нормально
v_CheckBox:=TCheckBox.Create(v_GroupBox);
...
v_CheckBox.OnClick := MyEventForCheck;
20K
26 июня 2008 года
yager84
37 / / 15.05.2007
Компилируется замечательно.
Вы добавили в секцию uses заголовки Grids, DBGrids?
513
27 июня 2008 года
Yurec
228 / / 21.09.2005
Цитата: yager84
Компилируется замечательно.
Вы добавили в секцию uses заголовки Grids, DBGrids?



Спасибо! Всё заработало.

To Yager84 & to ALL

Может быть еще подскажете как не отображать строку в DBGRID?

Что-то вроде

 
Код:
procedure my_GridDrawColumnCell (Sender: TObject;
                                const Rect: TRect; DataCol: Integer; Column: TColumn;
                                State: TGridDrawState);
begin
  if   OracleDataSet1.FieldByName('status').Value='C' then
          With (Sender as TDBGrid ) do begin
              // VISIBLE строки=FALSE
              никаких свойств по отображению строк не нашел(
              только для колонок
          end;
303
28 июня 2008 года
makbeth
1.0K / / 25.11.2004
DBGrid тупо отображает все, что ему подсовывает DataSource. Фильтруй лишние строки с помощью запросов, либо с помощью встроенного в DataSet фильтра (св-во Filter).
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог