Скачать: CL | DM;

Как изменить цвет QRShape   Найти похожие ветки 

← →
switch   (2008-04-08 17:53) [0]

В 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

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

---

← →
clickmaker ©   (2008-04-08 18:03) [1]

BeforePrint?

---

← →
clickmaker ©   (2008-04-08 18:04) [2]

вернее, OnPrint

---

← →
switch   (2008-04-09 11:12) [3]

> OnPrint

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

---

← →
clickmaker ©   (2008-04-09 11:22) [4]

> [3] switch   (09.04.08 11:12)

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

---

← →
Johnmen ©   (2008-04-09 11:28) [5]

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

---

← →
switch   (2008-04-10 11:59) [6]

> Johnmen

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c