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 прямо так, видимо, и завещано - "вставить" еще один Мемо и будет "все супер")

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

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