Cвойство <frxreport>.engineoptions.destroyforms

skiff5

Подскажите, почему свойство <frxReport>.EngineOptions.DestroyForms недоступно в скрипте fastreport?

-=Den=-

Это не published св-во , поэтому в скрипт оно не добавляется.
Ели есть необходимость его можно добавить, как добавлять свойства, описано в документации к FastScript.

skiff5

написал: »

Это не published св-во , поэтому в скрипт оно не добавляется.
Ели есть необходимость его можно добавить, как добавлять свойства, описано в документации к FastScript.

Den, подскажите, а можно просто описать на примере как это делается, а то данного файла помощи я не нашел?

-=Den=-

procedure SetProp(Instance: TObject; ClassType: TClass;
      const PropName: String; Value: Variant);
function GetProp(Instance: TObject; ClassType: TClass;
      const PropName: String): Variant;

var
  Csv: TfsClassVariable;
begin

 Csv := frxReport1.Script.FindClass('TfrxEngineOptions');
 if Csv <> nil then
  Csv.AddProperty('DestroyForms', 'Boolean', GetProp, SetProp);
 frxReport1.ShowReport();

end;

function GetProp(Instance: TObject; ClassType: TClass;
  const PropName: String): Variant;
begin
  if ClassType = TfrxEngineOptions then
  begin
    if PropName = 'DESTROYFORMS' then
      Result := TfrxEngineOptions(Instance).DestroyForms;
  end
end;

procedure SetProp(Instance: TObject; ClassType: TClass;
  const PropName: String; Value: Variant);
begin
  if ClassType = TfrxEngineOptions then
  begin
    if PropName = 'DESTROYFORMS' then
      TfrxEngineOptions(Instance).DestroyForms := Value
  end
end;