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

FastReport 4 - закрасить Memo через один.   Найти похожие ветки 

← →
tytus ©   (2007-04-13 11:08) [0]

Добрый день.
В отчете Memo c 19 по 32. Для 19 написал скрипт:
procedure Memo19OnBeforePrint(Sender: TfrxComponent);
begin
if Get("OddFill")=true then
begin
 Set("MCount",<MCount>+1);
 if (<MCount> mod 2)=0 then Memo19.Color:=cl3DLight
   else
     Memo19.Color:=clNone;
end;
end;

Как мне сделать то же для остальных мемо, не записывая их по-порядку (Memo20.Color..Memo21.Color... ...Memo32.Color)?
Две переменные отчета:
<OddFill> закрашивать четные, устанавливается по значению Checked в CHeckBox-e формы.
<MCount> - счетчик.

---

← →
tytus ©   (2007-04-13 13:37) [1]

Решил сам.
Вставил есще один Memo в MasterData, прописал в объекте выделения
<Line> mod 2 = 0 , установил цвет шрифта и фон. Также в обработчике OnBeforePrint  написал:
procedure Memo41OnBeforePrint(Sender: TfrxComponent);
begin
 if Get("OddFill")=true then Memo41.Visible:=true
   else
     Memo41.Visible:=false;
end;
Теперь все супер!

---

← →
Сергей М. ©   (2007-04-13 13:47) [2]

> Вставил есще один Memo


Что ж не десяток ?)

---

← →
tytus ©   (2007-04-13 14:03) [3]

>Сергей М. ©   (13.04.07 13:47) [2]
потому что RTFM!

---

← →
Сергей М. ©   (2007-04-13 14:07) [4]

> потому что RTFM


Понятно)

В RTFM прямо так, видимо, и завещано - "вставить" еще один Мемо и будет "все супер")

---

← →
tytus ©   (2007-04-13 14:16) [5]

>Сергей М. ©   (13.04.07 14:07) [4]
Да, FastReport 4 UserManual-ru.pdf , глава 4.4 "Выделение строк через одну".
Ну а насчет Супер! - этого там нету. Но раз уз я разобрался, то - Супер!-)))

---

← →
Сергей М. ©   (2007-04-13 15:26) [6]

> tytus ©   (13.04.07 14:16) [5]


И что, там прямо так и сказано, мол, засандаль еще один Мемо м будет тебе щастье ?)

---

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

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



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