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

Комментарии

• -=Den=-

  February 2008 отредактировано 17:28

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

  February 2008 отредактировано 17:28

  написал: »

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

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

  February 2008 отредактировано 17:28

  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;