Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

FastReport 4 - закрасить Memo через один. [D7, WinXP]

tytus © (2007-04-13 11:08:00)
Добрый день.
В отчете 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> - счетчик.

Сергей М. (2007-04-13 15:26:00) [1]

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

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

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

Сергей М. (2007-04-13 14:07:00) [3]

> потому что RTFM

Понятно)

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

tytus (2007-04-13 14:03:00) [4]
>Сергей М. © (13.04.07 13:47) [2]
потому что RTFM!

Сергей М. (2007-04-13 13:47:00) [5]

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

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

tytus (2007-04-13 13:37:00) [6]
Решил сам.
Вставил есще один 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;
Теперь все супер!

Наверх

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