"Непонятка" в FastReport 3.x

← →
Сергей М. © (2007-07-03 17:02) [0]

В сабже имеется декларация:

TfrxGetValueEvent = procedure(const VarName: String; var Value: Variant) of object;

Вопросы:

1. Где Sender ? Забыли ?

2. Если не забыли, то дурак ли я ?)

3. Если не дурак, то извинились ли разработчики за сабж в FR4?

← →
Romkin © (2007-07-03 17:16) [1]

А нафига тебе sender? :)
Все, что тебе нужно - выдать значение переменной с данным именем

← →
Сергей М. © (2007-07-04 08:17) [2]

> Romkin © (03.07.07 17:16) [1]

Предроложим, обработчик такого прототипа назначен событиям OnGetValue двух или более объектов TfrxUserDataset. Задача обработчика - вернуть значение поля с именем VarName тек.записи этого НД. Ни о каких "переменных" в таком случае речи не идет. Сразу возникает вопрос - какой из этих НД возбудил событие ? Sender"то отсутствует напрочь)..

← →
Kolan © (2007-07-04 08:59) [3]

> А нафига тебе sender? :)

Это де факто стандарт, хотябы по этому.

← →
Romkin © (2007-07-04 09:30) [4]

> Предроложим, обработчик такого прототипа назначен событиям
> OnGetValue двух или более объектов TfrxUserDataset. Задача
> обработчика - вернуть значение поля с именем VarName тек.
> записи этого НД.

Никогда с такой задачей не сталкивался :) Опять же - а почему нельзя использовать просто поля датасета? Почему именно через переменные?

← →
Jeer © (2007-07-04 10:11) [5]

> Сергей М. © (04.07.07 08:17) [2]

Вообще-то, getvalue предназначен для передачи в отчет значений переменных.
Как показано ниже, в отчете объявлены переменные с именами в скобках и им присваиваются значения переменных из модуля fmDebit с аналогичными именами.
Или я не о том ?

procedure TfmDebit.frRepGetValue(const ParName: String;
var ParValue: Variant);
begin
// inherited;
if ParName = "AllowWho" then ParValue := AllowWho;
if ParName = "AllowNum" then ParValue := AllowNum;
if ParName = "AllowDate" then ParValue := AllowDate;

← →
Jeer © (2007-07-04 10:14) [6]

Или еще пример:
В данном случае в отчете вылезает одна из двух надписей в зависимости от состояние контрола chkbox

procedure TfmCredGoods.frRepGetValue(const ParName: string;
var ParValue: Variant);
begin
inherited;
if ParName = "Rep" then begin
if chkINTMOVE.Checked then ParValue := "Внутренний"
else ParValue := "Внешний";
end;
end;

← →
Сергей М. © (2007-07-05 08:16) [7]

> Jeer © (04.07.07 10:11) [5]

> getvalue предназначен для передачи в отчет значений переменных

А хоть бы и для этой цели !
Что это меняет ?
Вот у меня, к примеру, два отчета. В каждом есть некие одноименные переменные. Я вправе назначить обоим отчетам событию OnGetValue один и тот же обработчик. И вновь выплывает тот же вопрос - как в обработчике за неимением Sender"а определить, какой из отчетов возбудил тек.событие ?)

← →
turbouser © (2007-07-05 08:21) [8]

> Сергей М. © (05.07.07 08:16) [7]

Что мешает сделать разноименные переменные?

← →
Сергей М. © (2007-07-05 08:31) [9]

> turbouser © (05.07.07 08:21) [8]

Ничто не мешает)

Более того, ситуация с переменными меня в дан.случае совершенно не интересует, см. упоминание НД в [2]. Почему я не вправе иметь некие одноименные поля в двух или более НД ?)

← →
Jeer © (2007-07-05 10:00) [10]

> вправе иметь некие одноименные поля в двух или более НД
> ?)

Правила хорошего тона предполагают именование полей prefix_fieldname

> Jeer © (05.07.07 10:00) [10]

Ты серьезно ?)

А вот мне почему-то кажется, что правила хорошего тона при разработке компонентов таки предполагают наличие Sender"а параметром метода-обработчика.

И то ли эти правила были умышленно проигнорированы по каким-то мне пока непонятным причинам, то ли это было просто досадное упущение, возможно наверстанное в 4-ке (что не могу проверить за неимением оной на сей момент)

> Jeer © (04.07.07 10:11) [5]
>
> procedure TfmDebit.frRepGetValue(const ParName: String; var ParValue: Variant); > begin > // inherited; > if ParName = "AllowWho" then ParValue := AllowWho; > if ParName = "AllowNum" then ParValue := AllowNum; > if ParName = "AllowDate" then ParValue := AllowDate;

ParValue:=Strings.Values[ParName];
:)

"Непонятка" в FastReport 3.x Найти похожие ветки