开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
swfobjects.int
资源名称：DelphiSWFSDK2[1].4.rar　[点击查看]
上传用户：raido2005
上传日期：2022-06-22
资源大小：5044k
文件大小：116k
源码类别：

Delphi控件源码

开发平台：

Delphi

swfobjects.int：源码内容
  1. //*******************************************************//
  2. //                                                       //
  3. //                      DelphiFlash.com                  //
  4. //         Copyright (c) 2004-2008 FeatherySoft, Inc.    //
  5. //                    info@delphiflash.com               //
  6. //                                                       //
  7. //*******************************************************//
  9. //  Description:  Level of SWF-objects
  10. //  Last update: 26 jun 2008
  11. {$I defines.inc}
  13. Unit SWFObjects;
  14. interface
  15.  Uses Windows, SysUtils, Classes, SWFConst, Graphics, Contnrs,
  16.  {$IFDEF ExternalUTF}
  17.   Unicode,
  18.  {$ENDIF}
  19.  {$IFDEF VARIANTS}
  20.   Variants,
  21.  {$ENDIF}
  22.  {$IFDEF XMLSupport}
  23.   XMLIntf, XMLDoc, SWFXMLTools, SWFStrings,
  24.  {$ENDIF}
  25.   SWFTools;
  27. type
  28.   TSWFRect = class (TObject)
  29.   public
  30.     procedure Assign(Source: TSWFRect);
  31.     property Height: Integer read GetHeight;
  32.     property Rec: recRect read GetRec write SetRec;
  33.     property Rect: TRect read GetRect write SetRect;
  34.     property Width: Integer read GetWidth;
  35.     property Xmax: LongInt read FXmax write SetXmax;
  36.     property Xmin: LongInt read FXmin write SetXmin;
  37.     property Ymax: LongInt read FYmax write SetYmax;
  38.     property Ymin: LongInt read FYmin write SetYmin;
  39.   end;
  41.   TSWFRGB = class (TObject)
  42.   public
  43.     procedure Assign(Source: TObject); virtual;
  44.     property B: Byte read FB write FB;
  45.     property G: Byte read FG write FG;
  46.     property R: Byte read FR write FR;
  47.     property RGB: recRGB read GetRGB write SetRGB;
  48.   end;
  50.   TSWFRGBA = class (TSWFRGB)
  51.   public
  52.     constructor Create(a: boolean = false);
  53.     procedure Assign(Source: TObject); override;
  54.     property A: Byte read FA write SetA;
  55.     property HasAlpha: Boolean read FHasAlpha write SetHasAlpha;
  56.     property RGBA: recRGBA read GetRGBA write SetRGBA;
  57.   end;
  59.   TSWFColorTransform = class (TObject)
  60.   public
  61.     procedure AddTint(Color: TColor);
  62.     procedure Assign(Source: TSWFColorTransform);
  63.     function CheckAddValue(value: integer): integer;
  64.     function CheckMultValue(value: integer): integer;
  65.     procedure SetAdd(R, G, B, A: integer);
  66.     procedure SetMult(R, G, B, A: integer);
  67.     property addA: Integer read FaddA write SetaddA;
  68.     property addB: Integer read FaddB write SetaddB;
  69.     property addG: Integer read FaddG write SetaddG;
  70.     property addR: Integer read FaddR write SetaddR;
  71.     property hasAdd: Boolean read FhasAdd write FhasAdd;
  72.     property hasAlpha: Boolean read FhasAlpha write FhasAlpha;
  73.     property hasMult: Boolean read FhasMult write FhasMult;
  74.     property multA: Integer read FmultA write SetmultA;
  75.     property multB: Integer read FmultB write SetmultB;
  76.     property multG: Integer read FmultG write SetmultG;
  77.     property multR: Integer read FmultR write SetmultR;
  78.     property REC: recColorTransform read GetREC write SetREC;
  79.   end;
  81.   TSWFMatrix = class (TObject)
  82.   public
  83.     procedure Assign(M : TSWFMatrix);
  84.     procedure SetRotate(angle: single);
  85.     procedure SetScale(ScaleX, ScaleY: single);
  86.     procedure SetSkew(SkewX, SkewY: single);
  87.     procedure SetTranslate(X, Y: LongInt);
  88.     property HasScale: Boolean read FHasScale write FHasScale;
  89.     property HasSkew: Boolean read FHasSkew write FHasSkew;
  90.     property REC: recMatrix read GetREC write SetREC;
  91.     property ScaleX: Single read GetScaleX write SetScaleX;
  92.     property ScaleY: Single read GetScaleY write SetScaleY;
  93.     property SkewX: Single read GetSkewX write SetSkewX;
  94.     property SkewY: Single read GetSkewY write SetSkewY;
  95.     property TranslateX: LongInt read FTranslateX write FTranslateX;
  96.     property TranslateY: LongInt read FTranslateY write FTranslateY;
  97.   end;
  99. {$IFDEF XMLSupport}
  100.   TBasedSWFObject = class;
  101.   TSWFObject = class;
  103.   TSWFObjectXMLRWEvent = procedure (sender: TBasedSWFObject; Node: IXMLNode) of object;
  105.   TSWFLogicPart = (lpDefault, lpImage, lpSound, lpVideo, lpFont, lpActions, lpNotIdentified);
  106.   TXMLWriteAsExternals = set of TSWFLogicPart;
  108.   TXMLReadWriteSettings = class (TObject)
  109.    public
  110.      constructor Create;
  111.      function GetResName(LP: TSWFLogicPart): string;
  112.      function GetFullPath(LP: TSWFLogicPart): string;
  113.      function GetFullName(LP: TSWFLogicPart; fname: string): string;
  114.      function GetRelativePath(LP: TSWFLogicPart): string;
  116.      property ActionsAsByteCode: boolean read FActionsAsByteCode write FActionsAsByteCode;
  117.      property AsExternal: TXMLWriteAsExternals read FAsExternal write FAsExternal;
  118.      property BasePath: string read FBasePath write SetBasePath;
  119.      property CustomData: longint read FCustomData write FCustomData;
  120.      property ExtCounter: word read FExtCounter write FExtCounter;
  121.      property FileExtension: string read FFileExtension write FFileExtension;
  122.      property FilePrefix: string read FFilePrefix write FFilePrefix;
  123.      property FontAsByteCode: boolean read FFontAsByteCode write FFontAsByteCode;
  124.      property Path: string read FPath write FPath;
  125.      property PathActions: string read FPathActions write FPathActions;
  126.      property PathImage: string read FPathImage write FPathImage;
  127.      property PathSound: string read FPathSound write FPathSound;
  128.      property PathFont: string read FPathFont write FPathFont;
  129.      property PathVideo: string read FPathVideo write FPathVideo;
  130.      property SomePath: boolean read FSomePath write FSomePath;
  131. //     property PathDelimiter: Char read FPathDelimiter write FPathDelimiter;
  132.   end;
  133. {$ENDIF}
  135.   TBasedSWFObject = class (TObject)
  136.   public
  137.     procedure Assign(Source: TBasedSWFObject); virtual; abstract;
  138.     procedure CopyFrom(Source: TBasedSWFObject); virtual;
  139.     function LibraryLevel: Byte; virtual; abstract;
  140.     function MinVersion: Byte; virtual;
  141.     procedure WriteToStream(be: TBitsEngine); virtual; abstract;
  142. {$IFDEF XMLSupport}
  143.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); virtual;
  144. {$ENDIF}
  145.   end;
  147.   TSWFObject = class (TBasedSWFObject)
  148.   public
  149.     procedure Assign(Source: TBasedSWFObject); override;
  150.     function GetFullSize: LongInt;
  151.     function LibraryLevel: Byte; override;
  152.     procedure ReadFromStream(be: TBitsEngine); virtual;
  153.     procedure WriteTagBody(be: TBitsEngine); virtual;
  154.     procedure WriteToStream(be: TBitsEngine); override;
  155. {$IFDEF XMLSupport}
  156.     procedure WriteToXML(Parent: IXMLNode; Settings: TXMLReadWriteSettings);
  157.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); virtual;
  158. {$ENDIF}
  159.     property BodySize: LongWord read FBodySize write FBodySize;
  160.     property TagID: Word read FTagID write FTagID;
  161.   end;
  163. //  TSWFErrorTag = class (TSWFObject)
  164. //  private
  165. //    FTagIDFrom: Word;
  166. //    FText: string;
  167. //  public
  168. //    constructor Create;
  169. //    property TagIDFrom: Word read FTagIDFrom write FTagIDFrom;
  170. //    property Text: string read FText write FText;
  171. //  end;
  173.   TSWFTagEvent = procedure (sender: TSWFObject; BE: TBitsEngine) of object;
  174. // ===========================================================
  175. //                Control Tags
  176. // ===========================================================
  178.   TSWFSetBackgroundColor = class (TSWFObject)
  179.   public
  180.     constructor Create;
  181.     destructor Destroy; override;
  182.     procedure Assign(Source: TBasedSWFObject); override;
  183.     procedure ReadFromStream(be: TBitsEngine); override;
  184.     procedure WriteTagBody(be: TBitsEngine); override;
  185. {$IFDEF XMLSupport}
  186.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  187.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  188. {$ENDIF}
  189.     property Color: TSWFRGB read FColor;
  190.   end;
  192.   TSWFFrameLabel = class (TSWFObject)
  193.   public
  194.     constructor Create; overload;
  195.     constructor Create(fl: string); overload;
  196.     procedure Assign(Source: TBasedSWFObject); override;
  197.     function MinVersion: Byte; override;
  198.     procedure ReadFromStream(be: TBitsEngine); override;
  199.     procedure WriteTagBody(be: TBitsEngine); override;
  200. {$IFDEF XMLSupport}
  201.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  202.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  203. {$ENDIF}
  204.     property isAnchor: Boolean read FisAnchor write FisAnchor;
  205.     property Name: string read FName write FName;
  206.   end;
  208.   TSWFProtect = class (TSWFObject)
  209.   public
  210.     constructor Create; virtual;
  211.     procedure Assign(Source: TBasedSWFObject); override;
  212.     function MinVersion: Byte; override;
  213.     procedure ReadFromStream(be: TBitsEngine); override;
  214.     procedure WriteTagBody(be: TBitsEngine); override;
  215. {$IFDEF XMLSupport}
  216.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  217.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  218. {$ENDIF}
  219.     property Hash: string read FHash write FHash;
  220.     property Password: string read FPassword write FPassword;
  221.   end;
  223.   TSWFEnd = class (TSWFObject)
  224.   public
  225.     constructor Create;
  226.   end;
  228.   TSWFExportAssets = class (TSWFObject)
  229.   public
  230.     constructor Create; virtual;
  231.     destructor Destroy; override;
  232.     procedure Assign(Source: TBasedSWFObject); override;
  233.     function MinVersion: Byte; override;
  234.     procedure ReadFromStream(be: TBitsEngine); override;
  235.     procedure SetAsset(Name: string; CharacterId: word);
  236.     procedure WriteTagBody(be: TBitsEngine); override;
  237. {$IFDEF XMLSupport}
  238.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  239.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  240. {$ENDIF}
  241.     property Assets: TStringList read FAssets;
  242.     property CharacterId[name: string]: Integer read GetCharacterId write SetCharacterId;
  243.   end;
  245.   TSWFImportAssets = class (TSWFExportAssets)
  246.   public
  247.     constructor Create; override;
  248.     procedure Assign(Source: TBasedSWFObject); override;
  249.     procedure ReadFromStream(be: TBitsEngine); override;
  250.     procedure WriteTagBody(be: TBitsEngine); override;
  251. {$IFDEF XMLSupport}
  252.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  253.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  254. {$ENDIF}
  255.     property URL: string read FURL write FURL;
  256.   end;
  258.   TSWFImportAssets2 = class(TSWFImportAssets)
  259.   public
  260.     constructor Create; override;
  261.     procedure ReadFromStream(be: TBitsEngine); override;
  262.     procedure WriteTagBody(be: TBitsEngine); override;
  263.   end;
  265.   TSWFEnableDebugger = class (TSWFProtect)
  266.   public
  267.     constructor Create; override;
  268.     function MinVersion: Byte; override;
  269.   end;
  271.   TSWFEnableDebugger2 = class (TSWFProtect)
  272.   public
  273.     constructor Create; override;
  274.     function MinVersion: Byte; override;
  275.   end;
  277.   TSWFScriptLimits = class (TSWFObject)
  278.   public
  279.     constructor Create;
  280.     procedure Assign(Source: TBasedSWFObject); override;
  281.     function MinVersion: Byte; override;
  282.     procedure ReadFromStream(be: TBitsEngine); override;
  283.     procedure WriteTagBody(be: TBitsEngine); override;
  284. {$IFDEF XMLSupport}
  285.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  286.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  287. {$ENDIF}
  288.     property MaxRecursionDepth: Word read FMaxRecursionDepth write FMaxRecursionDepth;
  289.     property ScriptTimeoutSeconds: Word read FScriptTimeoutSeconds write FScriptTimeoutSeconds;
  290.   end;
  292.   TSWFSetTabIndex = class (TSWFObject)
  293.   public
  294.     constructor Create;
  295.     procedure Assign(Source: TBasedSWFObject); override;
  296.     function MinVersion: Byte; override;
  297.     procedure ReadFromStream(be: TBitsEngine); override;
  298.     procedure WriteTagBody(be: TBitsEngine); override;
  299. {$IFDEF XMLSupport}
  300.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  301.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  302. {$ENDIF}
  303.     property Depth: Word read FDepth write FDepth;
  304.     property TabIndex: Word read FTabIndex write FTabIndex;
  305.   end;
  307.  TSWFSymbolClass = class (TSWFExportAssets)
  308.  public
  309.     constructor Create; override;
  310.     function MinVersion: Byte; override;
  311.  end;
  313.  TSWFFileAttributes = class (TSWFObject)
  314.  public
  315.     constructor Create;
  316.     procedure Assign(Source: TBasedSWFObject); override;
  317.     function MinVersion: Byte; override;
  318.     procedure ReadFromStream(be: TBitsEngine); override;
  319.     procedure WriteTagBody(be: TBitsEngine); override;
  320. {$IFDEF XMLSupport}
  321.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  322.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  323. {$ENDIF}
  324.     property ActionScript3: boolean read FActionScript3 write FActionScript3;
  325.     property HasMetadata: boolean read FHasMetadata write FHasMetadata;
  326.     property UseNetwork: boolean read FUseNetwork write FUseNetwork;
  327.   end;
  329.  TSWFMetadata = class (TSWFObject)
  330.  public
  331.     constructor Create;
  332.     procedure Assign(Source: TBasedSWFObject); override;
  333.     function MinVersion: Byte; override;
  334.     procedure ReadFromStream(be: TBitsEngine); override;
  335.     procedure WriteTagBody(be: TBitsEngine); override;
  336. {$IFDEF XMLSupport}
  337.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  338.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  339. {$ENDIF}
  340.     property Metadata: AnsiString read FMetadata write FMetadata;
  341.  end;
  343.  TSWFProductInfo = class (TSWFObject)
  344.  public
  345.     constructor Create;
  346.     procedure Assign(Source: TBasedSWFObject); override;
  347.     function MinVersion: Byte; override;
  348.     procedure ReadFromStream(be: TBitsEngine); override;
  349.     procedure WriteTagBody(be: TBitsEngine); override;
  350. {$IFDEF XMLSupport}
  351.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  352.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  353. {$ENDIF}
  354.     property MajorBuild: longword read FMajorBuild write FMajorBuild;
  355.     property MinorBuild: longword read FMinorBuild write FMinorBuild;
  357.     property CompilationDate: TDateTime read FCompilationDate write FCompilationDate;
  358.     property Edition: longint read FEdition write FEdition;
  359.     property MajorVersion: byte read FMajorVersion write FMajorVersion;
  360.     property MinorVersion: byte read FMinorVersion write FMinorVersion;
  361.     property ProductId: longint read FProductId write FProductId;
  362.  end;
  364.  TSWFDefineScalingGrid = class (TSWFObject)
  365.  public
  366.     constructor Create;
  367.     destructor Destroy; override;
  368.     procedure Assign(Source: TBasedSWFObject); override;
  369.     function MinVersion: Byte; override;
  370.     procedure ReadFromStream(be: TBitsEngine); override;
  371.     procedure WriteTagBody(be: TBitsEngine); override;
  372. {$IFDEF XMLSupport}
  373.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  374.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  375. {$ENDIF}
  376.     property CharacterId: word read FCharacterId write FCharacterId;
  377.     property Splitter: TSWFRect read FSplitter;
  378.  end;
  379. // ===========================================================
  380. //                          Actions
  381. // ===========================================================
  383. // ------------ SWF 3 -----------
  384.   TSWFAction = class (TObject)
  385.   public
  386.     procedure Assign(Source: TSWFAction); virtual;
  387.     function GetFullSize: Word;
  388.     function MinVersion: Byte; virtual;
  389.     procedure ReadFromStream(be: TBitsEngine); virtual;
  390.     procedure WriteActionBody(be: TBitsEngine); virtual;
  391.     procedure WriteToStream(be: TBitsEngine); virtual;
  392. {$IFDEF XMLSupport}
  393.     procedure ReadFromXMLNode(Node: IXMLNode); virtual;
  394.     procedure WriteToXML(Root: IXMLNode);
  395.     procedure WriteToXMLNode(Node: IXMLNode); virtual;
  396. {$ENDIF}
  397.     property ActionCode: Byte read FActionCode write FActionCode;
  398.     property BodySize: Word read FBodySize write FBodySize;
  399.   end;
  401. TSWFActionRecord = TSWFAction;
  403.   TSWFActionGotoFrame = class (TSWFAction)
  404.   public
  405.     constructor Create;
  406.     procedure Assign(Source: TSWFAction); override;
  407.     procedure ReadFromStream(be: TBitsEngine); override;
  408.     procedure WriteActionBody(be: TBitsEngine); override;
  409. {$IFDEF XMLSupport}
  410.     procedure ReadFromXMLNode(Node: IXMLNode); override;
  411.     procedure WriteToXMLNode(Node: IXMLNode); override;
  412. {$ENDIF}
  413.     property Frame: Word read FFrame write FFrame;
  414.   end;
  416.   TSWFActionGetUrl = class (TSWFAction)
  417.   public
  418.     constructor Create;
  419.     procedure Assign(Source: TSWFAction); override;
  420.     procedure ReadFromStream(be: TBitsEngine); override;
  421.     procedure WriteActionBody(be: TBitsEngine); override;
  422. {$IFDEF XMLSupport}
  423.     procedure ReadFromXMLNode(Node: IXMLNode); override;
  424.     procedure WriteToXMLNode(Node: IXMLNode); override;
  425. {$ENDIF}
  426.     property Target: string read FTarget write FTarget;
  427.     property URL: AnsiString read FURL write FURL;
  428.   end;
  430.   TSWFActionNextFrame = class (TSWFAction)
  431.   public
  432.     constructor Create;
  433.   end;
  435.   TSWFActionPreviousFrame = class (TSWFAction)
  436.   public
  437.     constructor Create;
  438.   end;
  440.   TSWFActionPlay = class (TSWFAction)
  441.   public
  442.     constructor Create;
  443.   end;
  445.   TSWFActionStop = class (TSWFAction)
  446.   public
  447.     constructor Create;
  448.   end;
  450.   TSWFActionToggleQuality = class (TSWFAction)
  451.   public
  452.     constructor Create;
  453.   end;
  455.   TSWFActionStopSounds = class (TSWFAction)
  456.   public
  457.     constructor Create;
  458.   end;
  460.   TSWFActionWaitForFrame = class (TSWFAction)
  461.   public
  462.     constructor Create;
  463.     procedure Assign(Source: TSWFAction); override;
  464.     procedure ReadFromStream(be: TBitsEngine); override;
  465.     procedure WriteActionBody(be: TBitsEngine); override;
  466. {$IFDEF XMLSupport}
  467.     procedure ReadFromXMLNode(Node: IXMLNode); override;
  468.     procedure WriteToXMLNode(Node: IXMLNode); override;
  469. {$ENDIF}
  470.     property Frame: Word read FFrame write FFrame;
  471.     property SkipCount: Byte read FSkipCount write FSkipCount;
  472.   end;
  474.   TSWFActionSetTarget = class (TSWFAction)
  475.   public
  476.     constructor Create;
  477.     procedure Assign(Source: TSWFAction); override;
  478.     procedure ReadFromStream(be: TBitsEngine); override;
  479.     procedure WriteActionBody(be: TBitsEngine); override;
  480. {$IFDEF XMLSupport}
  481.     procedure ReadFromXMLNode(Node: IXMLNode); override;
  482.     procedure WriteToXMLNode(Node: IXMLNode); override;
  483. {$ENDIF}
  484.     property TargetName: string read FTargetName write FTargetName;
  485.   end;
  487.   TSWFActionGoToLabel = class (TSWFAction)
  488.   public
  489.     constructor Create;
  490.     procedure Assign(Source: TSWFAction); override;
  491.     procedure ReadFromStream(be: TBitsEngine); override;
  492.     procedure WriteActionBody(be: TBitsEngine); override;
  493. {$IFDEF XMLSupport}
  494.     procedure ReadFromXMLNode(Node: IXMLNode); override;
  495.     procedure WriteToXMLNode(Node: IXMLNode); override;
  496. {$ENDIF}
  497.     property FrameLabel: string read FFrameLabel write FFrameLabel;
  498.   end;
  500. // ------------ SWF 4 -----------
  502.   TSWFAction4 = class (TSWFAction)
  503.   public
  504.     function MinVersion: Byte; override;
  505.   end;
  507.   TSWFOffsetMarker = class (TSWFAction)
  508.   public
  509.     constructor Create;
  510.     procedure Assign(Source: TSWFAction); override;
  511.     procedure WriteActionBody(be: TBitsEngine); override;
  512.     procedure WriteOffset(be: TBitsEngine);
  513. {$IFDEF XMLSupport}
  514.     procedure ReadFromXMLNode(Node: IXMLNode); override;
  515.     procedure WriteToXMLNode(Node: IXMLNode); override;
  516. {$ENDIF}
  517.     property isUsing: Boolean read FisUsing write FisUsing;
  518.     property JumpToBack: Boolean read FJumpToBack write FJumpToBack;
  519.     property ManualSet: Boolean read FManualSet write FManualSet;
  520.     property MarkerName: string read FMarkerName write FMarkerName;
  521.     property RootStreamPosition: LongInt read FRootStreamPosition write FRootStreamPosition;
  522.     property SizeOffset: Byte read FSizeOffset write FSizeOffset;
  523.     property StartPosition: LongInt read FStartPosition write FStartPosition;
  524.   end;
  527.   TSWFTryOffsetMarker = class (TSWFOffsetMarker)
  528.   public
  529.     isValueInit: Boolean;
  530.     property Value: Variant read FValue write SetValue;
  531.     property ValueType: TSWFValueType read FValueType write SetValueType;
  532.   end;
  534.   TSWFActionPush = class (TSWFAction4)
  535.   public
  536.     constructor Create;
  537.     destructor Destroy; override;
  538.     function AddValue(V: Variant): Integer;
  539.     procedure Assign(Source: TSWFAction); override;
  540.     function MinVersion: Byte; override;
  541.     procedure ReadFromStream(be: TBitsEngine); override;
  542.     function ValueCount: Word;
  543.     procedure WriteActionBody(be: TBitsEngine); override;
  544. {$IFDEF XMLSupport}
  545.     procedure ReadFromXMLNode(Node: IXMLNode); override;
  546.     procedure WriteToXMLNode(Node: IXMLNode); override;
  547. {$ENDIF}
  548.     property Value[index: integer]: Variant read GetValue write SetValue;
  549.     property ValueInfo[index: integer]: TPushValueInfo read GetValueInfo;
  550.   end;
  552.   TSWFActionPop = class (TSWFAction4)
  553.   public
  554.     constructor Create;
  555.   end;
  557. // -- Arithmetic Operators --
  559.   TSWFActionAdd = class (TSWFAction4)
  560.   public
  561.     constructor Create;
  562.   end;
  564.   TSWFActionSubtract = class (TSWFAction4)
  565.   public
  566.     constructor Create;
  567.   end;
  569.   TSWFActionMultiply = class (TSWFAction4)
  570.   public
  571.     constructor Create;
  572.   end;
  574.   TSWFActionDivide = class (TSWFAction4)
  575.   public
  576.     constructor Create;
  577.   end;
  579. // --  Numerical Comparison --
  581.   TSWFActionEquals = class (TSWFAction4)
  582.   public
  583.     constructor Create;
  584.   end;
  586.   TSWFActionLess = class (TSWFAction4)
  587.   public
  588.     constructor Create;
  589.   end;
  591. // -- Logical Operators --
  593.   TSWFActionAnd = class (TSWFAction4)
  594.   public
  595.     constructor Create;
  596.   end;
  598.   TSWFActionOr = class (TSWFAction4)
  599.   public
  600.     constructor Create;
  601.   end;
  603.   TSWFActionNot = class (TSWFAction4)
  604.   public
  605.     constructor Create;
  606.   end;
  608. // -- String Manipulation --
  610.   TSWFActionStringEquals = class (TSWFAction4)
  611.   public
  612.     constructor Create;
  613.   end;
  615.   TSWFActionStringLength = class (TSWFAction4)
  616.   public
  617.     constructor Create;
  618.   end;
  620.   TSWFActionStringAdd = class (TSWFAction4)
  621.   public
  622.     constructor Create;
  623.   end;
  625.   TSWFActionStringExtract = class (TSWFAction4)
  626.   public
  627.     constructor Create;
  628.   end;
  630.   TSWFActionStringLess = class (TSWFAction4)
  631.   public
  632.     constructor Create;
  633.   end;
  635.   TSWFActionMBStringLength = class (TSWFAction4)
  636.   public
  637.     constructor Create;
  638.   end;
  640.   TSWFActionMBStringExtract = class (TSWFAction4)
  641.   public
  642.     constructor Create;
  643.   end;
  645. // -- Type Conversion --
  647.   TSWFActionToInteger = class (TSWFAction4)
  648.   public
  649.     constructor Create;
  650.   end;
  652.   TSWFActionCharToAscii = class (TSWFAction4)
  653.   public
  654.     constructor Create;
  655.   end;
  657.   TSWFActionAsciiToChar = class (TSWFAction4)
  658.   public
  659.     constructor Create;
  660.   end;
  662.   TSWFActionMBCharToAscii = class (TSWFAction4)
  663.   public
  664.     constructor Create;
  665.   end;
  667.   TSWFActionMBAsciiToChar = class (TSWFAction4)
  668.   public
  669.     constructor Create;
  670.   end;
  672. // -- Control Flow --
  674.   TSWFActionJump = class (TSWFAction4)
  675.   public
  676.     constructor Create;
  677.     destructor Destroy; override;
  678.     procedure Assign(Source: TSWFAction); override;
  679.     procedure ReadFromStream(be: TBitsEngine); override;
  680.     procedure WriteActionBody(be: TBitsEngine); override;
  681.     procedure WriteToStream(be: TBitsEngine); override;
  682. {$IFDEF XMLSupport}
  683.     procedure ReadFromXMLNode(Node: IXMLNode); override;
  684.     procedure WriteToXMLNode(Node: IXMLNode); override;
  685. {$ENDIF}
  686.     property BranchOffset: SmallInt read FBranchOffset write SetBranchOffset;
  687.     property BranchOffsetMarker: TSWFOffsetMarker read GetBranchOffsetMarker write FBranchOffsetMarker;
  688.     property StaticOffset: Boolean read FStaticOffset write FStaticOffset;
  689.   end;
  691.   TSWFActionIf = class (TSWFActionJump)
  692.   public
  693.     constructor Create;
  694.   end;
  696.   TSWFActionCall = class (TSWFAction4)
  697.   public
  698.     constructor Create;
  699.   end;
  701. // -- Variables --
  703.   TSWFActionGetVariable = class (TSWFAction4)
  704.   public
  705.     constructor Create;
  706.   end;
  708.   TSWFActionSetVariable = class (TSWFAction4)
  709.   public
  710.     constructor Create;
  711.   end;
  713. // -- Movie Control --
  715.   TSWFActionGetURL2 = class (TSWFAction4)
  716.   public
  717.     constructor Create;
  718.     procedure Assign(Source: TSWFAction); override;
  719.     procedure ReadFromStream(be: TBitsEngine); override;
  720.     procedure WriteActionBody(be: TBitsEngine); override;
  721. {$IFDEF XMLSupport}
  722.     procedure ReadFromXMLNode(Node: IXMLNode); override;
  723.     procedure WriteToXMLNode(Node: IXMLNode); override;
  724. {$ENDIF}
  725.     property LoadTargetFlag: Boolean read FLoadTargetFlag write FLoadTargetFlag;
  726.     property LoadVariablesFlag: Boolean read FLoadVariablesFlag write FLoadVariablesFlag;
  727.     property SendVarsMethod: Byte read FSendVarsMethod write FSendVarsMethod;
  728.   end;
  730.   TSWFActionGotoFrame2 = class (TSWFAction4)
  731.   public
  732.     constructor Create;
  733.     procedure Assign(Source: TSWFAction); override;
  734.     procedure ReadFromStream(be: TBitsEngine); override;
  735.     procedure WriteActionBody(be: TBitsEngine); override;
  736. {$IFDEF XMLSupport}
  737.     procedure ReadFromXMLNode(Node: IXMLNode); override;
  738.     procedure WriteToXMLNode(Node: IXMLNode); override;
  739. {$ENDIF}
  740.     property PlayFlag: Boolean read FPlayFlag write FPlayFlag;
  741.     property SceneBias: Word read FSceneBias write FSceneBias;
  742.     property SceneBiasFlag: Boolean read FSceneBiasFlag write FSceneBiasFlag;
  743.   end;
  745.   TSWFActionSetTarget2 = class (TSWFAction4)
  746.   public
  747.     constructor Create;
  748.   end;
  750.   TSWFActionGetProperty = class (TSWFAction4)
  751.   public
  752.     constructor Create;
  753.   end;
  755.   TSWFActionSetProperty = class (TSWFAction4)
  756.   public
  757.     constructor Create;
  758.   end;
  760.   TSWFActionCloneSprite = class (TSWFAction4)
  761.   public
  762.     constructor Create;
  763.   end;
  765.   TSWFActionRemoveSprite = class (TSWFAction4)
  766.   public
  767.     constructor Create;
  768.   end;
  770.   TSWFActionStartDrag = class (TSWFAction4)
  771.   public
  772.     constructor Create;
  773.   end;
  775.   TSWFActionEndDrag = class (TSWFAction4)
  776.   public
  777.     constructor Create;
  778.   end;
  780.   TSWFActionWaitForFrame2 = class (TSWFAction4)
  781.   public
  782.     constructor Create;
  783.   end;
  785. // -- Utilities --
  787.   TSWFActionTrace = class (TSWFAction4)
  788.   public
  789.     constructor Create;
  790.   end;
  792.   TSWFActionGetTime = class (TSWFAction4)
  793.   public
  794.     constructor Create;
  795.   end;
  797.   TSWFActionRandomNumber = class (TSWFAction4)
  798.   public
  799.     constructor Create;
  800.   end;
  802.   TSWFActionFSCommand2 = class (TSWFAction4)
  803.   public
  804.     constructor Create;
  805.   end;
  807. // ------------ SWF 5 -----------
  808. // -- ScriptObject Actions --
  809.   TSWFActionByteCode = class (TSWFAction4)
  810.   public
  811.     constructor Create;
  812.     destructor Destroy; override;
  813.     procedure Assign(Source: TSWFAction); override;
  814.     procedure WriteActionBody(be: TBitsEngine); override;
  815.     procedure ReadFromStream(be: TBitsEngine); override;
  816. {$IFDEF XMLSupport}
  817.     procedure ReadFromXMLNode(Node: IXMLNode); override;
  818.     procedure WriteToXMLNode(Node: IXMLNode); override;
  819. {$ENDIF}
  820.     property ByteCode[Index: word]: Byte read GetByteCode write SetByteCode;
  821.     property Data: TStream read GetData write SetData;
  822.     property DataSize: LongInt read FDataSize write SetDataSize;
  823.     property SelfDestroy: Boolean read FSelfDestroy write FSelfDestroy;
  824.     property StrByteCode: AnsiString read GetStrByteCode write SetStrByteCode;
  825.   end;
  827.   TSWFAction5 = class (TSWFAction)
  828.   public
  829.     function MinVersion: Byte; override;
  830.   end;
  832.   TSWFActionCallFunction = class (TSWFAction5)
  833.   public
  834.     constructor Create;
  835.   end;
  837.   TSWFActionCallMethod = class (TSWFAction5)
  838.   public
  839.     constructor Create;
  840.   end;
  842.   TSWFActionConstantPool = class (TSWFAction5)
  843.   public
  844.     constructor Create;
  845.     destructor Destroy; override;
  846.     procedure Assign(Source: TSWFAction); override;
  847.     procedure ReadFromStream(be: TBitsEngine); override;
  848.     procedure WriteActionBody(be: TBitsEngine); override;
  849. {$IFDEF XMLSupport}
  850.     procedure ReadFromXMLNode(Node: IXMLNode); override;
  851.     procedure WriteToXMLNode(Node: IXMLNode); override;
  852. {$ENDIF}
  853.     property ConstantPool: TStringList read FConstantPool;
  854.   end;
  856.   TSWFActionDefineFunction = class (TSWFAction5)
  857.   public
  858.     constructor Create;
  859.     destructor Destroy; override;
  860.     procedure Assign(Source: TSWFAction); override;
  861.     procedure ReadFromStream(be: TBitsEngine); override;
  862.     procedure WriteActionBody(be: TBitsEngine); override;
  863.     procedure WriteToStream(be: TBitsEngine); override;
  864. {$IFDEF XMLSupport}
  865.     procedure ReadFromXMLNode(Node: IXMLNode); override;
  866.     procedure WriteToXMLNode(Node: IXMLNode); override;
  867. {$ENDIF}
  868.     property CodeSize: Word read FCodeSize write SetCodeSize;
  869.     property CodeSizeMarker: TSWFOffsetMarker read GetCodeSizeMarker write FCodeSizeMarker;
  870.     property FunctionName: string read FFunctionName write FFunctionName;
  871.     property Params: TStringList read FParams;
  872.     property StaticOffset: Boolean read FStaticOffset write FStaticOffset;
  873.   end;
  875.   TSWFActionDefineLocal = class (TSWFAction5)
  876.   public
  877.     constructor Create;
  878.   end;
  880.   TSWFActionDefineLocal2 = class (TSWFAction5)
  881.   public
  882.     constructor Create;
  883.   end;
  885.   TSWFActionDelete = class (TSWFAction5)
  886.   public
  887.     constructor Create;
  888.   end;
  890.   TSWFActionDelete2 = class (TSWFAction5)
  891.   public
  892.     constructor Create;
  893.   end;
  895.   TSWFActionEnumerate = class (TSWFAction5)
  896.   public
  897.     constructor Create;
  898.   end;
  900.   TSWFActionEquals2 = class (TSWFAction5)
  901.   public
  902.     constructor Create;
  903.   end;
  905.   TSWFActionGetMember = class (TSWFAction5)
  906.   public
  907.     constructor Create;
  908.   end;
  910.   TSWFActionInitArray = class (TSWFAction5)
  911.   public
  912.     constructor Create;
  913.   end;
  915.   TSWFActionInitObject = class (TSWFAction5)
  916.   public
  917.     constructor Create;
  918.   end;
  920.   TSWFActionNewMethod = class (TSWFAction5)
  921.   public
  922.     constructor Create;
  923.   end;
  925.   TSWFActionNewObject = class (TSWFAction5)
  926.   public
  927.     constructor Create;
  928.   end;
  930.   TSWFActionSetMember = class (TSWFAction5)
  931.   public
  932.     constructor Create;
  933.   end;
  935.   TSWFActionTargetPath = class (TSWFAction5)
  936.   public
  937.     constructor Create;
  938.   end;
  940.   TSWFActionWith = class (TSWFAction5)
  941.   public
  942.     constructor Create;
  943.     destructor Destroy; override;
  944.     procedure Assign(Source: TSWFAction); override;
  945.     procedure ReadFromStream(be: TBitsEngine); override;
  946.     procedure WriteActionBody(be: TBitsEngine); override;
  947.     procedure WriteToStream(be: TBitsEngine); override;
  948. {$IFDEF XMLSupport}
  949.     procedure ReadFromXMLNode(Node: IXMLNode); override;
  950.     procedure WriteToXMLNode(Node: IXMLNode); override;
  951. {$ENDIF}
  952.     property Size: Word read FSize write SetSize;
  953.     property SizeMarker: TSWFOffsetMarker read GetSizeMarker write FSizeMarker;
  954.     property StaticOffset: Boolean read FStaticOffset write FStaticOffset;
  955.   end;
  957. // -- Type Actions --
  958.   TSWFActionToNumber = class (TSWFAction5)
  959.   public
  960.     constructor Create;
  961.   end;
  963.   TSWFActionToString = class (TSWFAction5)
  964.   public
  965.     constructor Create;
  966.   end;
  968.   TSWFActionTypeOf = class (TSWFAction5)
  969.   public
  970.     constructor Create;
  971.   end;
  973. // -- Math Actions --
  974.   TSWFActionAdd2 = class (TSWFAction5)
  975.   public
  976.     constructor Create;
  977.   end;
  979.   TSWFActionLess2 = class (TSWFAction5)
  980.   public
  981.     constructor Create;
  982.   end;
  984.   TSWFActionModulo = class (TSWFAction5)
  985.   public
  986.     constructor Create;
  987.   end;
  989. // -- Stack Operator Actions --
  990.   TSWFActionBitAnd = class (TSWFAction5)
  991.   public
  992.     constructor Create;
  993.   end;
  995.   TSWFActionBitLShift = class (TSWFAction5)
  996.   public
  997.     constructor Create;
  998.   end;
  1000.   TSWFActionBitOr = class (TSWFAction5)
  1001.   public
  1002.     constructor Create;
  1003.   end;
  1005.   TSWFActionBitRShift = class (TSWFAction5)
  1006.   public
  1007.     constructor Create;
  1008.   end;
  1010.   TSWFActionBitURShift = class (TSWFAction5)
  1011.   public
  1012.     constructor Create;
  1013.   end;
  1015.   TSWFActionBitXor = class (TSWFAction5)
  1016.   public
  1017.     constructor Create;
  1018.   end;
  1020.   TSWFActionDecrement = class (TSWFAction5)
  1021.   public
  1022.     constructor Create;
  1023.   end;
  1025.   TSWFActionIncrement = class (TSWFAction5)
  1026.   public
  1027.     constructor Create;
  1028.   end;
  1030.   TSWFActionPushDuplicate = class (TSWFAction5)
  1031.   public
  1032.     constructor Create;
  1033.   end;
  1035.   TSWFActionReturn = class (TSWFAction5)
  1036.   public
  1037.     constructor Create;
  1038.   end;
  1040.   TSWFActionStackSwap = class (TSWFAction5)
  1041.   public
  1042.     constructor Create;
  1043.   end;
  1045.   TSWFActionStoreRegister = class (TSWFAction5)
  1046.   public
  1047.     constructor Create;
  1048.     procedure Assign(Source: TSWFAction); override;
  1049.     procedure ReadFromStream(be: TBitsEngine); override;
  1050.     procedure WriteActionBody(be: TBitsEngine); override;
  1051. {$IFDEF XMLSupport}
  1052.     procedure ReadFromXMLNode(Node: IXMLNode); override;
  1053.     procedure WriteToXMLNode(Node: IXMLNode); override;
  1054. {$ENDIF}
  1055.     property RegisterNumber: Byte read FRegisterNumber write FRegisterNumber;
  1056.   end;
  1059. // ------------ SWF 6 -----------
  1061.   TSWFAction6 = class (TSWFAction)
  1062.   public
  1063.     function MinVersion: Byte; override;
  1064.   end;
  1066.   TSWFActionInstanceOf = class (TSWFAction6)
  1067.   public
  1068.     constructor Create;
  1069.   end;
  1071.   TSWFActionEnumerate2 = class (TSWFAction6)
  1072.   public
  1073.     constructor Create;
  1074.   end;
  1076.   TSWFActionStrictEquals = class (TSWFAction6)
  1077.   public
  1078.     constructor Create;
  1079.   end;
  1081.   TSWFActionGreater = class (TSWFAction6)
  1082.   public
  1083.     constructor Create;
  1084.   end;
  1086.   TSWFActionStringGreater = class (TSWFAction6)
  1087.   public
  1088.     constructor Create;
  1089.   end;
  1092. // ------------ SWF 7 -----------
  1094.   TSWFAction7 = class (TSWFAction)
  1095.   public
  1096.     function MinVersion: Byte; override;
  1097.   end;
  1099.   TSWFActionDefineFunction2 = class (TSWFAction7)
  1100.   public
  1101.     constructor Create;
  1102.     destructor Destroy; override;
  1103.     procedure Assign(Source: TSWFAction); override;
  1104.     procedure AddParam(const param: string; reg: byte);
  1105.     procedure ReadFromStream(be: TBitsEngine); override;
  1106.     procedure WriteActionBody(be: TBitsEngine); override;
  1107.     procedure WriteToStream(be: TBitsEngine); override;
  1108. {$IFDEF XMLSupport}
  1109.     procedure ReadFromXMLNode(Node: IXMLNode); override;
  1110.     procedure WriteToXMLNode(Node: IXMLNode); override;
  1111. {$ENDIF}
  1112.     property CodeSize: Word read FCodeSize write SetCodeSize;
  1113.     property CodeSizeMarker: TSWFOffsetMarker read GetCodeSizeMarker write FCodeSizeMarker;
  1114.     property FunctionName: string read FFunctionName write FFunctionName;
  1115.     property Parameters: TStringList read FParameters write FParameters;
  1116.     property ParamRegister[Index: byte]: byte read GetParamRegister write SetParamRegister;
  1117.     property PreloadArgumentsFlag: Boolean read FPreloadArgumentsFlag write FPreloadArgumentsFlag;
  1118.     property PreloadGlobalFlag: Boolean read FPreloadGlobalFlag write FPreloadGlobalFlag;
  1119.     property PreloadParentFlag: Boolean read FPreloadParentFlag write FPreloadParentFlag;
  1120.     property PreloadRootFlag: Boolean read FPreloadRootFlag write FPreloadRootFlag;
  1121.     property PreloadSuperFlag: Boolean read FPreloadSuperFlag write FPreloadSuperFlag;
  1122.     property PreloadThisFlag: Boolean read FPreloadThisFlag write FPreloadThisFlag;
  1123.     property RegisterCount: Byte read FRegisterCount write FRegisterCount;
  1124.     property StaticOffset: Boolean read FStaticOffset write FStaticOffset;
  1125.     property SuppressArgumentsFlag: Boolean read FSuppressArgumentsFlag write FSuppressArgumentsFlag;
  1126.     property SuppressSuperFlag: Boolean read FSuppressSuperFlag write FSuppressSuperFlag;
  1127.     property SuppressThisFlag: Boolean read FSuppressThisFlag write FSuppressThisFlag;
  1128.   end;
  1130.   TSWFActionExtends = class (TSWFAction7)
  1131.   public
  1132.     constructor Create;
  1133.   end;
  1135.   TSWFActionCastOp = class (TSWFAction7)
  1136.   public
  1137.     constructor Create;
  1138.   end;
  1140.   TSWFActionImplementsOp = class (TSWFAction7)
  1141.   public
  1142.     constructor Create;
  1143.   end;
  1145.   TSWFActionTry = class (TSWFAction7)
  1146.   public
  1147.     constructor Create;
  1148.     destructor Destroy; override;
  1149.     procedure Assign(Source: TSWFAction); override;
  1150.     procedure ReadFromStream(be: TBitsEngine); override;
  1151.     procedure WriteActionBody(be: TBitsEngine); override;
  1152.     procedure WriteToStream(be: TBitsEngine); override;
  1153. {$IFDEF XMLSupport}
  1154.     procedure ReadFromXMLNode(Node: IXMLNode); override;
  1155.     procedure WriteToXMLNode(Node: IXMLNode); override;
  1156. {$ENDIF}
  1157.     property CatchBlockFlag: Boolean read FCatchBlockFlag write FCatchBlockFlag;
  1158.     property CatchInRegisterFlag: Boolean read FCatchInRegisterFlag write FCatchInRegisterFlag;
  1159.     property CatchName: string read FCatchName write FCatchName;
  1160.     property CatchRegister: Byte read FCatchRegister write FCatchRegister;
  1161.     property CatchSize: Word read FCatchSize write SetCatchSize;
  1162.     property CatchSizeMarker: TSWFTryOffsetMarker read GetCatchSizeMarker write FCatchSizeMarker;
  1163.     property FinallyBlockFlag: Boolean read FFinallyBlockFlag write FFinallyBlockFlag;
  1164.     property FinallySize: Word read FFinallySize write SetFinallySize;
  1165.     property FinallySizeMarker: TSWFTryOffsetMarker read GetFinallySizeMarker write FFinallySizeMarker;
  1166.     property StaticOffset: Boolean read FStaticOffset write FStaticOffset;
  1167.     property TrySize: Word read FTrySize write SetTrySize;
  1168.     property TrySizeMarker: TSWFTryOffsetMarker read GetTrySizeMarker write FTrySizeMarker;
  1169.   end;
  1171.   TSWFActionThrow = class (TSWFAction7)
  1172.   public
  1173.     constructor Create;
  1174.   end;
  1176.   TSWFActionList = class (TObjectList)
  1177.   public
  1178.     property Action[Index: word]: TSWFAction read GetAction write SetAction; default;
  1179.   end;
  1181.   TSWFDoAction = class (TSWFObject)
  1182.   public
  1183.     constructor Create; overload; virtual;
  1184.     constructor Create(A: TSWFActionList); overload; virtual;
  1185.     destructor Destroy; override;
  1186.     procedure Assign(Source: TBasedSWFObject); override;
  1187.     function MinVersion: Byte; override;
  1188.     procedure ReadFromStream(be: TBitsEngine); override;
  1189.     procedure WriteTagBody(be: TBitsEngine); override;
  1190. {$IFDEF XMLSupport}
  1191.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  1192.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  1193. {$ENDIF}
  1194.     property Actions: TSWFActionList read FActions;
  1195.     property ParseActions: Boolean read FParseActions write FParseActions;
  1196. {$IFDEF XMLSupport}
  1197.     property OnXMLReadAction: TSWFObjectXMLRWEvent read FOnXMLReadAction write FOnXMLReadAction;
  1198. {$ENDIF}
  1199.   end;
  1201.   TSWFDoInitAction = class (TSWFDoAction)
  1202.   public
  1203.     constructor Create; override;
  1204.     constructor Create(A: TSWFActionList); override;
  1205.     procedure Assign(Source: TBasedSWFObject); override;
  1206.     function MinVersion: Byte; override;
  1207.     procedure ReadFromStream(be: TBitsEngine); override;
  1208.     procedure WriteTagBody(be: TBitsEngine); override;
  1209. {$IFDEF XMLSupport}
  1210.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  1211.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  1212. {$ENDIF}
  1213.     property SpriteID: Word read FSpriteID write FSpriteID;
  1214.   end;
  1216. // ===========================================================
  1217. //                           AS3
  1218. // ===========================================================
  1219.   TSWFDoubleObject = class (TObject)
  1220.     Value: Double;
  1221.     constructor Create(init: double);
  1222.   end;
  1224.   TSWFNameSpaceObject = class (TObject)
  1225.     Kind: byte;
  1226.     Name: Longint;
  1227.     constructor Create(kind: byte; name: Longint);
  1228.   end;
  1230.   TSWFIntegerList = class (TList)
  1231.   public
  1232. {$IFDEF VER130}
  1233.     procedure Assign(source: TSWFIntegerList);
  1234. {$ENDIF}
  1235.     procedure WriteToStream(be: TBitsEngine);
  1236.     procedure AddInt(value: longint);
  1237.     property Int[index: longint]: longint read GetInt write SetInt;
  1238.   end;
  1240.   TSWFBasedMultiNameObject = class (TObject)
  1241.   public
  1242.     procedure Assign(source: TSWFBasedMultiNameObject); virtual;
  1243.     procedure ReadFromStream(be: TBitsEngine); virtual;
  1244.     procedure WriteToStream(be: TBitsEngine); virtual;
  1245. {$IFDEF XMLSupport}
  1246.     procedure ReadFromXMLNode(Node: IXMLNode); virtual;
  1247.     procedure WriteToXMLNode(Node: IXMLNode); virtual;
  1248. {$ENDIF}
  1249.     property MultinameKind: byte read FMultinameKind  write FMultinameKind;
  1250.   end;
  1252.   TSWFmnQName = class (TSWFBasedMultiNameObject)
  1253.   public
  1254.     procedure Assign(source: TSWFBasedMultiNameObject); override;
  1255.     procedure ReadFromStream(be: TBitsEngine); override;
  1256.     procedure WriteToStream(be: TBitsEngine); override;
  1257. {$IFDEF XMLSupport}
  1258.     procedure ReadFromXMLNode(Node: IXMLNode); override;
  1259.     procedure WriteToXMLNode(Node: IXMLNode); override;
  1260. {$ENDIF}
  1261.     property NS: Longint read FNS write FNS;
  1262.     property Name: Longint read FName write FName;
  1263.   end;
  1265.   TSWFmnRTQName = class (TSWFBasedMultiNameObject)
  1266.   public
  1267.     procedure Assign(source: TSWFBasedMultiNameObject); override;
  1268.     procedure ReadFromStream(be: TBitsEngine); override;
  1269.     procedure WriteToStream(be: TBitsEngine); override;
  1270. {$IFDEF XMLSupport}
  1271.     procedure ReadFromXMLNode(Node: IXMLNode); override;
  1272.     procedure WriteToXMLNode(Node: IXMLNode); override;
  1273. {$ENDIF}
  1274.     property Name: Longint read FName write FName;
  1275.   end;
  1277.   TSWFmnRTQNameL = TSWFBasedMultiNameObject;
  1279.   TSWFmnMultiname = class (TSWFBasedMultiNameObject)
  1280.   public
  1281.     procedure Assign(source: TSWFBasedMultiNameObject); override;
  1282.     procedure ReadFromStream(be: TBitsEngine); override;
  1283.     procedure WriteToStream(be: TBitsEngine); override;
  1284. {$IFDEF XMLSupport}
  1285.     procedure ReadFromXMLNode(Node: IXMLNode); override;
  1286.     procedure WriteToXMLNode(Node: IXMLNode); override;
  1287. {$ENDIF}
  1288.     property NSSet: Longint read FNSSet write FNSSet;
  1289.     property Name: Longint read FName write FName;
  1290.   end;
  1292.   TSWFmnMultinameL = class (TSWFBasedMultiNameObject)
  1293.   public
  1294.     procedure Assign(source: TSWFBasedMultiNameObject); override;
  1295.     procedure ReadFromStream(be: TBitsEngine); override;
  1296.     procedure WriteToStream(be: TBitsEngine); override;
  1297. {$IFDEF XMLSupport}
  1298.     procedure ReadFromXMLNode(Node: IXMLNode); override;
  1299.     procedure WriteToXMLNode(Node: IXMLNode); override;
  1300. {$ENDIF}
  1301.     property NSSet: Longint read FNSSet write FNSSet;
  1302.   end;
  1304.   TSWFAS3ConstantPool = class (TObject)
  1305.   public
  1306.     constructor Create;
  1307.     destructor Destroy; override;
  1309.     procedure Assign(Source: TSWFAS3ConstantPool);
  1310.     procedure ReadFromStream(be: TBitsEngine);
  1311.     procedure WriteToStream(be: TBitsEngine);
  1313.     property Double[index: longint]: Double read GetDouble write SetDouble;
  1314.     property DoubleCount: longint read GetDoubleCount;
  1315.     property Int[index: longint]: longint read GetInt write SetInt;
  1316.     property IntCount: longint read GetIntCount;
  1317.     property Multiname[index: longint]: TSWFBasedMultiNameObject read GetMultiname write SetMultiname;
  1318.     property MultinameCount: longint read GetMultinameCount;
  1320.     property NameSpace[index: longint]: TSWFNameSpaceObject read GetNameSpace write SetNameSpace;
  1321.     property NameSpaceCount: longint read GetNameSpaceCount;
  1323.     property NameSpaceSET[index: longint]: TSWFIntegerList read GetNameSpaceSET write SetNameSpaceSET;
  1324.     property NameSpaceSETCount: longint read GetNameSpaceSETCount;
  1325.     property Strings[index: longint]: string read GetStrings write SetStrings;
  1326.     property StringsCount: longint read GetStringsCount;
  1328.     property UInt[index: longint]: longword read GetUInt write SetUInt;
  1329.     property UIntCount: longword read GetUIntCount;
  1331.   end;
  1334.   TSWFAS3MethodOptions = class (TObject)
  1335.     val: longint;
  1336.     kind: byte;
  1337.   end;
  1339.   TSWFAS3Method = class (TObject)
  1340.   public
  1341.     constructor Create;
  1342.     destructor Destroy; override;
  1343.     procedure Assign(source: TSWFAS3Method);
  1344.     function AddOption: TSWFAS3MethodOptions;
  1345.     property HasOptional: boolean read FHasOptional write FHasOptional;
  1346.     property HasParamNames: boolean read FHasParamNames write FHasParamNames;
  1347.     property Name: Longint read FName write FName;
  1348.     property NeedActivation: boolean read FNeedActivation write FNeedActivation;
  1349.     property NeedArguments: boolean read FNeedArguments write FNeedArguments;
  1350.     property NeedRest: boolean read FNeedRest write FNeedRest;
  1351.     property Option[index: integer]: TSWFAS3MethodOptions read GetOption;
  1352.     property Options: TObjectList read FOptions;
  1353.     property ParamNames: TSWFIntegerList read FParamNames;
  1354.     property ParamTypes: TSWFIntegerList read FParamTypes;
  1355.     property ReturnType: Longint read FReturnType write FReturnType;
  1356.     property SetDxns: boolean read FSetDxns write FSetDxns;
  1357.   end;
  1359.   TSWFAS3Methods = class (TObject)
  1360.   public
  1361.     constructor Create;
  1362.     destructor Destroy; override;
  1363.     procedure Assign(source: TSWFAS3Methods);
  1364.     function AddMethod: TSWFAS3Method;
  1365.     procedure ReadFromStream(be: TBitsEngine);
  1366.     procedure WriteToStream(be: TBitsEngine);
  1367.     property Method[index: integer]: TSWFAS3Method read GetMethod;
  1368.   end;
  1370.   TSWFAS3MetadataItem = class (TObject)
  1371.   public
  1372.     property Value: LongInt read FValue write FValue;
  1373.     property Key: LongInt read FKey write FKey;
  1374.   end;
  1376.   TSWFAS3MetadataInfo = class (TObject)
  1377.   public
  1378.     constructor Create;
  1379.     destructor Destroy; override;
  1380.     procedure Assign(source: TSWFAS3MetadataInfo);
  1381.     function AddMetadataItem: TSWFAS3MetadataItem;
  1382.     property InfoList: TObjectList read FInfoList;
  1383.     property MetaItem[index: integer]: TSWFAS3MetadataItem read GetItem;
  1384.     property Name: Longint read FName write FName;
  1385.   end;
  1387.   TSWFAS3Metadata = class (TObject)
  1388.   public
  1389.     constructor Create;
  1390.     destructor Destroy; override;
  1391.     procedure Assign(source: TSWFAS3Metadata);
  1392.     function AddMetaInfo: TSWFAS3MetadataInfo;
  1393.     procedure ReadFromStream(be: TBitsEngine);
  1394.     procedure WriteToStream(be: TBitsEngine);
  1395. {$IFDEF XMLSupport}
  1396.     procedure WriteToXMLNode(SelfNode: IXMLNode);
  1397. {$ENDIF}
  1398.     property MetadataList: TObjectList read FMetadataList;
  1399.     property MetadataInfo[index: integer]: TSWFAS3MetadataInfo read GetMetadata;
  1400.   end;
  1402.   TSWFAS3Trait = class (TObject)
  1403.   public
  1404.     destructor Destroy; override;
  1405.     procedure Assign(source: TSWFAS3Trait);
  1406.     procedure ReadFromStream(be: TBitsEngine);
  1407.     procedure WriteToStream(be: TBitsEngine);
  1408. {$IFDEF XMLSupport}
  1409.     procedure WriteToXMLNode(Node: IXMLNode);
  1410.     procedure ReadFromXMLNode(Node: IXMLNode);
  1411. {$ENDIF}
  1412.     property ID: LongInt read FID write FID;
  1413.     property IsFinal: Boolean read FIsFinal write FIsFinal;
  1414.     property IsMetadata: Boolean read FIsMetadata write SetIsMetadata;
  1415.     property IsOverride: Boolean read FIsOverride write FIsOverride;
  1416.     property Name: LongInt read FName write FName;
  1417.     property TraitType: byte read FTraitType write FTraitType;
  1418.     property Metadata: TSWFIntegerList read GetMetadata;
  1419.     property SpecID: LongInt read FSpecID write FSpecID;
  1420.     property VIndex: LongInt read FVIndex write FVIndex;
  1421.     property VKind: byte read FVKind write FVKind;
  1422.   end;
  1424.   TSWFAS3Traits = class (TObject)
  1425.     FTraits: TObjectList;
  1426.     function GetTrait(Index: Integer): TSWFAS3Trait;
  1427.   public
  1428.     constructor Create; virtual;
  1429.     destructor Destroy; override;
  1430.     procedure Assign(source: TSWFAS3Traits);
  1431.     function AddTrait: TSWFAS3Trait;
  1432.     property Trait[Index: longint]: TSWFAS3Trait read GetTrait;
  1433.     property Traits: TObjectList read FTraits;
  1434.   end;
  1436.   TSWFAS3InstanceItem = class (TSWFAS3Traits)
  1437.   public
  1438.     constructor Create; override;
  1439.     destructor Destroy; override;
  1440.     procedure Assign(source: TSWFAS3InstanceItem);
  1441.     procedure ReadFromStream(be: TBitsEngine);
  1442.     procedure WriteToStream(be: TBitsEngine);
  1443.     property ClassFinal: Boolean read FClassFinal write FClassFinal;
  1444.     property ClassInterface: Boolean read FClassInterface write FClassInterface;
  1445.     property ClassProtectedNs: Boolean read FClassProtectedNs write FClassProtectedNs;
  1446.     property ClassSealed: Boolean read FClassSealed write FClassSealed;
  1447.     property Iinit: LongInt read FIinit write FIinit;
  1448.     property Interfaces: TSWFIntegerList read FInterfaces;
  1449.     property Name: LongInt read FName write FName;
  1450.     property ProtectedNs: LongInt read FProtectedNs write FProtectedNs;
  1451.     property SuperName: LongInt read FSuperName write FSuperName;
  1452.   end;
  1454.   TSWFAS3Instance = class (TObjectList)
  1455.   public
  1456.     procedure Assign(source: TSWFAS3Instance);
  1457.     function AddInstanceItem: TSWFAS3InstanceItem;
  1458.     procedure ReadFromStream(Count: Longint; be: TBitsEngine);
  1459.     procedure WriteToStream(be: TBitsEngine);
  1460.     property InstanceItem[Index: longint]: TSWFAS3InstanceItem read GetInstanceItem;
  1461.   end;
  1463.   TSWFAS3ClassInfo = class (TSWFAS3Traits)
  1464.   public
  1465.     procedure Assign(source: TSWFAS3ClassInfo);
  1466.     procedure ReadFromStream(be: TBitsEngine);
  1467.     procedure WriteToStream(be: TBitsEngine);
  1468.     property CInit: LongInt read FCInit write FCInit;
  1469.   end;
  1471.   TSWFAS3Classes = class(TObjectList)
  1472.   public
  1473.     procedure Assign(source: TSWFAS3Classes);
  1474.     procedure ReadFromStream(rcount: longInt; be: TBitsEngine);
  1475.     procedure WriteToStream(be: TBitsEngine);
  1476.     function AddClassInfo: TSWFAS3ClassInfo;
  1477.     property _ClassInfo[Index: Integer]: TSWFAS3ClassInfo read GetClassInfo;
  1478.   end;
  1480.   TSWFAS3ScriptInfo = TSWFAS3ClassInfo;
  1481.   TSWFAS3Scripts = class(TObjectList)
  1482.   public
  1483.     procedure Assign(source: TSWFAS3Scripts);
  1484.     procedure ReadFromStream(be: TBitsEngine);
  1485.     procedure WriteToStream(be: TBitsEngine);
  1486.     function AddScriptInfo: TSWFAS3ScriptInfo;
  1487.     property ScriptInfo[Index: Integer]: TSWFAS3ScriptInfo read GetScriptInfo;
  1488.   end;
  1490.   TSWFAS3Exception = class (TObject)
  1491.   public
  1492.     procedure Assign(source: TSWFAS3Exception);
  1493.     property ExcType: LongInt read FExcType write FExcType;
  1494.     property From: LongInt read FFrom write FFrom;
  1495.     property Target: LongInt read FTarget write FTarget;
  1496.     property VarName: LongInt read FVarName write FVarName;
  1497.     property _To: LongInt read F_To write F_To;
  1498.   end;
  1500.   TSWFAS3MethodBodyInfo = class (TSWFAS3Traits)
  1501.    public
  1502.     constructor Create; override;
  1503.     destructor Destroy; override;
  1504.     procedure Assign(source: TSWFAS3MethodBodyInfo);
  1505.     procedure ReadFromStream(be: TBitsEngine);
  1506.     procedure WriteToStream(be: TBitsEngine);
  1507.     function AddException: TSWFAS3Exception;
  1508.     property Code: TMemoryStream read FCode;
  1509.     property StrCode: AnsiString read GetStrByteCode write SetStrByteCode;
  1510.     property CodeItem[Index: Integer]: byte read GetCodeItem write SetCodeItem;
  1511.     property Exception[Index: Integer]: TSWFAS3Exception read GetException;
  1512.     property Exceptions: TObjectList read FExceptions;
  1513.     property InitScopeDepth: LongInt read FInitScopeDepth write FInitScopeDepth;
  1514.     property LocalCount: LongInt read FLocalCount write FLocalCount;
  1515.     property MaxScopeDepth: LongInt read FMaxScopeDepth write FMaxScopeDepth;
  1516.     property MaxStack: LongInt read FMaxStack write FMaxStack;
  1517.     property Method: LongInt read FMethod write FMethod;
  1518.   end;
  1520.   TSWFAS3MethodBodies = class(TObjectList)
  1521.   public
  1522.     procedure Assign(source: TSWFAS3MethodBodies);
  1523.     procedure ReadFromStream(be: TBitsEngine);
  1524.     procedure WriteToStream(be: TBitsEngine);
  1525.     function AddMethodBodyInfo: TSWFAS3MethodBodyInfo;
  1526.     property MethodBodyInfo[Index: Integer]: TSWFAS3MethodBodyInfo read GetClassInfo;
  1527.   end;
  1529.   TSWFDoABC = class (TSWFObject)
  1530.   public
  1531.     constructor Create;
  1532.     destructor Destroy; override;
  1533.     procedure Assign(Source: TBasedSWFObject); override;
  1534.     function MinVersion: Byte; override;
  1535.     procedure ReadFromStream(be: TBitsEngine); override;
  1536.     procedure WriteTagBody(be: TBitsEngine); override;
  1537. {$IFDEF XMLSupport}
  1538.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  1539.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  1540. {$ENDIF}
  1541.     property ActionName: string read FActionName write FActionName;
  1542.     property Classes: TSWFAS3Classes read GetClasses;
  1543.     property ConstantPool: TSWFAS3ConstantPool read FConstantPool;
  1544.     property Data: TStream read GetData write SetData;
  1545.     property DataSize: LongInt read FDataSize write SetDataSize;
  1546.     property DoAbcLazyInitializeFlag: boolean read FDoAbcLazyInitializeFlag write FDoAbcLazyInitializeFlag;
  1547.     property Instance: TSWFAS3Instance read GetInstance;
  1548.     property MajorVersion: Word read FMajorVersion write FMajorVersion;
  1549.     property Metadata: TSWFAS3Metadata read GetMetadata;
  1550.     property MethodBodies: TSWFAS3MethodBodies read GetMethodBodies;
  1551.     property Methods: TSWFAS3Methods read GetMethods;
  1552.     property MinorVersion: Word read FMinorVersion write FMinorVersion;
  1553.     property ParseActions: Boolean read FParseActions write FParseActions;
  1554.     property Scripts: TSWFAS3Scripts read GetScripts;
  1555.     property SelfDestroy: Boolean read FSelfDestroy write FSelfDestroy;
  1556.     property StrVersion: string read GetStrVersion write SetStrVersion;
  1557.   end;
  1559. // ===========================================================
  1560. //                       Display List
  1561. // ===========================================================
  1562.   TSWFBasedPlaceObject = class (TSWFObject)
  1563.   public
  1564.     procedure Assign(Source: TBasedSWFObject); override;
  1565.     property CharacterId: Word read FCharacterId write SetCharacterId;
  1566.     property Depth: Word read FDepth write FDepth;
  1567.   end;
  1569.   TSWFPlaceObject = class (TSWFBasedPlaceObject)
  1570.   public
  1571.     constructor Create;
  1572.     destructor Destroy; override;
  1573.     procedure Assign(Source: TBasedSWFObject); override;
  1574.     procedure ReadFromStream(be: TBitsEngine); override;
  1575.     procedure WriteTagBody(be: TBitsEngine); override;
  1576. {$IFDEF XMLSupport}
  1577.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  1578.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  1579. {$ENDIF}
  1580.     property ColorTransform: TSWFColorTransform read FColorTransform;
  1581.     property InitColorTransform: Boolean read GetInitColorTransform write FInitColorTransform;
  1582.     property Matrix: TSWFMatrix read FMatrix;
  1583.   end;
  1585.   TSWFClipActionRecord = class (TSWFActionList)
  1586.   public
  1587. //    constructor Create;
  1588. //    destructor Destroy; override;
  1589.     procedure Assign(Source: TSWFClipActionRecord);
  1590.     property Actions: TSWFActionList read GetActions;
  1591.     property EventFlags: TSWFClipEvents read FEventFlags write FEventFlags;
  1592.     property KeyCode: Byte read FKeyCode write SetKeyCode;
  1593.   end;
  1595.   TSWFClipActions = class (TObject)
  1596.   public
  1597.     constructor Create;
  1598.     destructor Destroy; override;
  1599.     function AddActionRecord(EventFlags: TSWFClipEvents; KeyCode: byte): TSWFClipActionRecord;
  1600.     procedure Assign(Source: TSWFClipActions);
  1601.     function Count: integer;
  1602.     property ActionRecord[Index: Integer]: TSWFClipActionRecord read GetActionRecord;
  1603.     property ActionRecords: TObjectList read FActionRecords;
  1604.     property AllEventFlags: TSWFClipEvents read FAllEventFlags write FAllEventFlags;
  1605.   end;
  1607.   TSWFPlaceObject2 = class (TSWFBasedPlaceObject)
  1608.   public
  1609.     constructor Create;
  1610.     destructor Destroy; override;
  1611.     procedure Assign(Source: TBasedSWFObject); override;
  1612.     function ClipActions: TSWFClipActions;
  1613.     function MinVersion: Byte; override;
  1614.     procedure ReadFromStream(be: TBitsEngine); override;
  1615.     procedure WriteTagBody(be: TBitsEngine); override;
  1616. {$IFDEF XMLSupport}
  1617.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  1618.     procedure ReadEventActionsFromXML(Node: IXMLNode; Settings: TXMLReadWriteSettings);
  1619.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  1620. {$ENDIF}
  1621.     property ClipDepth: Word read FClipDepth write SetClipDepth;
  1622.     property ColorTransform: TSWFColorTransform read GetColorTransform;
  1623.     property Matrix: TSWFMatrix read GetMatrix;
  1624.     property Name: string read FName write SetName;
  1625.     property ParseActions: Boolean read FParseActions write FParseActions;
  1626.     property PlaceFlagHasCharacter: Boolean read FPlaceFlagHasCharacter write FPlaceFlagHasCharacter;
  1627.     property PlaceFlagHasClipActions: Boolean read FPlaceFlagHasClipActions write FPlaceFlagHasClipActions;
  1628.     property PlaceFlagHasClipDepth: Boolean read FPlaceFlagHasClipDepth write FPlaceFlagHasClipDepth;
  1629.     property PlaceFlagHasColorTransform: Boolean read FPlaceFlagHasColorTransform write FPlaceFlagHasColorTransform;
  1630.     property PlaceFlagHasMatrix: Boolean read FPlaceFlagHasMatrix write FPlaceFlagHasMatrix;
  1631.     property PlaceFlagHasName: Boolean read FPlaceFlagHasName write FPlaceFlagHasName;
  1632.     property PlaceFlagHasRatio: Boolean read FPlaceFlagHasRatio write FPlaceFlagHasRatio;
  1633.     property PlaceFlagMove: Boolean read FPlaceFlagMove write FPlaceFlagMove;
  1634.     property Ratio: Word read FRatio write SetRatio;
  1635.     property SWFVersion: Byte read FSWFVersion write FSWFVersion;
  1636. {$IFDEF XMLSupport}
  1637.     property OnXMLReadAction: TSWFObjectXMLRWEvent read FOnXMLReadAction write FOnXMLReadAction;
  1638. {$ENDIF}
  1640.   end;
  1642.  TSWFFilter = class (TObject)
  1643.  public
  1644.   procedure Assign(Source: TSWFFilter); virtual; abstract;
  1645.   procedure ReadFromStream(be: TBitsEngine); virtual; abstract;
  1646.   procedure WriteToStream(be: TBitsEngine); virtual; abstract;
  1647. {$IFDEF XMLSupport}
  1648.   procedure ReadFromXMLNode(Node: IXMLNode); virtual; abstract;
  1649.   procedure WriteToXMLNode(Node: IXMLNode); virtual; abstract;
  1650. {$ENDIF}
  1651.   property FilterID: TSWFFilterID read FFilterID write FFilterID;
  1652.  end;
  1654.  TSWFColorMatrixFilter = class (TSWFFilter)
  1655.  public
  1656.   constructor Create;
  1657.   procedure AdjustColor(Brightness, Contrast, Saturation, Hue: Integer);
  1658.   procedure Assign(Source: TSWFFilter); override;
  1659.   procedure ResetValues;
  1660.   procedure ReadFromStream(be: TBitsEngine); override;
  1661.   procedure WriteToStream(be: TBitsEngine); override;
  1662. {$IFDEF XMLSupport}
  1663.   procedure ReadFromXMLNode(Node: IXMLNode); override;
  1664.   procedure WriteToXMLNode(Node: IXMLNode); override;
  1665. {$ENDIF}
  1666.   property Matrix[Index: Integer]: single read GetMatrix write SetMatrix;
  1667.   property R0: single read GetR0 write SetR0;
  1668.   property R1: single read GetR1 write SetR1;
  1669.   property R2: single read GetR2 write SetR2;
  1670.   property R3: single read GetR3 write SetR3;
  1671.   property R4: single read GetR4 write SetR4;
  1672.   property G0: single read GetG0 write SetG0;
  1673.   property G1: single read GetG1 write SetG1;
  1674.   property G2: single read GetG2 write SetG2;
  1675.   property G3: single read GetG3 write SetG3;
  1676.   property G4: single read GetG4 write SetG4;
  1677.   property B0: single read GetB0 write SetB0;
  1678.   property B1: single read GetB1 write SetB1;
  1679.   property B2: single read GetB2 write SetB2;
  1680.   property B3: single read GetB3 write SetB3;
  1681.   property B4: single read GetB4 write SetB4;
  1682.   property A0: single read GetA0 write SetA0;
  1683.   property A1: single read GetA1 write SetA1;
  1684.   property A2: single read GetA2 write SetA2;
  1685.   property A3: single read GetA3 write SetA3;
  1686.   property A4: single read GetA4 write SetA4;
  1687.  end;
  1689.  TSWFConvolutionFilter = class (TSWFFilter)
  1690.  public
  1691.   constructor Create;
  1692.   destructor Destroy; override;
  1693.   procedure Assign(Source: TSWFFilter); override;
  1694.   procedure ReadFromStream(be: TBitsEngine); override;
  1695.   procedure WriteToStream(be: TBitsEngine); override;
  1696. {$IFDEF XMLSupport}
  1697.   procedure ReadFromXMLNode(Node: IXMLNode); override;
  1698.   procedure WriteToXMLNode(Node: IXMLNode); override;
  1699. {$ENDIF}
  1700.   property Bias: single read FBias write FBias;
  1701.   property Clamp: Boolean read FClamp write FClamp;
  1702.   property DefaultColor: TSWFRGBA read FDefaultColor;
  1703.   property Divisor: single read FDivisor write FDivisor;
  1704.   property Matrix[Index: Integer]: single read GetMatrix write SetMatrix;
  1705.   property MatrixX: byte read FMatrixX write FMatrixX;
  1706.   property MatrixY: byte read FMatrixY write FMatrixY;
  1707.   property PreserveAlpha: Boolean read FPreserveAlpha write FPreserveAlpha;
  1708.  end;
  1710.  TSWFBlurFilter = class (TSWFFilter)
  1711.  public
  1712.   constructor Create; virtual;
  1713.   procedure Assign(Source: TSWFFilter); override;
  1714.   procedure ReadFromStream(be: TBitsEngine); override;
  1715.   procedure WriteToStream(be: TBitsEngine); override;
  1716. {$IFDEF XMLSupport}
  1717.   procedure ReadFromXMLNode(Node: IXMLNode); override;
  1718.   procedure WriteToXMLNode(Node: IXMLNode); override;
  1719. {$ENDIF}
  1720.   property BlurX: single read FBlurX write FBlurX;
  1721.   property BlurY: single read FBlurY write FBlurY;
  1722.   property Passes: byte read FPasses write FPasses;
  1723.  end;
  1725.  TSWFGlowFilter = class(TSWFBlurFilter)
  1726.  public
  1727.   constructor Create; override;
  1728.   destructor Destroy; override;
  1729.   procedure Assign(Source: TSWFFilter); override;
  1730.   procedure ReadFromStream(be: TBitsEngine); override;
  1731.   procedure WriteToStream(be: TBitsEngine); override;
  1732. {$IFDEF XMLSupport}
  1733.   procedure ReadFromXMLNode(Node: IXMLNode); override;
  1734.   procedure WriteToXMLNode(Node: IXMLNode); override;
  1735. {$ENDIF}
  1736.   property GlowColor: TSWFRGBA read FGlowColor;
  1737.   property InnerGlow: Boolean read FInnerGlow write FInnerGlow;
  1738.   property Knockout: Boolean read FKnockout write FKnockout;
  1739.   property CompositeSource: Boolean read FCompositeSource write FCompositeSource;
  1740.   property Strength: single read FStrength write FStrength;
  1741.  end;
  1743.  TSWFDropShadowFilter = class (TSWFBlurFilter)
  1744.  public
  1745.   constructor Create; override;
  1746.   destructor Destroy; override;
  1747.   procedure Assign(Source: TSWFFilter); override;
  1748.   procedure ReadFromStream(be: TBitsEngine); override;
  1749.   procedure WriteToStream(be: TBitsEngine); override;
  1750. {$IFDEF XMLSupport}
  1751.   procedure ReadFromXMLNode(Node: IXMLNode); override;
  1752.   procedure WriteToXMLNode(Node: IXMLNode); override;
  1753. {$ENDIF}
  1754.   property Angle: single read FAngle write FAngle;
  1755.   property CompositeSource: Boolean read FCompositeSource write FCompositeSource;
  1756.   property Distance: single read FDistance write FDistance;
  1757.   property DropShadowColor: TSWFRGBA read FDropShadowColor;
  1758.   property InnerShadow: Boolean read FInnerShadow write FInnerShadow;
  1759.   property Knockout: Boolean read FKnockout write FKnockout;
  1760.   property Strength: single read FStrength write FStrength;
  1761.  end;
  1763.  TSWFBevelFilter = class(TSWFBlurFilter)
  1764.  public
  1765.   constructor Create; override;
  1766.   destructor Destroy; override;
  1767.   procedure Assign(Source: TSWFFilter); override;
  1768.   procedure ReadFromStream(be: TBitsEngine); override;
  1769.   procedure WriteToStream(be: TBitsEngine); override;
  1770. {$IFDEF XMLSupport}
  1771.   procedure ReadFromXMLNode(Node: IXMLNode); override;
  1772.   procedure WriteToXMLNode(Node: IXMLNode); override;
  1773. {$ENDIF}
  1774.   property Angle: single read FAngle write FAngle;
  1775.   property CompositeSource: Boolean read FCompositeSource write FCompositeSource;
  1776.   property Distance: single read FDistance write FDistance;
  1777.   property ShadowColor: TSWFRGBA read FShadowColor;
  1778.   property InnerShadow: Boolean read FInnerShadow write FInnerShadow;
  1779.   property Knockout: Boolean read FKnockout write FKnockout;
  1780.   property HighlightColor: TSWFRGBA read FHighlightColor;
  1781.   property OnTop: Boolean read FOnTop write FOnTop;
  1782.   property Strength: single read FStrength write FStrength;
  1783.  end;
  1785.  TSWFGradientRec = record
  1786.    color: recRGBA;
  1787.    ratio: byte;
  1788.  end;
  1790.  TSWFGradientGlowFilter = class(TSWFBlurFilter)
  1791.  public
  1792.   constructor Create; override;
  1793.   destructor Destroy; override;
  1794.   procedure Assign(Source: TSWFFilter); override;
  1795.   procedure ReadFromStream(be: TBitsEngine); override;
  1796.   procedure WriteToStream(be: TBitsEngine); override;
  1797. {$IFDEF XMLSupport}
  1798.   procedure ReadFromXMLNode(Node: IXMLNode); override;
  1799.   procedure WriteToXMLNode(Node: IXMLNode); override;
  1800. {$ENDIF}
  1801.   property Angle: single read FAngle write FAngle;
  1802.   property CompositeSource: Boolean read FCompositeSource write FCompositeSource;
  1803.   property Distance: single read FDistance write FDistance;
  1804.   property Gradient[Index: byte]: TSWFGradientRec read GetGradient;
  1805.   property GradientColor[Index: byte]: TSWFRGBA read GetGradientColor;
  1806.   property GradientRatio[Index: byte]: Byte read GetGradientRatio write SetGradientRatio;
  1807.   property InnerShadow: Boolean read FInnerShadow write FInnerShadow;
  1808.   property Knockout: Boolean read FKnockout write FKnockout;
  1809.   property NumColors: byte read FNumColors write SetNumColors;
  1810.   property OnTop: Boolean read FOnTop write FOnTop;
  1811.   property Strength: single read FStrength write FStrength;
  1812.  end;
  1814.  TSWFGradientBevelFilter = class (TSWFGradientGlowFilter)
  1815.  public
  1816.   constructor Create; override;
  1817.  end;
  1819.  TSWFFilterList = class (TObjectList)
  1820.  public
  1821.   function AddFilter(id: TSwfFilterID): TSWFFilter;
  1822.   procedure ReadFromStream(be: TBitsEngine);
  1823.   procedure WriteToStream(be: TBitsEngine);
  1824. {$IFDEF XMLSupport}
  1825.   procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings);
  1826.   procedure WriteToXMLNode(Node: IXMLNode);
  1827. {$ENDIF}
  1828.   property Filter[Index: Integer]: TSWFFilter read GetFilter;
  1829.  end;
  1831.  TSWFPlaceObject3 = class(TSWFPlaceObject2)
  1832.  public
  1833.   constructor Create;
  1834.   destructor Destroy; override;
  1835.   procedure Assign(Source: TBasedSWFObject); override;
  1836.   function MinVersion: Byte; override;
  1837. {$IFDEF XMLSupport}
  1838.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  1839.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  1840. {$ENDIF}
  1841.   property BlendMode: TSWFBlendMode read FBlendMode write FBlendMode;
  1842.   property _ClassName: string read FClassName write SetClassName;
  1843.   property PlaceFlagHasCacheAsBitmap: Boolean read FPlaceFlagHasCacheAsBitmap
  1844.       write FPlaceFlagHasCacheAsBitmap;
  1845.   property PlaceFlagHasBlendMode: Boolean read FPlaceFlagHasBlendMode write
  1846.       FPlaceFlagHasBlendMode;
  1847.   property PlaceFlagHasImage: boolean read FPlaceFlagHasImage write FPlaceFlagHasImage;
  1848.   property PlaceFlagHasClassName: boolean read FPlaceFlagHasClassName write FPlaceFlagHasClassName;
  1849.   property PlaceFlagHasFilterList: Boolean read FPlaceFlagHasFilterList write
  1850.       FPlaceFlagHasFilterList;
  1851.   property SaveAsPO2: boolean read FSaveAsPO2 write FSaveAsPO2;
  1852.   property SurfaceFilterList: TSWFFilterList read GetSurfaceFilterList;
  1853.  end;
  1855.   TSWFRemoveObject = class (TSWFObject)
  1856.   public
  1857.     constructor Create;
  1858.     procedure Assign(Source: TBasedSWFObject); override;
  1859.     procedure ReadFromStream(be: TBitsEngine); override;
  1860.     procedure WriteTagBody(be: TBitsEngine); override;
  1861. {$IFDEF XMLSupport}
  1862.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  1863.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  1864. {$ENDIF}
  1865.     property CharacterID: Word read FCharacterID write FCharacterID;
  1866.     property Depth: Word read FDepth write FDepth;
  1867.   end;
  1869.   TSWFRemoveObject2 = class (TSWFObject)
  1870.   public
  1871.     constructor Create;
  1872.     procedure Assign(Source: TBasedSWFObject); override;
  1873.     function MinVersion: Byte; override;
  1874.     procedure ReadFromStream(be: TBitsEngine); override;
  1875.     procedure WriteTagBody(be: TBitsEngine); override;
  1876. {$IFDEF XMLSupport}
  1877.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  1878.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  1879. {$ENDIF}
  1880.     property depth: Word read Fdepth write Fdepth;
  1881.   end;
  1883.   TSWFShowFrame = class (TSWFObject)
  1884.   public
  1885.     constructor Create;
  1886.   end;
  1888. // =========================================================
  1889. //                        Shape
  1890. // =========================================================
  1892.   TSWFFillStyle = class (TObject)
  1893.   public
  1894.     procedure Assign(Source: TSWFFillStyle); virtual;
  1895.     procedure ReadFromStream(be: TBitsEngine); virtual; abstract;
  1896.     procedure WriteToStream(be: TBitsEngine); virtual; abstract;
  1897. {$IFDEF XMLSupport}
  1898.     procedure ReadFromXMLNode(Node: IXMLNode); virtual; abstract;
  1899.     procedure WriteToXMLNode(Node: IXMLNode); virtual; abstract;
  1900. {$ENDIF}
  1901.     property hasAlpha: Boolean read FhasAlpha write FhasAlpha;
  1902.     property SWFFillType: TSWFFillType read FSWFFillType write FSWFFillType;
  1903.   end;
  1905.   TSWFLineStyle = class (TObject)
  1906.   public
  1907.     constructor Create; virtual;
  1908.     destructor Destroy; override;
  1909.     procedure Assign(Source: TSWFLineStyle); virtual;
  1910.     procedure ReadFromStream(be: TBitsEngine); virtual;
  1911.     procedure WriteToStream(be: TBitsEngine); virtual;
  1912. {$IFDEF XMLSupport}
  1913.     procedure ReadFromXMLNode(Node: IXMLNode); virtual;
  1914.     procedure WriteToXMLNode(Node: IXMLNode); virtual;
  1915. {$ENDIF}
  1916.     property Color: TSWFRGBA read FColor;
  1917.     property Width: Word read FWidth write FWidth;
  1918.   end;
  1920.   TSWFLineStyle2 = class (TSWFLineStyle)
  1921.   public
  1922.     constructor Create; override;
  1923.     destructor Destroy; override;
  1924.     procedure Assign(Source: TSWFLineStyle); override;
  1925.     function GetFillStyle(style: integer): TSWFFillStyle;
  1926.     procedure ReadFromStream(be: TBitsEngine); override;
  1927.     procedure WriteToStream(be: TBitsEngine); override;
  1928. {$IFDEF XMLSupport}
  1929.     procedure ReadFromXMLNode(Node: IXMLNode); override;
  1930.     procedure WriteToXMLNode(Node: IXMLNode); override;
  1931. {$ENDIF}
  1932.     property HasFillFlag: Boolean read FHasFillFlag write FHasFillFlag;
  1933.     property StartCapStyle: byte read FStartCapStyle write FStartCapStyle;
  1934.     property JoinStyle: byte read FJoinStyle write FJoinStyle;
  1935.     property NoClose: Boolean read FNoClose write FNoClose;
  1936.     property NoHScaleFlag: Boolean read FNoHScaleFlag write FNoHScaleFlag;
  1937.     property NoVScaleFlag: Boolean read FNoVScaleFlag write FNoVScaleFlag;
  1938.     property PixelHintingFlag: Boolean read FPixelHintingFlag write
  1939.         FPixelHintingFlag;
  1940.     property EndCapStyle: byte read FEndCapStyle write FEndCapStyle;
  1941.     property MiterLimitFactor: single read FMiterLimitFactor write
  1942.         FMiterLimitFactor;
  1943.   end;
  1945.   TSWFColorFill = class (TSWFFillStyle)
  1946.   public
  1947.     constructor Create;
  1948.     destructor Destroy; override;
  1949.     procedure Assign(Source: TSWFFillStyle); override;
  1950.     procedure ReadFromStream(be: TBitsEngine); override;
  1951.     procedure WriteToStream(be: TBitsEngine); override;
  1952. {$IFDEF XMLSupport}
  1953.     procedure ReadFromXMLNode(Node: IXMLNode); override;
  1954.     procedure WriteToXMLNode(Node: IXMLNode); override;
  1955. {$ENDIF}
  1956.     property Color: TSWFRGBA read FColor;
  1957.   end;
  1959.   TSWFImageFill = class (TSWFFillStyle)
  1960.   public
  1961.     constructor Create;
  1962.     destructor Destroy; override;
  1963.     procedure Assign(Source: TSWFFillStyle); override;
  1964.     procedure ReadFromStream(be: TBitsEngine); override;
  1965.     procedure ScaleTo(Frame: TRect; W, H: word);
  1966.     procedure WriteToStream(be: TBitsEngine); override;
  1967. {$IFDEF XMLSupport}
  1968.    procedure ReadFromXMLNode(Node: IXMLNode); override;
  1969.    procedure WriteToXMLNode(Node: IXMLNode); override;
  1970. {$ENDIF}
  1971.     property ImageID: Word read FImageID write FImageID;
  1972.     property Matrix: TSWFMatrix read FMatrix;
  1973.   end;
  1975.  TSWFBaseGradientFill = class(TSWFFillStyle)
  1976.  public
  1977.    constructor Create;
  1978.    destructor Destroy; override;
  1979.    procedure Assign(Source: TSWFFillStyle); override;
  1980.    procedure ReadFromStream(be: TBitsEngine); override;
  1981.    procedure WriteToStream(be: TBitsEngine); override;
  1982. {$IFDEF XMLSupport}
  1983.    procedure ReadFromXMLNode(Node: IXMLNode); override;
  1984.    procedure WriteToXMLNode(Node: IXMLNode); override;
  1985. {$ENDIF}
  1986.    property Count: Byte read FCount write FCount;
  1987.    property Gradient[Index: byte]: TSWFGradientRec read GetGradient;
  1988.    property GradientColor[Index: Integer]: TSWFRGBA read GetGradientColor;
  1989.    property GradientRatio[Index: Integer]: Byte read GetGradientRatio write SetGradientRatio;
  1990.  end;
  1992.  TSWFGradientFill = class (TSWFBaseGradientFill)
  1993.  public
  1994.    constructor Create;
  1995.    destructor Destroy; override;
  1996.    procedure Assign(Source: TSWFFillStyle); override;
  1997.    procedure ReadFromStream(be: TBitsEngine); override;
  1998.    procedure ScaleTo(Frame: TRect);
  1999.    procedure WriteToStream(be: TBitsEngine); override;
  2000. {$IFDEF XMLSupport}
  2001.    procedure ReadFromXMLNode(Node: IXMLNode); override;
  2002.    procedure WriteToXMLNode(Node: IXMLNode); override;
  2003. {$ENDIF}
  2004.    property Matrix: TSWFMatrix read FMatrix;
  2005.  end;
  2007.  TSWFFocalGradientFill = class(TSWFGradientFill)
  2008.  public
  2009.   constructor Create;
  2010.   procedure Assign(Source: TSWFFillStyle); override;
  2011.   procedure ReadFromStream(be: TBitsEngine); override;
  2012.   procedure WriteToStream(be: TBitsEngine); override;
  2013. {$IFDEF XMLSupport}
  2014.    procedure ReadFromXMLNode(Node: IXMLNode); override;
  2015.    procedure WriteToXMLNode(Node: IXMLNode); override;
  2016. {$ENDIF}
  2017.   property FocalPoint: single read GetFocalPoint write SetFocalPoint;
  2018.   property InterpolationMode;
  2019.   property SpreadMode;
  2020.  end;
  2022.   TSWFShapeRecord = class (TObject)
  2023.   public
  2024.     procedure Assign(Source: TSWFShapeRecord); virtual;
  2025.     procedure WriteToStream(be: TBitsEngine); virtual; abstract;
  2026.     property ShapeRecType: TShapeRecType read FShapeRecType write FShapeRecType;
  2027.   end;
  2029.   TSWFEndShapeRecord = class (TSWFShapeRecord)
  2030.   public
  2031.     constructor Create;
  2032.     procedure WriteToStream(be: TBitsEngine); override;
  2033.   end;
  2035.   TSWFStraightEdgeRecord = class (TSWFShapeRecord)
  2036.   public
  2037.     constructor Create;
  2038.     procedure Assign(Source: TSWFShapeRecord); override;
  2039.     procedure WriteToStream(be: TBitsEngine); override;
  2040.     property X: LongInt read FX write FX;
  2041.     property Y: LongInt read FY write FY;
  2042.   end;
  2044.   TSWFStyleChangeRecord = class (TSWFStraightEdgeRecord)
  2045.   public
  2046.     constructor Create;
  2047.     destructor Destroy; override;
  2048.     procedure Assign(Source: TSWFShapeRecord); override;
  2049.     procedure WriteToStream(be: TBitsEngine); override;
  2050.     property Fill0Id: Word read FFill0Id write SetFill0Id;
  2051.     property Fill1Id: Word read FFill1Id write SetFill1Id;
  2052.     property LineId: Word read FLineId write SetLineId;
  2053.     property NewFillStyles: TObjectList read GetNewFillStyles;
  2054.     property NewLineStyles: TObjectList read GetNewLineStyles;
  2055.     property StateFillStyle0: Boolean read FStateFillStyle0 write FStateFillStyle0;
  2056.     property StateFillStyle1: Boolean read FStateFillStyle1 write FStateFillStyle1;
  2057.     property StateLineStyle: Boolean read FStateLineStyle write FStateLineStyle;
  2058.     property StateMoveTo: Boolean read FStateMoveTo write FStateMoveTo;
  2059.     property StateNewStyles: Boolean read FStateNewStyles write FStateNewStyles;
  2060.   end;
  2062.   TSWFCurvedEdgeRecord = class (TSWFShapeRecord)
  2063.   public
  2064.     constructor Create;
  2065.     procedure Assign(Source: TSWFShapeRecord); override;
  2066.     procedure WriteToStream(be: TBitsEngine); override;
  2067.     property AnchorX: LongInt read FAnchorX write FAnchorX;
  2068.     property AnchorY: LongInt read FAnchorY write FAnchorY;
  2069.     property ControlX: LongInt read FControlX write FControlX;
  2070.     property ControlY: LongInt read FControlY write FControlY;
  2071.   end;
  2073.   TSWFDefineShape = class (TSWFObject)
  2074.   public
  2075.     constructor Create; virtual;
  2076.     destructor Destroy; override;
  2077.     procedure Assign(Source: TBasedSWFObject); override;
  2078.     procedure ReadFromStream(be: TBitsEngine); override;
  2079.     procedure WriteTagBody(be: TBitsEngine); override;
  2080. {$IFDEF XMLSupport}
  2081.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2082.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2083. {$ENDIF}
  2084.     property EdgeRecord[index: longint]: TSWFShapeRecord read GetEdgeRecord;
  2085.     property Edges: TObjectList read FEdges write FEdges;
  2086.     property FillStyles: TObjectList read FFillStyles;
  2087.     property hasAlpha: Boolean read FhasAlpha write FhasAlpha;
  2088.     property LineStyles: TObjectList read FLineStyles;
  2089.     property ShapeBounds: TSWFRect read FShapeBounds;
  2090.     property ShapeId: Word read FShapeId write FShapeId;
  2091.   end;
  2093.   TSWFDefineShape2 = class (TSWFDefineShape)
  2094.   public
  2095.     constructor Create; override;
  2096.     function MinVersion: Byte; override;
  2097.   end;
  2099.   TSWFDefineShape3 = class (TSWFDefineShape)
  2100.   public
  2101.     constructor Create; override;
  2102.     function MinVersion: Byte; override;
  2103.   end;
  2105.   TSWFDefineShape4 = class (TSWFDefineShape)
  2106.   public
  2107.     constructor Create; override;
  2108.     destructor Destroy; override;
  2109.     procedure Assign(Source: TBasedSWFObject); override;
  2110.     function MinVersion: Byte; override;
  2111. {$IFDEF XMLSupport}
  2112.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2113.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2114. {$ENDIF}
  2115.     property EdgeBounds: TSWFRect read FEdgeBounds;
  2116.     property UsesNonScalingStrokes: Boolean read FUsesNonScalingStrokes write
  2117.         FUsesNonScalingStrokes;
  2118.     property UsesScalingStrokes: Boolean read FUsesScalingStrokes write
  2119.         FUsesScalingStrokes;
  2120.   end;
  2121. // ==========================================================
  2122. //                      Bitmaps
  2123. // ==========================================================
  2125.   TSWFDataObject = class (TSWFObject)
  2126.   public
  2127.     constructor Create; virtual;
  2128.     destructor Destroy; override;
  2129.     procedure Assign(Source: TBasedSWFObject); override;
  2130.     procedure CopyFrom(Source: TBasedSWFObject); override;
  2131.     property Data: TStream read GetData write SetData;
  2132.     property DataSize: Longint read FDataSize write SetDataSize;
  2133.     property OnDataWrite: TSWFTagEvent read FOnDataWrite write FOnDataWrite;
  2134.     property SelfDestroy: Boolean read FSelfDestroy write FSelfDestroy;
  2135.   end;
  2137.   TSWFDefineBinaryData = class (TSWFDataObject)
  2138.   public
  2139.     constructor Create; override;
  2140.     procedure Assign(Source: TBasedSWFObject); override;
  2141.     procedure ReadFromStream(be: TBitsEngine); override;
  2142.     procedure WriteTagBody(be: TBitsEngine); override;
  2143. {$IFDEF XMLSupport}
  2144.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2145.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2146. {$ENDIF}
  2147.     property CharacterID: word read FCharacterID write FCharacterID;
  2148.   end;
  2150.   TSWFImageTag = class (TSWFDataObject)
  2151.   public
  2152.     procedure Assign(Source: TBasedSWFObject); override;
  2153.     property CharacterID: Word read FCharacterID write FCharacterID;
  2154.   end;
  2156.   TSWFDefineBits = class (TSWFImageTag)
  2157.   public
  2158.     constructor Create; override;
  2159.     procedure ReadFromStream(be: TBitsEngine); override;
  2160.     procedure WriteTagBody(be: TBitsEngine); override;
  2161. {$IFDEF XMLSupport}
  2162.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2163.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2164. {$ENDIF}
  2165.   end;
  2167.   TSWFJPEGTables = class (TSWFDataObject)
  2168.   public
  2169.     constructor Create; override;
  2170.     procedure ReadFromStream(be: TBitsEngine); override;
  2171.     procedure WriteTagBody(be: TBitsEngine); override;
  2172. {$IFDEF XMLSupport}
  2173.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2174.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2175. {$ENDIF}
  2176.   end;
  2178.   TSWFDefineBitsJPEG2 = class (TSWFDefineBits)
  2179.   public
  2180.     constructor Create; override;
  2181.     function MinVersion: Byte; override;
  2182.     procedure WriteTagBody(be: TBitsEngine); override;
  2183.   end;
  2185.   TSWFDefineBitsJPEG3 = class (TSWFDefineBitsJPEG2)
  2186.   public
  2187.     constructor Create; override;
  2188.     destructor Destroy; override;
  2189.     procedure Assign(Source: TBasedSWFObject); override;
  2190.     procedure CopyFrom(Source: TBasedSWFObject); override;
  2191.     function MinVersion: Byte; override;
  2192.     procedure ReadFromStream(be: TBitsEngine); override;
  2193.     procedure WriteTagBody(be: TBitsEngine); override;
  2194. {$IFDEF XMLSupport}
  2195.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2196.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2197. {$ENDIF}
  2198.     property AlphaData: TStream read GetAlphaData write SetAlphaData;
  2199.     property AlphaDataSize: LongInt read FAlphaDataSize write FAlphaDataSize;
  2200.     property OnAlphaDataWrite: TSWFTagEvent read FOnAlphaDataWrite write FOnAlphaDataWrite;
  2201.     property SelfAlphaDestroy: Boolean read FSelfAlphaDestroy write FSelfAlphaDestroy;
  2202.   end;
  2204.   TSWFDefineBitsLossless = class (TSWFImageTag)
  2205.   public
  2206.     constructor Create; override;
  2207.     procedure Assign(Source: TBasedSWFObject); override;
  2208.     function MinVersion: Byte; override;
  2209.     procedure ReadFromStream(be: TBitsEngine); override;
  2210.     procedure WriteTagBody(be: TBitsEngine); override;
  2211. {$IFDEF XMLSupport}
  2212.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2213.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2214. {$ENDIF}
  2215.     property BitmapColorTableSize: Byte read FBitmapColorTableSize write FBitmapColorTableSize;
  2216.     property BitmapFormat: Byte read FBitmapFormat write FBitmapFormat;
  2217.     property BitmapHeight: Word read FBitmapHeight write FBitmapHeight;
  2218.     property BitmapWidth: Word read FBitmapWidth write FBitmapWidth;
  2219.   end;
  2221.   TSWFDefineBitsLossless2 = class (TSWFDefineBitsLossless)
  2222.   public
  2223.     constructor Create; override;
  2224.     function MinVersion: Byte; override;
  2225.   end;
  2228. // ==========================================================
  2229. //                      Morphing
  2230. // ==========================================================
  2231.  TSWFMorphGradientRec = record
  2232.    StartColor,
  2233.    EndColor: recRGBA;
  2234.    StartRatio,
  2235.    EndRatio: byte;
  2236.  end;
  2238.   TSWFMorphLineStyle = class (TObject)
  2239.   public
  2240.     constructor Create; virtual;
  2241.     destructor Destroy; override;
  2242.     procedure Assign(Source: TSWFMorphLineStyle);
  2243.     procedure ReadFromStream(be: TBitsEngine); virtual;
  2244.     procedure WriteToStream(be: TBitsEngine); virtual;
  2245. {$IFDEF XMLSupport}
  2246.     procedure ReadFromXMLNode(Node: IXMLNode); virtual;
  2247.     procedure WriteToXMLNode(Node: IXMLNode); virtual;
  2248. {$ENDIF}
  2249.     property EndColor: TSWFRGBA read FEndColor;
  2250.     property EndWidth: Word read FEndWidth write FEndWidth;
  2251.     property StartColor: TSWFRGBA read FStartColor;
  2252.     property StartWidth: Word read FStartWidth write FStartWidth;
  2253.   end;
  2255.   TSWFMorphLineStyle2 = class (TSWFMorphLineStyle)
  2256.   public
  2257.    destructor Destroy; override;
  2258.    function GetFillStyle(style: integer): TSWFFillStyle;
  2259.    procedure ReadFromStream(be: TBitsEngine); override;
  2260.    procedure WriteToStream(be: TBitsEngine); override;
  2261. {$IFDEF XMLSupport}
  2262.     procedure ReadFromXMLNode(Node: IXMLNode); override;
  2263.     procedure WriteToXMLNode(Node: IXMLNode); override;
  2264. {$ENDIF}
  2265.    property EndCapStyle: byte read FEndCapStyle write FEndCapStyle;
  2266.    property HasFillFlag: Boolean read FHasFillFlag write FHasFillFlag;
  2267.    property JoinStyle: byte read FJoinStyle write FJoinStyle;
  2268.    property MiterLimitFactor: single read FMiterLimitFactor write
  2269.        FMiterLimitFactor;
  2270.    property NoClose: Boolean read FNoClose write FNoClose;
  2271.    property NoHScaleFlag: Boolean read FNoHScaleFlag write FNoHScaleFlag;
  2272.    property NoVScaleFlag: Boolean read FNoVScaleFlag write FNoVScaleFlag;
  2273.    property PixelHintingFlag: Boolean read FPixelHintingFlag write
  2274.        FPixelHintingFlag;
  2275.    property StartCapStyle: byte read FStartCapStyle write FStartCapStyle;
  2276.   end;
  2278.   TSWFMorphFillStyle = class (TObject)
  2279.   public
  2280.     procedure Assign(Source: TSWFMorphFillStyle); virtual; abstract;
  2281.     procedure ReadFromStream(be: TBitsEngine); virtual; abstract;
  2282.     procedure WriteToStream(be: TBitsEngine); virtual; abstract;
  2283. {$IFDEF XMLSupport}
  2284.     procedure ReadFromXMLNode(Node: IXMLNode); virtual; abstract;
  2285.     procedure WriteToXMLNode(Node: IXMLNode); virtual; abstract;
  2286. {$ENDIF}
  2287.     property SWFFillType: TSWFFillType read FSWFFillType write FSWFFillType;
  2288.   end;
  2290.   TSWFMorphColorFill = class (TSWFMorphFillStyle)
  2291.   public
  2292.     constructor Create;
  2293.     destructor Destroy; override;
  2294.     procedure Assign(Source: TSWFMorphFillStyle); override;
  2295.     procedure ReadFromStream(be: TBitsEngine); override;
  2296.     procedure WriteToStream(be: TBitsEngine); override;
  2297. {$IFDEF XMLSupport}
  2298.     procedure ReadFromXMLNode(Node: IXMLNode); override;
  2299.     procedure WriteToXMLNode(Node: IXMLNode); override;
  2300. {$ENDIF}
  2301.     property EndColor: TSWFRGBA read FEndColor;
  2302.     property StartColor: TSWFRGBA read FStartColor;
  2303.   end;
  2305.   TSWFMorphGradientFill = class (TSWFMorphFillStyle)
  2306.   public
  2307.     constructor Create; virtual;
  2308.     destructor Destroy; override;
  2309.     procedure Assign(Source: TSWFMorphFillStyle); override;
  2310.     procedure ReadFromStream(be: TBitsEngine); override;
  2311.     procedure WriteToStream(be: TBitsEngine); override;
  2312. {$IFDEF XMLSupport}
  2313.     procedure ReadFromXMLNode(Node: IXMLNode); override;
  2314.     procedure WriteToXMLNode(Node: IXMLNode); override;
  2315. {$ENDIF}
  2316.     property Count: Byte read FCount write FCount;
  2317.     property EndColor[Index: Integer]: TSWFRGBA read GetEndColor;
  2318.     property EndGradient[Index: byte]: TSWFGradientRec read GetEndGradient;
  2319.     property EndMatrix: TSWFMatrix read FEndMatrix;
  2320.     property EndRatio[Index: Integer]: Byte read GetEndRatio write SetEndRatio;
  2321.     property Gradient[Index: byte]: TSWFMorphGradientRec read GetGradient;
  2322.     property StartColor[Index: Integer]: TSWFRGBA read GetStartColor;
  2323.     property StartGradient[Index: byte]: TSWFGradientRec read GetStartGradient;
  2324.     property StartMatrix: TSWFMatrix read FStartMatrix;
  2325.     property StartRatio[Index: Integer]: Byte read GetStartRatio write SetStartRatio;
  2326.   end;
  2328.   TSWFMorphFocalGradientFill = class (TSWFMorphGradientFill)
  2329.   public
  2330.     constructor Create; override;
  2332.     procedure ReadFromStream(be: TBitsEngine); override;
  2333.     procedure WriteToStream(be: TBitsEngine); override;
  2334. {$IFDEF XMLSupport}
  2335.     procedure ReadFromXMLNode(Node: IXMLNode); override;
  2336.     procedure WriteToXMLNode(Node: IXMLNode); override;
  2337. {$ENDIF}
  2338.     property StartFocalPoint: single read GetStartFocalPoint write SetStartFocalPoint;
  2339.     property EndFocalPoint: single read GetEndFocalPoint write SetEndFocalPoint;
  2340.     property InterpolationMode;
  2341.     property SpreadMode;
  2342.   end;
  2344.   TSWFMorphImageFill = class (TSWFMorphFillStyle)
  2345.   public
  2346.     constructor Create;
  2347.     destructor Destroy; override;
  2348.     procedure Assign(Source: TSWFMorphFillStyle); override;
  2349.     procedure ReadFromStream(be: TBitsEngine); override;
  2350.     procedure WriteToStream(be: TBitsEngine); override;
  2351. {$IFDEF XMLSupport}
  2352.     procedure ReadFromXMLNode(Node: IXMLNode); override;
  2353.     procedure WriteToXMLNode(Node: IXMLNode); override;
  2354. {$ENDIF}
  2355.     property EndMatrix: TSWFMatrix read FEndMatrix;
  2356.     property ImageID: Word read FImageID write FImageID;
  2357.     property StartMatrix: TSWFMatrix read FStartMatrix;
  2358.   end;
  2360.   TSWFDefineMorphShape = class (TSWFObject)
  2361.   public
  2362.     constructor Create; virtual;
  2363.     destructor Destroy; override;
  2364.     procedure Assign(Source: TBasedSWFObject); override;
  2365.     function MinVersion: Byte; override;
  2366.     procedure ReadFromStream(be: TBitsEngine); override;
  2367.     procedure WriteTagBody(be: TBitsEngine); override;
  2368. {$IFDEF XMLSupport}
  2369.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2370.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2371. {$ENDIF}
  2372.     property CharacterID: Word read FCharacterID write FCharacterID;
  2373.     property EndBounds: TSWFRect read FEndBounds;
  2374.     property EndEdgeRecord[Index: Integer]: TSWFShapeRecord read GetEndEdgeRecord;
  2375.     property EndEdges: TObjectList read FEndEdges;
  2376.     property MorphFillStyles: TObjectList read FMorphFillStyles;
  2377.     property MorphLineStyles: TObjectList read FMorphLineStyles;
  2378.     property StartBounds: TSWFRect read FStartBounds;
  2379.     property StartEdgeRecord[Index: Integer]: TSWFShapeRecord read GetStartEdgeRecord;
  2380.     property StartEdges: TObjectList read FStartEdges;
  2381.   end;
  2383.   TSWFDefineMorphShape2 = class (TSWFDefineMorphShape)
  2384.   public
  2385.     constructor Create; override;
  2386.     destructor Destroy; override;
  2387.     procedure Assign(Source: TBasedSWFObject); override;
  2388.     property StartEdgeBounds: TSWFRect read FStartEdgeBounds;
  2389.     property EndEdgeBounds: TSWFRect read FEndEdgeBounds;
  2390.     property UsesNonScalingStrokes: Boolean read FUsesNonScalingStrokes write FUsesNonScalingStrokes;
  2391.     property UsesScalingStrokes: Boolean read FUsesScalingStrokes write FUsesScalingStrokes;
  2392.   end;
  2394. // ==========================================================
  2395. //                        TEXT
  2396. // ==========================================================
  2398.   TSWFDefineFont = class (TSWFObject)
  2399.   public
  2400.     constructor Create; virtual;
  2401.     destructor Destroy; override;
  2402.     procedure Assign(Source: TBasedSWFObject); override;
  2403.     procedure ReadFromStream(be: TBitsEngine); override;
  2404.     procedure WriteTagBody(be: TBitsEngine); override;
  2405. {$IFDEF XMLSupport}
  2406.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2407.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2408. {$ENDIF}
  2409.     property FontID: Word read FFontID write FFontID;
  2410.     property GlyphShapeTable: TObjectList read FGlyphShapeTable write FGlyphShapeTable;
  2411.   end;
  2413.   TSWFDefineFontInfo = class (TSWFObject)
  2414.   public
  2415.     constructor Create; virtual;
  2416.     destructor Destroy; override;
  2417.     procedure Assign(Source: TBasedSWFObject); override;
  2418.     procedure ReadFromStream(be: TBitsEngine); override;
  2419.     procedure WriteTagBody(be: TBitsEngine); override;
  2420. {$IFDEF XMLSupport}
  2421.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2422.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2423. {$ENDIF}
  2424.     property CodeTable: TList read FCodeTable;
  2425.     property FontFlagsANSI: Boolean read FFontFlagsANSI write FFontFlagsANSI;
  2426.     property FontFlagsBold: Boolean read FFontFlagsBold write FFontFlagsBold;
  2427.     property FontFlagsItalic: Boolean read FFontFlagsItalic write FFontFlagsItalic;
  2428.     property FontFlagsShiftJIS: Boolean read FFontFlagsShiftJIS write FFontFlagsShiftJIS;
  2429.     property FontFlagsSmallText: Boolean read FFontFlagsSmallText write FFontFlagsSmallText;
  2430.     property FontFlagsWideCodes: Boolean read FFontFlagsWideCodes write FFontFlagsWideCodes;
  2431.     property FontID: Word read FFontID write FFontID;
  2432.     property FontName: string read FFontName write FFontName;
  2433.     property SWFVersion: Byte read FSWFVersion write FSWFVersion;
  2434.   end;
  2436.   TSWFDefineFontInfo2 = class (TSWFDefineFontInfo)
  2437.   public
  2438.     constructor Create; override;
  2439.     procedure Assign(Source: TBasedSWFObject); override;
  2440.     function MinVersion: Byte; override;
  2441.     procedure ReadFromStream(be: TBitsEngine); override;
  2442. {$IFDEF XMLSupport}
  2443.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2444.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2445. {$ENDIF}
  2446.     procedure WriteTagBody(be: TBitsEngine); override;
  2447.     property LanguageCode: Byte read FLanguageCode write FLanguageCode;
  2448.   end;
  2450.   TSWFKerningRecord = class (TObject)
  2451.   public
  2452.     procedure Assign(source: TSWFKerningRecord);
  2453.     property FontKerningAdjustment: Integer read FFontKerningAdjustment write FFontKerningAdjustment;
  2454.     property FontKerningCode1: Word read FFontKerningCode1 write FFontKerningCode1;
  2455.     property FontKerningCode2: Word read FFontKerningCode2 write FFontKerningCode2;
  2456.   end;
  2458.   TSWFDefineFont2 = class (TSWFDefineFont)
  2459.   public
  2460.     constructor Create; override;
  2461.     destructor Destroy; override;
  2462.     procedure Assign(Source: TBasedSWFObject); override;
  2463.     function MinVersion: Byte; override;
  2464.     procedure ReadFromStream(be: TBitsEngine); override;
  2465.     procedure WriteTagBody(be: TBitsEngine); override;
  2466. {$IFDEF XMLSupport}
  2467.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2468.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2469. {$ENDIF}
  2470.     property CodeTable: TList read FCodeTable;
  2471.     property FontAdvanceTable: TList read FFontAdvanceTable;
  2472.     property FontAscent: Word read FFontAscent write FFontAscent;
  2473.     property FontBoundsTable: TObjectList read FFontBoundsTable;
  2474.     property FontDescent: Word read FFontDescent write FFontDescent;
  2475.     property FontFlagsANSI: Boolean read FFontFlagsANSI write FFontFlagsANSI;
  2476.     property FontFlagsBold: Boolean read FFontFlagsBold write FFontFlagsBold;
  2477.     property FontFlagsHasLayout: Boolean read FFontFlagsHasLayout write FFontFlagsHasLayout;
  2478.     property FontFlagsItalic: Boolean read FFontFlagsItalic write FFontFlagsItalic;
  2479.     property FontFlagsShiftJIS: Boolean read FFontFlagsShiftJIS write FFontFlagsShiftJIS;
  2480.     property FontFlagsSmallText: Boolean read FFontFlagsSmallText write FFontFlagsSmallText;
  2481.     property FontFlagsWideCodes: Boolean read FFontFlagsWideCodes write FFontFlagsWideCodes;
  2482.     property FontFlagsWideOffsets: Boolean read FFontFlagsWideOffsets write FFontFlagsWideOffsets;
  2483.     property FontKerningTable: TObjectList read GetFontKerningTable;
  2484.     property FontLeading: Word read FFontLeading write FFontLeading;
  2485.     property FontName: string read FFontName write FFontName;
  2486.     property KerningCount: Word read FKerningCount write FKerningCount;
  2487.     property LanguageCode: Byte read FLanguageCode write FLanguageCode;
  2488.     property SWFVersion: Byte read FSWFVersion write FSWFVersion;
  2489.   end;
  2491.   TSWFDefineFont3 = class (TSWFDefineFont2)
  2492.   public
  2493.     constructor Create; override;
  2494.     function MinVersion: Byte; override;
  2495.   end;
  2497.   TSWFZoneData = class (TObject)
  2498.   public
  2499.    property AlignmentCoordinate: word read FAlignmentCoordinate write
  2500.        FAlignmentCoordinate;
  2501.    property Range: word read FRange write FRange;
  2502.   end;
  2504.   TSWFZoneRecord = class (TObjectList)
  2505.   public
  2506.    procedure Assign(source: TSWFZoneRecord);
  2507.    function AddZoneData: TSWFZoneData;
  2508.    property NumZoneData: byte read FNumZoneData write FNumZoneData;
  2509.    property ZoneData[Index: Integer]: TSWFZoneData read GetZoneData;
  2510.    property ZoneMaskX: Boolean read FZoneMaskX write FZoneMaskX;
  2511.    property ZoneMaskY: Boolean read FZoneMaskY write FZoneMaskY;
  2512.   end;
  2514.   TSWFZoneTable = class (TObjectList)
  2515.   public
  2516.    function AddZoneRecord: TSWFZoneRecord;
  2517.    property ZoneRecord[Index: Integer]: TSWFZoneRecord read GetZoneRecord; default;
  2518.   end;
  2520.   TSWFDefineFontAlignZones = class (TSWFObject)
  2521.   public
  2522.     constructor Create;
  2523.     destructor Destroy; override;
  2524.     procedure Assign(Source: TBasedSWFObject); override;
  2525.     function MinVersion: Byte; override;
  2526.     procedure ReadFromStream(be: TBitsEngine); override;
  2527.     procedure WriteTagBody(be: TBitsEngine); override;
  2528. {$IFDEF XMLSupport}
  2529.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2530.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2531. {$ENDIF}
  2532.     property CSMTableHint: byte read FCSMTableHint write FCSMTableHint;
  2533.     property FontID: word read FFontID write FFontID;
  2534.     property ZoneTable: TSWFZoneTable read FZoneTable;
  2535.   end;
  2537.   TSWFDefineFontName = class (TSWFObject)
  2538.   public
  2539.     constructor Create;
  2540.     procedure Assign(Source: TBasedSWFObject); override;
  2541.     function MinVersion: Byte; override;
  2542.     procedure ReadFromStream(be: TBitsEngine); override;
  2543.     procedure WriteTagBody(be: TBitsEngine); override;
  2544. {$IFDEF XMLSupport}
  2545.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2546.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2547. {$ENDIF}
  2548.     property FontID: word read FFontID write FFontID;
  2549.     property FontName: string read FFontName write FFontName;
  2550.     property FontCopyright: string read FFontCopyright write FFontCopyright;
  2551.   end;
  2553.   TSWFGlyphEntry = class (TObject)
  2554.   public
  2555.     property GlyphAdvance: Integer read FGlyphAdvance write FGlyphAdvance;
  2556.     property GlyphIndex: Word read FGlyphIndex write FGlyphIndex;
  2557.   end;
  2559.   TSWFTextRecord = class (TObject)
  2560.   public
  2561.     constructor Create;
  2562.     destructor Destroy; override;
  2563.     procedure Assign(Source: TSWFTextRecord);
  2564.     procedure WriteToStream(be: TBitsEngine; gb, ab: byte);
  2565. {$IFDEF XMLSupport}
  2566.     procedure ReadFromXMLNode(Node: IXMLNode; var gb, ab: byte);
  2567.     procedure WriteToXMLNode(Node: IXMLNode);
  2568. {$ENDIF}
  2569.     property FontID: Word read FFontID write SetFontID;
  2570.     property GlyphEntries: TObjectList read FGlyphEntries;
  2571.     property GlyphEntry[Index: word]: TSWFGlyphEntry read GetGlyphEntry;
  2572.     property StyleFlagsHasColor: Boolean read FStyleFlagsHasColor write FStyleFlagsHasColor;
  2573.     property StyleFlagsHasFont: Boolean read FStyleFlagsHasFont write FStyleFlagsHasFont;
  2574.     property StyleFlagsHasXOffset: Boolean read FStyleFlagsHasXOffset write FStyleFlagsHasXOffset;
  2575.     property StyleFlagsHasYOffset: Boolean read FStyleFlagsHasYOffset write FStyleFlagsHasYOffset;
  2576.     property TextColor: TSWFRGBA read GetTextColor;
  2577.     property TextHeight: Word read FTextHeight write SetTextHeight;
  2578.     property XOffset: Integer read FXOffset write SetXOffset;
  2579.     property YOffset: Integer read FYOffset write SetYOffset;
  2580.   end;
  2582.   TSWFDefineText = class (TSWFObject)
  2583.   public
  2584.     constructor Create;
  2585.     destructor Destroy; override;
  2586.     procedure Assign(Source: TBasedSWFObject); override;
  2587.     procedure ReadFromStream(be: TBitsEngine); override;
  2588.     procedure WriteTagBody(be: TBitsEngine); override;
  2589. {$IFDEF XMLSupport}
  2590.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2591.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2592. {$ENDIF}
  2593.     property AdvanceBits: Byte read FAdvanceBits write FAdvanceBits;
  2594.     property CharacterID: Word read FCharacterID write FCharacterID;
  2595.     property GlyphBits: Byte read FGlyphBits write FGlyphBits;
  2596.     property hasAlpha: Boolean read FhasAlpha write FhasAlpha;
  2597.     property TextBounds: TSWFRect read FTextBounds;
  2598.     property TextMatrix: TSWFMatrix read FTextMatrix;
  2599.     property TextRecord[Index: Integer]: TSWFTextRecord read GetTextRecord;
  2600.     property TextRecords: TObjectList read FTextRecords;
  2601.   end;
  2603.   TSWFDefineText2 = class (TSWFDefineText)
  2604.   public
  2605.     constructor Create;
  2606.     function MinVersion: Byte; override;
  2607.   end;
  2609.   TSWFDefineEditText = class (TSWFObject)
  2610.   public
  2611.     constructor Create;
  2612.     destructor Destroy; override;
  2613.     procedure Assign(Source: TBasedSWFObject); override;
  2614.     function MinVersion: Byte; override;
  2615.     procedure ReadFromStream(be: TBitsEngine); override;
  2616.     procedure WriteTagBody(be: TBitsEngine); override;
  2617. {$IFDEF XMLSupport}
  2618.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2619.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2620. {$ENDIF}
  2621.     property Align: Byte read FAlign write FAlign;
  2622.     property AutoSize: Boolean read FAutoSize write FAutoSize;
  2623.     property Border: Boolean read FBorder write FBorder;
  2624.     property Bounds: TSWFRect read FBounds;
  2625.     property CharacterID: Word read FCharacterID write FCharacterID;
  2626.     property FontHeight: Word read FFontHeight write FFontHeight;
  2627.     property FontID: Word read FFontID write FFontID;
  2628.     property FontClass: string read FFontClass write FFontClass;
  2629.     property HasFont: Boolean read FHasFont write FHasFont;
  2630.     property HasFontClass: boolean read FHasFontClass write FHasFontClass;
  2631.     property HasLayout: Boolean read FHasLayout write FHasLayout;
  2632.     property HasMaxLength: Boolean read FHasMaxLength write FHasMaxLength;
  2633.     property HasText: Boolean read FHasText write FHasText;
  2634.     property HasTextColor: Boolean read FHasTextColor write FHasTextColor;
  2635.     property HTML: Boolean read FHTML write FHTML;
  2636.     property Indent: Word read FIndent write FIndent;
  2637.     property InitialText: AnsiString read FInitialText write FInitialText;
  2638.     property Leading: Word read FLeading write FLeading;
  2639.     property LeftMargin: Word read FLeftMargin write FLeftMargin;
  2640.     property MaxLength: Word read FMaxLength write FMaxLength;
  2641.     property Multiline: Boolean read FMultiline write FMultiline;
  2642.     property NoSelect: Boolean read FNoSelect write FNoSelect;
  2643.     property Password: Boolean read FPassword write FPassword;
  2644.     property ReadOnly: Boolean read FReadOnly write FReadOnly;
  2645.     property RightMargin: Word read FRightMargin write FRightMargin;
  2646.     property SWFVersion: Integer read FSWFVersion write FSWFVersion;
  2647.     property TextColor: TSWFRGBA read GetTextColor;
  2648.     property UseOutlines: Boolean read FUseOutlines write FUseOutlines;
  2649.     property VariableName: string read FVariableName write FVariableName;
  2650.     property WideInitialText: WideString read FWideInitialText write FWideInitialText;
  2651.     property WordWrap: Boolean read FWordWrap write FWordWrap;
  2652.   end;
  2654.   TSWFCSMTextSettings = class (TSWFObject)
  2655.   public
  2656.     constructor Create;
  2657.     destructor Destroy; override;
  2658.     procedure Assign(Source: TBasedSWFObject); override;
  2659.     function MinVersion: Byte; override;
  2660.     procedure ReadFromStream(be: TBitsEngine); override;
  2661.     procedure WriteTagBody(be: TBitsEngine); override;
  2662. {$IFDEF XMLSupport}
  2663.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2664.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2665. {$ENDIF}
  2666.     property GridFit: byte read FGridFit write FGridFit;
  2667.     property Sharpness: single read FSharpness write FSharpness;
  2668.     property TextID: word read FTextID write FTextID;
  2669.     property Thickness: single read FThickness write FThickness;
  2670.     property UseFlashType: byte read FUseFlashType write FUseFlashType;
  2671.   end;
  2673. // ===========================================================
  2674. //                         SOUND
  2675. // ===========================================================
  2677.   TSWFDefineSound = class (TSWFDataObject)
  2678.   public
  2679.     constructor Create; override;
  2680.     procedure Assign(Source: TBasedSWFObject); override;
  2681.     function MinVersion: Byte; override;
  2682.     procedure ReadFromStream(be: TBitsEngine); override;
  2683.     procedure WriteTagBody(be: TBitsEngine); override;
  2684. {$IFDEF XMLSupport}
  2685.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2686.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2687. {$ENDIF}
  2688.     property SeekSamples: Word read FSeekSamples write FSeekSamples;
  2689.     property SoundFormat: Byte read FSoundFormat write FSoundFormat;
  2690.     property SoundId: Word read FSoundId write FSoundId;
  2691.     property SoundRate: Byte read FSoundRate write FSoundRate;
  2692.     property SoundSampleCount: dword read FSoundSampleCount write FSoundSampleCount;
  2693.     property SoundSize: Boolean read FSoundSize write FSoundSize;
  2694.     property SoundType: Boolean read FSoundType write FSoundType;
  2695.   end;
  2697.   TSWFSoundEnvelope = class (TObject)
  2698.   public
  2699.     procedure Assign(Source: TSWFSoundEnvelope);
  2700.     property LeftLevel: Word read FLeftLevel write FLeftLevel;
  2701.     property Pos44: dword read FPos44 write FPos44;
  2702.     property RightLevel: Word read FRightLevel write FRightLevel;
  2703.   end;
  2705.   TSWFStartSound = class (TSWFObject)
  2706.   public
  2707.     constructor Create;
  2708.     destructor Destroy; override;
  2709.     procedure AddEnvelope(pos: dword; left, right: word);
  2710.     procedure Assign(Source: TBasedSWFObject); override;
  2711.     procedure ReadFromStream(be: TBitsEngine); override;
  2712.     procedure WriteTagBody(be: TBitsEngine); override;
  2713. {$IFDEF XMLSupport}
  2714.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2715.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2716. {$ENDIF}
  2717.     property HasEnvelope: Boolean read FHasEnvelope write FHasEnvelope;
  2718.     property HasInPoint: Boolean read FHasInPoint write FHasInPoint;
  2719.     property HasLoops: Boolean read FHasLoops write FHasLoops;
  2720.     property HasOutPoint: Boolean read FHasOutPoint write FHasOutPoint;
  2721.     property InPoint: dword read FInPoint write SetInPoint;
  2722.     property LoopCount: Word read FLoopCount write SetLoopCount;
  2723.     property OutPoint: dword read FOutPoint write SetOutPoint;
  2724.     property SoundEnvelopes: TObjectList read FSoundEnvelopes;
  2725.     property SoundId: Word read FSoundId write FSoundId;
  2726.     property SyncNoMultiple: Boolean read FSyncNoMultiple write FSyncNoMultiple;
  2727.     property SyncStop: Boolean read FSyncStop write FSyncStop;
  2728.   end;
  2730.   TSWFStartSound2 = class(TSWFStartSound)
  2731.   public
  2732.     constructor Create;
  2733.     function MinVersion: Byte; override;
  2734.     property SoundClassName;
  2735.   end;
  2737.   TSWFSoundStreamHead = class (TSWFObject)
  2738.   public
  2739.     constructor Create; virtual;
  2740.     procedure Assign(Source: TBasedSWFObject); override;
  2741.     function MinVersion: Byte; override;
  2742.     procedure ReadFromStream(be: TBitsEngine); override;
  2743.     procedure WriteTagBody(be: TBitsEngine); override;
  2744. {$IFDEF XMLSupport}
  2745.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2746.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2747. {$ENDIF}
  2748.     property LatencySeek: Integer read FLatencySeek write FLatencySeek;
  2749.     property PlaybackSoundRate: Byte read FPlaybackSoundRate write FPlaybackSoundRate;
  2750.     property PlaybackSoundSize: Boolean read FPlaybackSoundSize write FPlaybackSoundSize;
  2751.     property PlaybackSoundType: Boolean read FPlaybackSoundType write FPlaybackSoundType;
  2752.     property StreamSoundCompression: Byte read FStreamSoundCompression write FStreamSoundCompression;
  2753.     property StreamSoundRate: Byte read FStreamSoundRate write FStreamSoundRate;
  2754.     property StreamSoundSampleCount: Word read FStreamSoundSampleCount write FStreamSoundSampleCount;
  2755.     property StreamSoundSize: Boolean read FStreamSoundSize write FStreamSoundSize;
  2756.     property StreamSoundType: Boolean read FStreamSoundType write FStreamSoundType;
  2757.   end;
  2759.   TSWFSoundStreamHead2 = class (TSWFSoundStreamHead)
  2760.   public
  2761.     constructor Create; override;
  2762.     function MinVersion: Byte; override;
  2763.   end;
  2765.   TSWFSoundStreamBlock = class (TSWFDataObject)
  2766.   public
  2767.     constructor Create; override;
  2768.     procedure Assign(Source: TBasedSWFObject); override;
  2769.     procedure ReadFromStream(be: TBitsEngine); override;
  2770.     procedure WriteTagBody(be: TBitsEngine); override;
  2771. {$IFDEF XMLSupport}
  2772.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2773.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2774. {$ENDIF}
  2775.     property SampleCount: Word read FSampleCount write FSampleCount;
  2776.     property SeekSamples: SmallInt read FSeekSamples write FSeekSamples;
  2777.     property StreamSoundCompression: Byte read FStreamSoundCompression write FStreamSoundCompression;
  2778.   end;
  2781. // ==========================================================//
  2782. //                       Buttons                             //
  2783. // ==========================================================//
  2785.   TSWFButtonRecord = class (TObject)
  2786.   public
  2787.     constructor Create(ChID: word);
  2788.     destructor Destroy; override;
  2789.     procedure Assign(Source: TSWFButtonRecord);
  2790.     procedure WriteToStream(be: TBitsEngine);
  2791. {$IFDEF XMLSupport}
  2792.     procedure ReadFromXMLNode(Node: IXMLNode);
  2793.     procedure WriteToXMLNode(Node: IXMLNode);
  2794. {$ENDIF}
  2795.     property BlendMode: TSWFBlendMode read FBlendMode write FBlendMode;
  2796.     property ButtonHasBlendMode: Boolean read FButtonHasBlendMode write
  2797.         FButtonHasBlendMode;
  2798.     property ButtonHasFilterList: Boolean read FButtonHasFilterList write
  2799.         FButtonHasFilterList;
  2800.     property ButtonState: TSWFButtonStates read FButtonState write FButtonState;
  2801.     property CharacterID: Word read FCharacterID write FCharacterID;
  2802.     property ColorTransform: TSWFColorTransform read GetColorTransform;
  2803.     property Depth: Word read FDepth write FDepth;
  2804.     property hasColorTransform: Boolean read FhasColorTransform write FhasColorTransform;
  2805.     property Matrix: TSWFMatrix read GetMatrix;
  2806.     property FilterList: TSWFFilterList read GetFilterList;
  2807.   end;
  2809.   TSWFBasedButton = class (TSWFObject)
  2810.   public
  2811.     constructor Create; virtual;
  2812.     destructor Destroy; override;
  2813.     procedure Assign(Source: TBasedSWFObject); override;
  2814.     function MinVersion: Byte; override;
  2815.     property Actions: TSWFActionList read FActions;
  2816.     property ButtonId: Word read FButtonId write FButtonId;
  2817.     property ButtonRecord[index: integer]: TSWFButtonRecord read GetButtonRecord;
  2818.     property ButtonRecords: TObjectList read FButtonRecords;
  2819.     property ParseActions: Boolean read FParseActions write FParseActions;
  2820. {$IFDEF XMLSupport}
  2821.     property OnXMLReadAction: TSWFObjectXMLRWEvent read FOnXMLReadAction write FOnXMLReadAction;
  2822. {$ENDIF}
  2823.   end;
  2825.   TSWFDefineButton = class (TSWFBasedButton)
  2826.   public
  2827.     procedure Assign(Source: TBasedSWFObject); override;
  2828.     function MinVersion: Byte; override;
  2829.     procedure ReadFromStream(be: TBitsEngine); override;
  2830.     procedure WriteTagBody(be: TBitsEngine); override;
  2831. {$IFDEF XMLSupport}
  2832.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2833.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2834. {$ENDIF}
  2835.     property Action[Index: Integer]: TSWFAction read GetAction;
  2836.   end;
  2838.   TSWFButtonCondAction = class (TSWFActionList)
  2839.   public
  2840.     procedure Assign(Source: TSWFButtonCondAction);
  2841.     function Actions: TSWFActionList;
  2842.     procedure WriteToStream(be: TBitsEngine; isEnd:boolean);
  2843.     property ActionConditions: TSWFStateTransitions read FActionConditions write FActionConditions;
  2844.     property ID_Key: Byte read FID_Key write FID_Key;
  2845.   end;
  2847.   TSWFDefineButton2 = class (TSWFBasedButton)
  2848.   public
  2849.     constructor Create; override;
  2850.     procedure Assign(Source: TBasedSWFObject); override;
  2851.     function MinVersion: Byte; override;
  2852.     procedure ReadFromStream(be: TBitsEngine); override;
  2853.     procedure WriteTagBody(be: TBitsEngine); override;
  2854. {$IFDEF XMLSupport}
  2855.     procedure ReadEventActionsFromXML(Node: IXMLNode; Settings: TXMLReadWriteSettings);
  2856.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2857.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2858. {$ENDIF}
  2859.     property CondAction[Index: Integer]: TSWFButtonCondAction read GetCondAction;
  2860.     property TrackAsMenu: Boolean read FTrackAsMenu write FTrackAsMenu;
  2861.   end;
  2863.   TSWFDefineButtonSound = class (TSWFObject)
  2864.   public
  2865.     constructor Create;
  2866.     destructor Destroy; override;
  2867.     procedure Assign(Source: TBasedSWFObject); override;
  2868.     function MinVersion: Byte; override;
  2869.     procedure ReadFromStream(be: TBitsEngine); override;
  2870.     procedure WriteTagBody(be: TBitsEngine); override;
  2871. {$IFDEF XMLSupport}
  2872.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2873.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2874. {$ENDIF}
  2875.     property ButtonId: Word read FButtonId write FButtonId;
  2876.     property HasIdleToOverUp: Boolean read FHasIdleToOverUp write FHasIdleToOverUp;
  2877.     property HasOverDownToOverUp: Boolean read FHasOverDownToOverUp write FHasOverDownToOverUp;
  2878.     property HasOverUpToIdle: Boolean read FHasOverUpToIdle write FHasOverUpToIdle;
  2879.     property HasOverUpToOverDown: Boolean read FHasOverUpToOverDown write FHasOverUpToOverDown;
  2880.     property SndIdleToOverUp: TSWFStartSound read GetSndIdleToOverUp;
  2881.     property SndOverDownToOverUp: TSWFStartSound read GetSndOverDownToOverUp;
  2882.     property SndOverUpToIdle: TSWFStartSound read GetSndOverUpToIdle;
  2883.     property SndOverUpToOverDown: TSWFStartSound read GetSndOverUpToOverDown;
  2884.   end;
  2886.   TSWFDefineButtonCxform = class (TSWFObject)
  2887.   public
  2888.     constructor Create;
  2889.     destructor Destroy; override;
  2890.     procedure Assign(Source: TBasedSWFObject); override;
  2891.     function MinVersion: Byte; override;
  2892.     procedure ReadFromStream(be: TBitsEngine); override;
  2893.     procedure WriteTagBody(be: TBitsEngine); override;
  2894. {$IFDEF XMLSupport}
  2895.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2896.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2897. {$ENDIF}
  2898.     property ButtonColorTransform: TSWFColorTransform read FButtonColorTransform;
  2899.     property ButtonId: Word read FButtonId write FButtonId;
  2900.   end;
  2903. // ==========================================================//
  2904. //                       SPRITE                             //
  2905. // ==========================================================//
  2907.   TSWFDefineSprite = class (TSWFObject)
  2908.   public
  2909.     constructor Create;
  2910.     destructor Destroy; override;
  2911.     procedure Assign(Source: TBasedSWFObject); override;
  2912.     function MinVersion: Byte; override;
  2913.     procedure ReadFromStream(be: TBitsEngine); override;
  2914.     procedure WriteTagBody(be: TBitsEngine); override;
  2915. {$IFDEF XMLSupport}
  2916.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2917.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2918. {$ENDIF}
  2919.     property ControlTag[Index: word]: TSWFObject read GetControlTag;
  2920.     property ControlTags: TObjectList read FControlTags;
  2921.     property FrameCount: Word read FFrameCount write FFrameCount;
  2922.     property ParseActions: Boolean read FParseActions write FParseActions;
  2923.     property SpriteID: Word read FSpriteID write FSpriteID;
  2924.     property SWFVersion: Byte read FSWFVersion write FSWFVersion;
  2925.   end;
  2928.   TSWFDefineSceneAndFrameLabelData = class (TSWFObject)
  2929.   public
  2930.     constructor Create;
  2931.     destructor Destroy; override;
  2932.     procedure Assign(Source: TBasedSWFObject); override;
  2933.     function MinVersion: Byte; override;
  2934.     procedure ReadFromStream(be: TBitsEngine); override;
  2935.     procedure WriteTagBody(be: TBitsEngine); override;
  2936. {$IFDEF XMLSupport}
  2937.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2938.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2939. {$ENDIF}
  2940.     property FrameLabels: TStringList read FFrameLabels;
  2941.     property Scenes: TStringList read FScenes;
  2942.   end;
  2944. // ==========================================================//
  2945. //                       Video                               //
  2946. // ==========================================================//
  2947.   TSWFDefineVideoStream = class (TSWFObject)
  2948.   public
  2949.     constructor Create;
  2950.     procedure Assign(Source: TBasedSWFObject); override;
  2951.     function MinVersion: Byte; override;
  2952.     procedure ReadFromStream(be: TBitsEngine); override;
  2953.     procedure WriteTagBody(be: TBitsEngine); override;
  2954. {$IFDEF XMLSupport}
  2955.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2956.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2957. {$ENDIF}
  2958.     property CharacterID: Word read FCharacterID write FCharacterID;
  2959.     property CodecID: Byte read FCodecID write FCodecID;
  2960.     property Height: Word read FHeight write FHeight;
  2961.     property NumFrames: Word read FNumFrames write FNumFrames;
  2962.     property VideoFlagsDeblocking: Byte read FVideoFlagsDeblocking write FVideoFlagsDeblocking;
  2963.     property VideoFlagsSmoothing: Boolean read FVideoFlagsSmoothing write FVideoFlagsSmoothing;
  2964.     property Width: Word read FWidth write FWidth;
  2965.   end;
  2967.   TSWFVideoFrame = class (TSWFDataObject)
  2968.   public
  2969.     constructor Create; override;
  2970.     procedure Assign(Source: TBasedSWFObject); override;
  2971.     function MinVersion: Byte; override;
  2972.     procedure ReadFromStream(be: TBitsEngine); override;
  2973.     procedure WriteTagBody(be: TBitsEngine); override;
  2974. {$IFDEF XMLSupport}
  2975.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2976.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2977. {$ENDIF}
  2978.     property FrameNum: Word read FFrameNum write FFrameNum;
  2979.     property StreamID: Word read FStreamID write FStreamID;
  2980.   end;
  2982. // ================== undocumented tags ====================================
  2984.   TSWFByteCodeTag = class (TSWFDataObject)
  2985.   public
  2986.     constructor Create;  override;
  2987.     procedure ReadFromStream(be: TBitsEngine); override;
  2988.     procedure WriteTagBody(be: TBitsEngine); override;
  2989.     procedure WriteToStream(be: TBitsEngine); override;
  2990. {$IFDEF XMLSupport}
  2991.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2992.     procedure WriteToXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  2993. {$ENDIF}
  2994.     property ByteCode[Index: word]: Byte read GetByteCode;
  2995.     property TagIDFrom: Word read FTagIDFrom write FTagIDFrom;
  2996.     property Text: string read FText write FText;
  2997.   end;
  2999. // ==================== tools  ==============================
  3001. Function GenerateSWFObject(ID: word): TSWFObject;
  3002. Function GenerateSWFAction(ID: word): TSWFAction;
  3003. procedure CopyActionList(Source, Dest: TSWFActionList);
  3004. Procedure WriteCustomData(Dest: TStream; TagID: byte; data: pointer; Size: longint); overload;
  3005. Procedure WriteCustomData(Dest: TStream; TagID: byte; data: TStream; Size: longint = 0); overload;
  3006. procedure CopyShapeRecords(Source, Dest: TObjectList);
  3008. {$IFDEF XMLSupport}
  3009. procedure ReadLineStylesFromXML(Root:IXMLNode; LS: TObjectList; Alpha: boolean);
  3010. procedure ReadFillStylesFromXML(Root: IXMLNode; FS: TObjectList; Alpha: boolean);
  3011. procedure ReadActionListFromXML(Node: IXMLNode; AL: TSWFActionList; Settings: TXMLReadWriteSettings);
  3012. Procedure ReadMorphFillStylesFromXML(Root:IXMLNode; FS: TObjectList);
  3013. Procedure ReadMorphLineStylesFromXML(Root:IXMLNode; LS: TObjectList);
  3014. {$ENDIF}
  3016.  const
  3017.     noSupport = false;
  3019. implementation