Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как изменить цвет QRShape


switch ©   (2008-04-08 17:53:00) 

В QuickReport есть компонент QRShape, находится он в DetailBand и имитирует строку таблицы. Мне нужно закрашивать этот Shape в зависимости от значений столбца, к примеру:

while not zap.Eof do
if zap.FieldByName('R_Proc').AsInteger=100 then
QRShape.Brush.Color:=clLime
else QRShape.Brush.Color:=clRed

Вопрос в том куда этот код вставить? Если вставить до момента предпросмотра отчета, естественно он выведет все цветом текущей записи.


switch   (2008-04-10 11:59:00) [1]


> Johnmen

Спасибо огромное! Выручил!!!


Johnmen   (2008-04-09 11:28:00) [2]

В BeforePrint для DetailBand'а, на котором Shape.


clickmaker   (2008-04-09 11:22:00) [3]


> [3] switch   (09.04.08 11:12)

а попробовал? оно разве не для обоих случаев срабатывает?


switch   (2008-04-09 11:12:00) [4]


> OnPrint

Тогда он выведет на печать, а мне нужно чтобы в предпросмотре это тоже было видно


clickmaker   (2008-04-08 18:04:00) [5]

вернее, OnPrint


clickmaker   (2008-04-08 18:03:00) [6]

BeforePrint?


Наверх

Титульная страница Поиск, карта сайта Написать письмо