![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как изменить цвет 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?