Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как объеденить метод? [D6]

kyn66 © (2005-07-04 13:20:00)
Уважаемые мастера, для того, чтобы сделать грид полосатым, я использую следующую конструкцию:
procedure TParamFrm.OsDBGridGetCellParams(Sender: TObject; Field: TField; AFont: TFont; var Background: TColor; Highlight: Boolean); begin if (DM1.OsTbl.RecNo mod 2 <> 0) then Background := cl3DLight; if Highlight then begin AFont.Color := clBlack; Background := clMoneyGreen; AFont.Style := [fsBold]; end; end;
А как сделать так, чтобы на один метод можно было подвешивать разные Table ?

Спасибо.

msguns (2005-07-11 16:03:00) [1]
>Digitman © (04.07.05 13:26) [2]
>никак.

А что, один обработчик OnDrawColumnCell нельзя навесить разным гридам, отображающим разные датасеты ?
Или создать базовый класс (форму или фрэйм) с гридом, от которого наследовать визуализируемые контролы ?

msguns (2005-07-11 16:03:00) [2]
>Digitman © (04.07.05 13:26) [2]
>никак.

А что, один обработчик OnDrawColumnCell нельзя навесить разным гридам, отображающим разные датасеты ?
Или создать базовый класс (форму или фрэйм) с гридом, от которого наследовать визуализируемые контролы ?

evvcom (2005-07-11 14:27:00) [3]

> kyn66 © (11.07.05 13:49) [5]

Это тебе подсказали еще в [1], просто ты не захотел подумать, к чему это Field.DataSet.RecNo было упомянуто?

kyn66 (2005-07-11 13:49:00) [4]
>> ЮЮ
Именно это я и хотел [4] Спасибо. Просто не мог вспомнить, как правильно написать

ЮЮ (2005-07-05 03:32:00) [5]
заменить явное указание DataSeta на параметрическое: т.е. не
if (DM1.OsTbl.RecNo mod 2 <> 0) then
а
if (TDBGid(Sender).DataSource.DataSet.RecNo mod 2 <> 0) then

теперь этот обработчик можно назначать любому DBGrid-y

Val (2005-07-04 13:28:00) [6]
Назначить этот метод обработчиком соотв. события в коде:
MyGrid.OnDBGridGetCellParams := MyStripOnDBGridGetCellParams;
либо прицепить его в designtime с помощью мышки.

Johnmen (2005-07-04 13:26:00) [7]
Field.DataSet.RecNo
А вообще
http://delphikingdom.ru/asp/viewitem.asp?catalogid=168#link5

Digitman (2005-07-04 13:26:00) [8]
никак.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »