Форум: "Основная";
Текущий архив: 2007.06.10;
Скачать: [xml.tar.bz2];
Вниз
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 вся ветка
Форум: "Основная";
Текущий архив: 2007.06.10;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.058 c
