FlashVars: String;
Свойство FlashVars определяет значение переменных Flash-объекта.
Для выполнения примера предполагается наличие в репозитории регламентного отчета с идентификатором «OBJ_REPORT». В файловой системе должен присутствовать Flash-ролик «C:\Flash.swf».
Sub Main;
Var
Mb: IMetabase;
ReportObj: IMetabaseObject;
Report: IPrxReport;
PrxTable: IPrxTable;
TabSheet: ITabSheet;
Objs: ITabObjects;
Point: IGxRectF;
TabObject: ITabObject;
PrxFlash: IPrxFlash;
fl: IShockWaveFlash;
Begin
Mb := MetabaseClass.Active;
ReportObj := Mb.ItemById("OBJ_REPORT").Edit;
Report := ReportObj As IPrxReport;
PrxTable := Report.ActiveSheet As IPrxTable;
TabSheet := PrxTable.TabSheet;
Objs := TabSheet.Objects;
Objs.Clear;
Point := New GxRectF.Create(10, 10, 110, 110);
TabObject := Objs.Add("PrxFlash", Point);
PrxFlash := TabObject As IPrxFlash;
PrxFlash.LoadFromFile("C:\Flash.swf");
fl := PrxFlash.ShockWaveFlash;
fl.FlashVars := "StartPeriod=1";
ReportObj.Save;
End Sub Main;
После выполнения примера на лист регламентного отчета будет помещен Flash-объект. Для данного объекта будет определена переменная «StartPeriod» со значением «1».
См. также: