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

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

Delphi控件源码

开发平台：

Delphi

flashobjects.int：源码内容
  1. //*******************************************************//
  2. //                                                       //
  3. //                      DelphiFlash.com                  //
  4. //         Copyright (c) 2004-2008 FeatherySoft, Inc.    //
  5. //                    info@delphiflash.com               //
  6. //                                                       //
  7. //*******************************************************//
  9. //  Description:  Level of Flash-objects
  10. //  Last update:  9 jun 2008
  11. {$I defines.inc}
  12. //{$Q-}
  14. unit FlashObjects;
  15. interface
  16.   uses Windows, Classes, Contnrs, Graphics, SysUtils,
  17.   {$IFDEF VARIANTS}
  18.        Variants,
  19.   {$ENDIF}
  20.   {$IFDEF DelphiJPEG}
  21.        JPEG,
  22.   {$ENDIF}
  23.        SWFConst, SWFObjects, SWFStreams, SWFTools,
  24.  {$IFDEF XMLSupport}
  25.        SWFStrings, XMLDoc, XMLIntf, SWFXMLTools, FlashXMLTools,
  26.  {$ENDIF}
  27.        SoundReader, ImageReader, FLV;
  29. type
  30.   TFlashMovie = class;
  32.   TFlashObject = class (TBasedSWFObject)
  33.   public
  34.     constructor Create(owner: TFlashMovie);
  35.     function LibraryLevel: Byte; override;
  36.     property Owner: TFlashMovie read FOwner write SetOwner;
  37.   end;
  39.   TFlashIDObject = class (TFlashObject)
  40.   public
  41.     procedure Assign(Source: TBasedSWFObject); override;
  42. {$IFDEF XMLSupport}
  43.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  44. {$ENDIF}
  45.     property CharacterId: Word read GetCharacterId write SetCharacterId;
  46.    end;
  48.   TFlashSound = class (TFlashIDObject)
  49.   public
  50.     constructor Create(owner: TFlashMovie; fn: string = '');
  51.     destructor Destroy; override;
  52.     procedure Assign(Source: TBasedSWFObject); override;
  53.     procedure FillHeader(SH: TSWFSoundStreamHead; fps: single);
  54.     procedure LoadSound(fn: string);
  55.     procedure LoadFromMemory(Src: TMemoryStream; isMP3: boolean);
  56.     function MinVersion: Byte; override;
  57. {$IFDEF XMLSupport}
  58.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  59. {$ENDIF}
  60.     function StartSound: TSWFStartSound;
  61.     procedure WriteSoundBlock(BE: TBitsEngine);
  62.     procedure WriteSoundData(sender: TSWFObject; BE: TBitsEngine);
  63.     procedure WriteToStream(be: TBitsEngine); override;
  64.     property AutoLoop: Boolean read FAutoLoop write FAutoLoop;
  65.     property Duration: Double read FDuration write FDuration;
  66.     property MP3Info: TMP3Info read FMP3Info write FMP3Info;
  67.     property recomendSampleCount: Word read FrecomendSampleCount write FrecomendSampleCount;
  68.     property SampleCount: dword read FSampleCount write FSampleCount;
  69.     property SamplesPerSec: Word read FSamplesPerSec;
  70.     property sndFormat: Byte read FsndFormat write FsndFormat;
  71.     property sndRate: Byte read FsndRate write FsndRate;
  72.     property StartFrame: Word read FStartFrame write FStartFrame;
  73.     property Stereo: Boolean read FStereo write FStereo;
  74.     property _16Bit: Boolean read F_16Bit write F_16Bit;
  75.     property WaveCompressBits: byte read FWaveCompressBits write SetWaveCompressBits;
  76.   end;
  78. // =================== TFlashImage  ========================
  79.   TFlashImage = class;
  80.   TLoadCustomImageProc = procedure (sender: TFlashImage; FileName: string);
  81.   TLoadCustomImageEvent = procedure (sender: TFlashImage; FileName: string; var Default: boolean) of object;
  82.   TImageDataState = (dsNoInit, dsMemory, dsMemoryBMP, dsInitJPEG, dsMemoryJPEG, dsFileJPEG);
  84.   TFlashImage = class (TFlashIDObject)
  85.   public
  86.     constructor Create(owner: TFlashMovie; fn: string = '');
  87.     destructor Destroy; override;
  88.     procedure Assign(Source: TBasedSWFObject); override;
  89.     procedure CopyToStream(S: TStream);
  90.     procedure LoadAlphaDataFromFile(fn: string);
  91.     procedure LoadAlphaDataFromHandle(HBMP: HBitmap);
  92.     procedure LoadAlphaDataFromStream(S: TStream);
  93.     procedure LoadDataFromFile(fn: string);
  94.     procedure LoadDataFromHandle(HBMP: HBitmap);
  95.     procedure LoadDataFromNativeStream(S: TStream; JPG: boolean; Width, Height: integer); overload;
  96.     procedure LoadDataFromNativeStream(S: TStream; JPG: boolean; Width, Height: integer; BMPType, ColorCount: byte; HasAlpha: boolean); overload;
  97.     procedure LoadDataFromStream(S: TStream);
  98.     procedure MakeAlphaLayer(Alpha: byte = $FF);
  99.     procedure MakeDataFromBMP;
  100.     procedure FillBitsLossless(BL: TSWFDefineBitsLossless);
  101.     function MinVersion: Byte; override;
  102. {$IFDEF XMLSupport}
  103.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  104. {$ENDIF}
  105.     procedure SetAlphaColor(Color: recRGBA);
  106.     procedure SetAlphaIndex(Index, Alpha: byte);
  107.     procedure WriteAlphaData(sender: TSWFObject; BE: TBitsEngine);
  108.     procedure WriteData(sender: TSWFObject; BE: TBitsEngine);
  109.     procedure WriteToStream(be: TBitsEngine); override;
  110.     property AlphaData: TMemoryStream read GetAlphaData;
  111.     property AlphaPixel[X, Y: Integer]: Byte read GetAlphaPixel write SetAlphaPixel;
  112.     property AsJPEG: Boolean read FAsJPEG write SetAsJPEG;
  113.     property BMPStorage: TBMPReader read GetBMPStorage;
  114.     property ColorCount: Integer read FColorCount;
  115.     property ConvertProgressiveJPEG: Boolean read FConvertProgressiveJPEG write SetConvertProgressiveJPEG;
  116.     property Data: TStream read GetData write SetData;
  117.     property DataState: TImageDataState read FDataState;
  118.     property FileName: string read FFileName write SetFileName;
  119.     property HasUseAlpha: Boolean read FHasUseAlpha write FHasUseAlpha;
  120.     property Height: Word read GetHeight;
  121.     property SaveWidth: Word read FSaveWidth;
  122.     property Width: Word read GetWidth;
  123.   end;
  125. // =================== TFlashActionScript ========================
  126.   TFlashActionScript = class (TFlashObject)
  127.   public
  128.     constructor Create(owner: TFlashMovie; A: TSWFActionList = nil);
  129.     destructor Destroy; override;
  130.     procedure Add;
  131.     procedure Add2;
  132.     procedure AsciiToChar;
  133.     procedure Assign(Source: TBasedSWFObject); override;
  134.     procedure BitAnd;
  135.     procedure BitLShift;
  136.     procedure BitOr;
  137.     procedure BitRShift;
  138.     procedure BitURShift;
  139.     procedure BitXor;
  140.     function ByteCode(const str: string): TSWFActionByteCode; overload;
  141.     function ByteCode(const AB: array of byte): TSWFActionByteCode; overload;
  142.     function ByteCode(Data: Pointer; Size: longint): TSWFActionByteCode; overload;
  143.     procedure Call;
  144.     procedure CallFunction;
  145.     procedure CallMethod;
  146.     procedure CastOp;
  147.     procedure CharToAscii;
  148.     procedure CloneSprite;
  149. {$IFDEF ASCompiler}
  150.     function Compile(src: TStrings): boolean; overload;
  151.     function Compile(src: TStream): boolean; overload;
  152.     function Compile(src: ansistring): boolean; overload;
  153.     function Compile(FileName: string; unicode: boolean): boolean; overload;
  154. {$ENDIF}
  155.     function ConstantPool(Consts: array of string): TSWFActionConstantPool; overload;
  156.     function ConstantPool(Consts: TStrings): TSWFActionConstantPool; overload;
  157.     procedure Decrement;
  158.     function DefineFunction(Name: string; Params: array of string): TSWFActionDefineFunction; overload;
  159.     function DefineFunction(Name: string; Params: TStrings): TSWFActionDefineFunction; overload;
  160.     function DefineFunction2(Name: string; Params: array of string; RegistersAllocate: byte): TSWFActionDefineFunction2; overload;
  161.     function DefineFunction2(Name: string; Params: TStrings; RegistersAllocate: byte): TSWFActionDefineFunction2; overload;
  162.     procedure DefineLocal;
  163.     procedure DefineLocal2;
  164.     procedure Delete;
  165.     procedure Delete2;
  166.     procedure Divide;
  167.     procedure EndDrag;
  168.     procedure Enumerate;
  169.     procedure Enumerate2;
  170.     procedure Equals;
  171.     procedure Equals2;
  172.     procedure Extends;
  173.     procedure FSCommand(command, param: string);
  174.     procedure FSCommand2(Args: TStrings); overload;  // for Flash Lite
  175.     procedure FSCommand2(Args: string); overload;
  176.     procedure FSCommand2(const Args: array of Variant); overload;
  177.     procedure GetMember;
  178.     procedure GetProperty; overload;
  179.     procedure GetProperty(targ: string; id: byte); overload;
  180.     procedure GetTime;
  181.     procedure GetUrl(const Url, Target: string);
  182.     procedure GetUrl2(TargetFlag, VariablesFlag: boolean; SendMethod: byte);
  183.     procedure GetVariable; overload;
  184.     procedure GetVariable(VarName: string); overload;
  185.     procedure GotoAndPlay(_Label: string); overload;
  186.     procedure GotoAndPlay(Frame: Word); overload;
  187.     procedure GotoAndStop(_Label: string); overload;
  188.     procedure GotoAndStop(Frame: Word); overload;
  189.     procedure GotoFrame(N: word);
  190.     procedure GotoFrame2(Play: boolean; SceneBias: word = 0);
  191.     procedure GoToLabel(FrameLabel: string);
  192.     procedure Greater;
  193.     procedure ImplementsOp;
  194.     procedure Increment;
  195.     procedure InitArray;
  196.     procedure InitObject;
  197.     procedure InstanceOf;
  198.     function Jump: TSWFActionJump;
  199.     procedure Less;
  200.     procedure Less2;
  201.     function LoadMovie(URL, Target: string; IsBrowserTarget: boolean = false; Method: byte = svmNone): TSWFActionGetUrl2;
  202.     function LoadMovieNum(URL: string; Level: word; Method: byte = svmNone): TSWFActionGetUrl2;
  203.     function LoadVariables(URL, Target: string; Method: byte = svmNone): TSWFActionGetUrl2;
  204.     function LoadVariablesNum(URL: string; Level: word; Method: byte = svmNone): TSWFActionGetUrl2;
  205.     procedure MBAsciiToChar;
  206.     procedure MBCharToAscii;
  207.     procedure MBStringExtract;
  208.     procedure MBStringLength;
  209.     function MinVersion: Byte; override;
  210.     procedure Modulo;
  211.     procedure Multiply;
  212.     procedure NewMethod;
  213.     procedure NewObject;
  214.     procedure NextFrame;
  215.     procedure Operation(op: string);
  216.     procedure Play;
  217.     procedure Pop;
  218.     procedure PreviousFrame;
  219.     function Push(const Args: array of Variant): TSWFActionPush; overload;
  220.     function Push(const Args: array of Variant; const Types: array of TSWFValueType): TSWFActionPush; overload;
  221.     function Push(Value: Variant): TSWFActionPush; overload;
  222.     procedure PushConstant(Value: word); overload;
  223.     procedure PushConstant(const Args: array of word); overload;
  224.     procedure PushDuplicate;
  225.     procedure PushRegister(const Args: array of Word); overload;
  226.     procedure PushRegister(Value: Word); overload;
  227.     procedure Random; overload;
  228.     procedure Random(max: dword); overload;
  229.     procedure Random(min, max: dword); overload;
  230.     procedure RandomNumber;
  231. {$IFDEF XMLSupport}
  232.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  233. {$ENDIF}
  234.     procedure RemoveSprite;
  235.     procedure Return;
  236.     procedure SetArray(const name: string; const Args: array of Variant; inSprite: boolean = false);
  237.     function SetMarker(M: TSWFOffsetMarker = nil; ToBack: boolean = false): TSWFOffsetMarker;
  238.     procedure SetMember;
  239.     procedure SetProperty; overload;
  240.     procedure SetProperty(targ: string; id: byte); overload;
  241.     procedure SetTarget(TargetName: string);
  242.     procedure SetTarget2;
  243.     procedure SetVar(VarName: string; Value: Variant; inSprite: boolean = false);
  244.     procedure SetVariable;
  245.     procedure StackSwap;
  246.     procedure StartDrag;
  247.     procedure Stop;
  248.     procedure StopSounds;
  249.     procedure StoreRegister(Num: byte);
  250.     procedure StrictEquals;
  251.     procedure StringAdd;
  252.     procedure StringEquals;
  253.     procedure StringExtract;
  254.     procedure StringGreater;
  255.     procedure StringLength;
  256.     procedure StringLess;
  257.     procedure Subtract;
  258.     procedure TargetPath;
  259.     procedure Throw;
  260.     procedure ToggleQuality;
  261.     procedure ToInteger;
  262.     procedure ToNumber;
  263.     procedure ToString;
  264.     procedure Trace;
  265.     procedure TypeOf;
  266.     procedure WaitForFrame(Frame: Word; SkipCount: Byte);
  267.     procedure WaitForFrame2;
  268.     procedure WriteToStream(be: TBitsEngine); override;
  269.     procedure _And;
  270.     function _If: TSWFActionIf;
  271.     procedure _Not;
  272.     procedure _Or;
  273.     function _Try: TSWFActionTry;
  274.     function _With: TSWFActionWith;
  275.     property Action[index: integer]: TSWFAction read GetAction;
  276.     property ActionList: TSWFActionList read FActionList;
  277.     property SelfDestroy: Boolean read FSelfDestroy write FSelfDestroy;
  278.   end;
  280.   TFlashVisualObject = class (TFlashIDObject)
  281.   public
  282.     procedure Assign(Source: TBasedSWFObject); override;
  283.     property IgnoreMovieSettings: Boolean read FIgnoreMovieSettings write FIgnoreMovieSettings;
  284.     property MultCoord: Byte read GetMultCoord;
  285.   end;
  288. // =================  Shapes ==================================
  290.   TFlashEdges = class (TObject)
  291.   public
  292.     constructor Create(List: TObjectList);
  293.     destructor Destroy; override;
  294. {$IFDEF XMLSupport}
  295.     procedure ReadFromXMLNode(Node: IXMLNode);
  296. {$ENDIF}
  297.     function AddChangeStyle: TSWFStyleChangeRecord;
  298.     procedure CloseAllConturs;
  299.     procedure CloseShape;
  300.     procedure CopyFrom(Source: TFlashEdges);
  301.     function CurveDelta(ControlX, ControlY, AnchorX, AnchorY: longint): TSWFCurvedEdgeRecord;
  302.     function CurveTo(ControlX, ControlY, AnchorX, AnchorY: longint): TSWFCurvedEdgeRecord;
  303.     function EndEdges: TSWFEndShapeRecord;
  304.     function GetBoundsRect: TRect;
  305.     function isClockWise: boolean;
  306.     function LineDelta(DX, DY: longint): TSWFStraightEdgeRecord;
  307.     function LineTo(X, Y: longint): TSWFStraightEdgeRecord; overload;
  308.     function LineTo(P: TPoint): TSWFStraightEdgeRecord; overload;
  309.     procedure MakeArc(XC, YC: longInt; RadiusX, RadiusY: longint; StartAngle, EndAngle: single; closed: boolean = true; clockwise: boolean = true); overload;
  310.     procedure MakeArc(XC, YC: longInt; Radius: longint; StartAngle, EndAngle: single; closed: boolean = true); overload;
  311.     procedure MakeCubicBezier(P1, P2, P3: TPoint; parts: byte = 4);
  312.     procedure MakeDiamond(W, H: longint);
  313.     procedure MakeEllipse(W, H: longint);
  314.     procedure MakeMirror(Horz, Vert: boolean);
  315.     procedure MakePie(Radius: longint; StartAngle, EndAngle: single); overload;
  316.     procedure MakePie(RadiusX, RadiusY: longint; StartAngle, EndAngle: single; clockwise: boolean = true); overload;
  317.     procedure MakePolyBezier(AP: array of TPoint; Start: TPoint);
  318.     procedure MakePolyline(AP: array of TPoint);
  319.     procedure MakeRectangle(W, H: longint);
  320.     procedure MakeRoundRect(W, H, R: longint); overload;
  321.     procedure MakeRoundRect(W, H, RX, RY: longint); overload;
  322.     procedure MakeStar(X, Y, R1, R2: longint; NumPoint: word; curve: boolean = false);
  323.     function MoveDelta(X, Y: longint): TSWFStyleChangeRecord;
  324.     function MoveTo(X, Y: longint): TSWFStyleChangeRecord;
  325.     procedure OffsetEdges(DX, DY: LongInt; UseSysCoord: boolean = true);
  326.     function StartNewStyle: TSWFStyleChangeRecord; overload;
  327.     function StartNewStyle(MoveToX, MoveToY: longint): TSWFStyleChangeRecord; overload;
  328.     property CurrentPos: TPoint read FCurrentPos;
  329.     property IgnoreMovieSettings: Boolean read FIgnoreMovieSettings write FIgnoreMovieSettings;
  330.     property LastStart: TPoint read FLastStart;
  331.     property MultCoord: Byte read GetMultCoord;
  332.     property OptimizeMode: boolean read FOptimizeMode write FOptimizeMode;
  333.   end;
  335.   TFlashLineStyle = class (TObject)
  336.   public
  337.     constructor Create;
  338.     destructor Destroy; override;
  339.     procedure SetStyle(A: array of byte);
  340.     property Count: Byte read GetCount write SetCount;
  341.     property Len[Index: Integer]: Byte read GetLen write SetLen; default;
  342.   end;
  344.   TFlashShape = class (TFlashVisualObject)
  345.   public
  346.     constructor Create(owner: TFlashMovie);
  347.     destructor Destroy; override;
  348.     function AddFillStyle(fill: TSWFFillStyle): TSWFFillStyle;
  349.     function AddLineStyle(outline: TSWFLineStyle = nil): TSWFLineStyle;
  350.     function AddChangeStyle: TSWFStyleChangeRecord;
  351.     procedure Assign(Source: TBasedSWFObject); override;
  352.     procedure CalcBounds;
  353.     procedure MakeMirror(Horz, Vert: boolean);
  354.     function MinVersion: Byte; override;
  355. {$IFDEF XMLSupport}
  356.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  357. {$ENDIF}
  358.     function SetImageFill(img: TFlashImage; mode: TFillImageMode; ScaleX: single = 1; ScaleY: single = 1):
  359.             TSWFImageFill;
  360.     function SetLinearGradient(Gradient: array of recRGBA; angle: single = 0): TSWFGradientFill; overload;
  361.     function SetLinearGradient(Gradient: array of TSWFGradientRec; angle: single = 0): TSWFGradientFill; overload;
  362.     function SetLinearGradient(C1, C2: recRGBA; angle: single = 0): TSWFGradientFill; overload;
  363.     function SetLineStyle(width: word; c: recRGB): TSWFLineStyle; overload;
  364.     function SetLineStyle(width: word; c: recRGBA): TSWFLineStyle; overload;
  365.     function SetAdvancedLineStyle(width: word; c: recRGBA; CapStyle: byte = 0; JoinStyle: byte = 0): TSWFLineStyle2;
  366.     function SetRadialGradient(Gradient: array of recRGBA; Xc, Yc: byte): TSWFGradientFill; overload;
  367.     function SetRadialGradient(C1, C2: recRGBA; Xc, Yc: byte): TSWFGradientFill; overload;
  368.     function SetFocalGradient(Gradient: array of recRGBA; FocalPoint: single;
  369.                InterpolationMode: TSWFInterpolationMode; SpreadMode: TSWFSpreadMode): TSWFFocalGradientFill; overload;
  370.     function SetFocalGradient(Color1, Color2: recRGBA; FocalPoint: single;
  371.                InterpolationMode: TSWFInterpolationMode; SpreadMode: TSWFSpreadMode): TSWFGradientFill; overload;
  372.     procedure SetShapeBound(XMin, YMin, XMax, YMax: integer);
  373.     function SetSolidColor(r, g, b, a: byte): TSWFColorFill; overload;
  374.     function SetSolidColor(c: recRGB): TSWFColorFill; overload;
  375.     function SetSolidColor(c: recRGBA): TSWFColorFill; overload;
  376.     procedure WriteToStream(be: TBitsEngine); override;
  377.     property Bounds: TSWFRect read FBounds;
  378.     property Edges: TFlashEdges read FEdges;
  379.     property ExtLineStyle: TFlashLineStyle read GetExtLineStyle;
  380.     property ExtLineTransparent: boolean read FExtLineTransparent write FExtLineTransparent;
  381.     property FillStyleLeft: Word read FFillStyleLeft write SetFillStyleLeft;
  382.     property FillStyleNum: Word read FFillStyleRight write SetFillStyleRight;
  383.     property FillStyleRight: Word read FFillStyleRight write SetFillStyleRight;
  384.     property HasExtLineStyle: Boolean read FHasExtLineStyle write FHasExtLineStyle;
  385.     property LineStyleNum: Word read FLineStyleNum write SetLineStyleNum;
  386.     property LineBgColor: TSWFRGBA read GetLineBgColor;
  387.     property StyleChangeMode: TStyleChangeMode read FStyleChangeMode write FStyleChangeMode;
  388.     property XCenter: LongInt read GetCenterX write SetCenterX;
  389.     property XMax: Integer read GetXMax write SetXMax;
  390.     property XMin: Integer read GetXMin write SetXMin;
  391.     property YCenter: LongInt read GetCenterY write SetCenterY;
  392.     property YMax: Integer read GetYMax write SetYMax;
  393.     property YMin: Integer read GetYMin write SetYMin;
  394.   end;
  396.   TFlashMorphShape = class (TFlashVisualObject)
  397.   public
  398.     constructor Create(owner: TFlashMovie);
  399.     destructor Destroy; override;
  400.     procedure AddFillStyle(fill: TSWFMorphFillStyle);
  401.     function AddLineStyle(outline: TSWFMorphLineStyle = nil): TSWFMorphLineStyle;
  402.     procedure Assign(Source: TBasedSWFObject); override;
  403.     function MinVersion: Byte; override;
  404. {$IFDEF XMLSupport}
  405.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  406. {$ENDIF}
  407.     procedure SetEndBound(XMin, YMin, XMax, YMax: integer);
  408.     function SetImageFill(img: TFlashImage; mode: TFillImageMode; StartScaleX: single = 1; StartScaleY: single = 1;
  409.                           EndScaleX: single = 1; EndScaleY: single = 1): TSWFMorphImageFill;
  410.     function SetLinearGradient(StartGradient, EndGradient: array of recRGBA; StartAngle: single = 0; EndAngle: single = 0):
  411.             TSWFMorphGradientFill; overload;
  412.     function SetLinearGradient(Gradient: array of TSWFMorphGradientRec; StartAngle: single = 0; EndAngle: single = 0):
  413.             TSWFMorphGradientFill; overload;
  414.     function SetLinearGradient(StartC1, StartC2, EndC1, EndC2: recRGBA; StartAngle: single = 0; EndAngle: single = 0):
  415.             TSWFMorphGradientFill; overload;
  416.     function SetLineStyle(StartWidth, EndWidth: word; StartColor, EndColor: recRGBA): TSWFMorphLineStyle;
  417.     function SetAdvancedLineStyle(StartWidth, EndWidth: word; StartColor, EndColor: recRGBA;
  418.                                   StartCapStyle: byte = 0; EndCapStyle: byte = 0;
  419.                                   JoinStyle: byte = 0): TSWFMorphLineStyle2;
  420.     function SetRadialGradient(StartGradient, EndGradient: array of recRGBA; StartXc, StartYc, EndXc, EndYc: byte):
  421.             TSWFMorphGradientFill; overload;
  422.     function SetRadialGradient(StartC1, StartC2, EndC1, EndC2: recRGBA; StartXc, StartYc, EndXc, EndYc: byte):
  423.             TSWFMorphGradientFill; overload;
  424.     function SetSolidColor(StartC, EndC: recRGBA): TSWFMorphColorFill;
  425.     procedure SetStartBound(XMin, YMin, XMax, YMax: integer);
  426.     procedure WriteToStream(be: TBitsEngine); override;
  427.     property EndEdges: TFlashEdges read FEndEdges;
  428.     property FillStyleLeft: Word read FFillStyleLeft write SetFillStyleLeft;
  429.     property FillStyleNum: Word read FFillStyleLeft write SetFillStyleleft;
  430.     property LineStyleNum: Word read FLineStyleNum write SetLineStyleNum;
  431.     property StartEdges: TFlashEdges read FStartEdges;
  432.     property XCenter: LongInt read GetCenterX write SetCenterX;
  433.     property YCenter: LongInt read GetCenterY write SetCenterY;
  434.   end;
  436.   TFlashPlaceObject = class (TFlashObject)
  437.   public
  438.     constructor Create(owner: TFlashMovie; VObject: TFlashVisualObject; depth: word); virtual;
  439.     destructor Destroy; override;
  440.     procedure Assign(Source: TBasedSWFObject); override;
  441.     function AddActionEvent(FE: TSWFClipEvents): TSWFClipActionRecord;
  442. {$IFDEF ASCompiler}
  443.     function CompileEvent(src: TStrings): boolean; overload;
  444.     function CompileEvent(src: TStream): boolean; overload;
  445.     function CompileEvent(src: string): boolean; overload;
  446.     function CompileEvent(FileName: string; unicode: boolean): boolean; overload;
  447. {$ENDIF}
  448.     function FindActionEvent(FE: TSWFClipEvent; CreateNoExist: boolean = true): TSWFClipActionRecord;
  449.     procedure InitColorTransform(hasADD: boolean; addR, addG, addB, addA: Smallint; hasMULT: boolean; multR, multG, multB,
  450.             multA: Smallint; hasAlpha: boolean);
  451.     function FindFilter(fid: TSWFFilterID): TSWFFilter;
  452.     function MinVersion: Byte; override;
  453.     function OnClick: TFlashActionScript;
  454.     function OnConstruct: TFlashActionScript;
  455.     function OnData: TFlashActionScript;
  456.     function OnDragOut: TFlashActionScript;
  457.     function OnDragOver: TFlashActionScript;
  458.     function OnEnterFrame: TFlashActionScript;
  459.     function OnInitialize: TFlashActionScript;
  460.     function OnKeyDown: TFlashActionScript;
  461.     function OnKeyPress(Key: byte = 0): TFlashActionScript;
  462.     function OnKeyUp: TFlashActionScript;
  463.     function OnLoad: TFlashActionScript;
  464.     function OnMouseDown: TFlashActionScript;
  465.     function OnMouseMove: TFlashActionScript;
  466.     function OnMouseUp: TFlashActionScript;
  467.     function OnPress: TFlashActionScript;
  468.     function OnRelease: TFlashActionScript;
  469.     function OnReleaseOutside: TFlashActionScript;
  470.     function OnRollOut: TFlashActionScript;
  471.     function OnRollOver: TFlashActionScript;
  472.     function OnUnload: TFlashActionScript;
  473.     procedure SetPosition(X, Y: longint);
  474.     procedure SetRotate(angle: single);
  475.     procedure SetScale(ScaleX, ScaleY: single);
  476.     procedure SetSkew(SkewX, SkewY: single);
  477.     procedure SetTranslate(X, Y: longint);
  478. {$IFDEF XMLSupport}
  479.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  480. {$ENDIF}
  481.     procedure WriteToStream(be: TBitsEngine); override;
  482.     property AdjustColor: TSWFColorMatrixFilter read GetColorMatrixFilter;
  483.     property Bevel: TSWFBevelFilter read GetBevelFilter;
  484.     property BlendMode: TSWFBlendMode read GetBlendMode write SetBlendMode;
  485.     property Blur: TSWFBlurFilter read GetBlurFilter;
  486.     property CharacterID: Word read GetCharacterID write SetCharacterID;
  487.     property ClipDepth: Word read GetClipDepth write SetClipDepth;
  488.     property ColorTransform: TSWFColorTransform read GetColorTransform;
  489.     property ColorMatrix: TSWFColorMatrixFilter read GetColorMatrixFilter;
  490.     property Convolution: TSWFConvolutionFilter read GetConvolutionFilter;
  491.     property Depth: Word read GetDepth write SetDepth;
  492.     property FilterList: TSWFFilterList read GetFilterList;
  493.     property GradientBevel: TSWFGradientBevelFilter read GetGradientBevelFilter;
  494.     property GradientGlow: TSWFGradientGlowFilter read GetGradientGlowFilter;
  495.     property Glow: TSWFGlowFilter read GetGlowFilter;
  496.     property Matrix: TSWFMatrix read GetMatrix;
  497.     property Name: string read GetName write SetName;
  498.     property Ratio: Word read GetRatio write SetRatio;
  499.     property RemoveDepth: Boolean read GetRemoveDepth write SetRemoveDepth;
  500.     property Shadow: TSWFDropShadowFilter read GetShadowFilter;
  501.     property TranslateX: LongInt read GetTranslateX write SetTranslateX;
  502.     property TranslateY: LongInt read GetTranslateY write SetTranslateY;
  503.     property UseBitmapCaching: Boolean read GetUseBitmapCaching write
  504.         SetUseBitmapCaching;
  505.     property VisualObject: TFlashVisualObject read FVisualObject write FVisualObject;
  506.   end;
  508. TFlashPlaceVideo = class;
  509. // =================== TFlashVideo  ========================
  511.   TWriteFrameInfo = record
  512.     Frame: Word;
  513.     ID: Word;
  514.     Depth: Word;
  515.   end;
  517.   TWriteFrame = procedure (be:TBitsEngine; P: TWriteFrameInfo) of object;
  518.   TPlaceFrame = procedure (be:TBitsEngine; P: TWriteFrameInfo; Ob: TFlashPlaceObject) of object;
  519.   TVideoHeader = record
  520.     Signature: array [0..2] of byte;
  521.     Version: Byte;
  522.     TypeFlag: Byte;
  523.     CodecInfo: Byte;
  524.     DataOffset: LongInt;
  525.     XDim: LongInt;
  526.     YDim: LongInt;
  527.     Frames: LongInt;
  528.   end;
  530.   TFlashVideo = class (TFlashVisualObject)
  531.   public
  532.     constructor Create(owner: TFlashMovie; FileName: string); overload;
  533.     constructor Create(owner: TFlashMovie; Source: TStream); overload;
  534.     destructor Destroy; override;
  535.     procedure Assign(Source: TBasedSWFObject); override;
  536.     function MinVersion: Byte; override;
  537. {$IFDEF XMLSupport}
  538.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  539. {$ENDIF}
  540.     procedure WriteToStream(be: TBitsEngine); override;
  541.     property FLV: TFLVData read FFLV;
  542.     property Height: Word read GetHeight;
  543.     property OnPlaceFrame: TPlaceFrame read FPlaceFrame write FPlaceFrame;
  544.     property OnWriteFrame: TWriteFrame read FWriteFrame write FWriteFrame;
  545.     property Width: Word read GetWidth;
  546.   end;
  548. // =============  TFlashSprite  ======================
  550.   TFlashSprite = class (TFlashVisualObject)
  551.   public
  552.     constructor Create(owner: TFlashMovie); virtual;
  553.     destructor Destroy; override;
  554.     procedure Assign(Source: TBasedSWFObject); override;
  555.     function MinVersion: Byte; override;
  556.     function PlaceMorphShape(MS: TFlashMorphShape; Depth, NumFrame: word): TFlashPlaceObject;
  557.     function PlaceObject(shape: TFlashVisualObject; depth: word): TFlashPlaceObject; overload;
  558.     function PlaceObject(shape, mask: TFlashVisualObject; depth: word): TFlashPlaceObject; overload;
  559.     function PlaceObject(depth: word): TFlashPlaceObject; overload;
  560.     function PlaceVideo(F: TFlashVideo; depth: word): TFlashPlaceVideo;
  561. {$IFDEF XMLSupport}
  562.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  563. {$ENDIF}
  564.     procedure RemoveObject(depth: word; shape: TFlashVisualObject = nil);
  565.     procedure ShowFrame(c: word = 1);
  566.     function StartSound(snd: TFlashSound): TSWFStartSound; overload;
  567.     function StartSound(ID: word): TSWFStartSound; overload;
  568.     procedure StoreFrameActions;
  569.     procedure WriteToStream(be: TBitsEngine); override;
  570.     property BackgroundSound: TFlashSound read GetBackgrondSound;
  571.     property CurrentFrameNum: Integer read FCurrentFrameNum write SetCurrentFrameNum;
  572.     property EnableBGSound: Boolean read FEnableBGSound write FEnableBGSound;
  573.     property FrameActions: TFlashActionScript read GetFrameActions;
  574.     property FrameCount: Word read GetFrameCount write SetFrameCount;
  575.     property FrameLabel: string read FFrameLabel write FFrameLabel;
  576.     property InitActions: TFlashActionScript read GetInitActions;
  577.     property ObjectList: TObjectList read GetObjectList;
  578.     property Sprite: TSWFDefineSprite read FSprite;
  579.     property MaxDepth: word read FMaxDepth;
  580.     property VideoList[Index: Integer]: TFlashPlaceVideo read GetVideoList;
  581.     property VideoListCount: Integer read GetVideoListCount;
  582.   end;
  584.  TFlashMovieClip = TFlashSprite;
  586.   TFlashPlaceVideo = class (TFlashPlaceObject)
  587.   public
  588.     constructor Create(owner: TFlashMovie; video: TFlashVisualObject; depth: word); override;
  589.     destructor Destroy; override;
  590.     procedure Assign(Source: TBasedSWFObject); override;
  591.     function MinVersion: Byte; override;
  592. {$IFDEF XMLSupport}
  593.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  594. {$ENDIF}
  595.     procedure WriteToStream(be: TBitsEngine; Frame:Word);
  596.     property AutoReplay: Boolean read FAutoReplay write FAutoReplay;
  597.     property CharacterID: Word read GetCharacterID;
  598.     property EnableSound: Boolean read FEnableSound write SetEnableSound;
  599.     property OnPlaceFrame: TPlaceFrame read FPlaceFrame write FPlaceFrame;
  600.     property OnWriteFrame: TWriteFrame read FWriteFrame write FWriteFrame;
  601.     property SpriteParent: TFlashSprite read FSpriteParent write FSpriteParent;
  602.     property StartFrame: Word read FStartFrame write FStartFrame;
  603.     property Video: TFlashVideo read GetVideo;
  604.   end;
  606. // =================  Text =========================
  607.   TFlashChar = class (TObject)
  608.   public
  609.     constructor Create(code: word; wide: boolean);
  610.     destructor Destroy; override;
  611.     procedure Assign(Source: TObject);
  612.     property Code: Word read FCode write SetCode;
  613.     property Edges: TFlashEdges read FEdges;
  614.     property GlyphAdvance: Integer read FGlyphAdvance write FGlyphAdvance;
  615.     property IsUsed: boolean read FIsUsed write FIsUsed;
  616.     property isWide: Boolean read FWide;
  617.     property Kerning: TSWFKerningRecord read FKerning write FKerning;
  618.     property ListEdges: TObjectList read FListEdges;
  619.     property ShapeInit: Boolean read FShapeInit write FShapeInit;
  620.     property WideCode: Word read FWideCode;
  621.   end;
  623.   TFontUsing = set of (fuStaticText, fuDynamicText);
  625.   TFlashFont = class (TFlashIDObject)
  626.   public
  627.     constructor Create(owner: TFlashMovie); overload;
  628.     constructor Create(owner: TFlashMovie; asDevice: boolean; Name: string; bold, italic: boolean; size: word); overload;
  629.     destructor Destroy; override;
  630.     procedure AddChars(s: ansistring); overload;
  631.     procedure AddChars(chset: TCharSets); overload;
  632. {$IFNDEF VER130}
  633.     procedure AddChars(s: WideString); overload;
  634. {$ENDIF}
  635.     procedure AddChars(min, max: word); overload;
  636.     procedure AddCharsW(s: WideString);
  637.     function AddEmpty(Ch: word): Boolean;
  638.     procedure Assign(Source: TBasedSWFObject); override;
  639.     function CalcMetric(V: longint): LongInt;
  640.     procedure FillCharsInfo;
  641.     function GetTextExtentPoint(s: string): TSize; overload;
  642. {$IFNDEF VER130}
  643.     function GetTextExtentPoint(s: WideString): TSize; overload;
  644. {$ENDIF}
  645.     function GetTextExtentPointW(s: WideString): TSize;
  646.     procedure LoadFromSWFObject(Src: TSWFDefineFont2);
  647.     procedure LoadFromSWFFile(FileName: string);
  648.     procedure LoadFromSWFStream(src: TStream);
  649.     function MinVersion: Byte; override;
  650. {$IFDEF XMLSupport}
  651.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  652. {$ENDIF}
  653.     procedure WriteToStream(be: TBitsEngine); override;
  654.     property AntiAlias: Boolean read GetAntiAlias write SetAntiAlias;
  655.     property Ascent: Word read FAscent write FAscent;
  656.     property AsDevice: Boolean read FAsDevice write FAsDevice;
  657.     property Bold: Boolean read FBold write FBold;
  658.     property CharInfo[Code: Integer]: TFlashChar read GetCharInfo;
  659.     property CharInfoInd[Index: Integer]: TFlashChar read GetCharInfoInd;
  660.     property CharList: TObjectList read GetCharList;
  661.     property Descent: Word read FDescent write FDescent;
  662.     property EncodingType: Byte read FEncodingType write FEncodingType;
  663.     property FontCharset: Byte read FFontCharset write SetFontCharset;
  664.     property FontInfo: TLogFont read FFontInfo write SetFontInfo;
  665.     property FontUsing: TFontUsing read FUsing write FUsing;
  666.     property IncludeKerning: Boolean read FIncludeKerning write FIncludeKerning;
  667.     property Italic: Boolean read FItalic write FItalic;
  668.     property LanguageCode: Byte read FLanguageCode write FLanguageCode;
  669.     property Layout: Boolean read FHasLayout write SetHasLayout;
  670.     property Leading: Word read FLeading write FLeading;
  671.     property Name: string read FName write FName;
  672.     property Size: Word read GetSize write SetSize;
  673.     property SmallText: Boolean read FSmallText write FSmallText;
  674.     property WideCodes: Boolean read GetWideCodes;
  675.   end;
  677.   TFlashCustomData = class (TFlashObject)
  678.   public
  679.     constructor Create(owner: TFlashMovie; FileName:string = ''); overload;
  680.     constructor Create(owner: TFlashMovie; S: TStream; Size: longint = 0); overload;
  681.     destructor Destroy; override;
  682.     procedure Assign(Source: TBasedSWFObject); override;
  683.     function MinVersion: Byte; override;
  684.     procedure WriteToStream(be: TBitsEngine); override;
  685.     property Data: TMemoryStream read FData;
  686.     property TagID: Integer read FTagID write FTagID;
  687.     property WriteHeader: Boolean read FWriteHeader write FWriteHeader;
  688.   end;
  690. // ******************* TFlashText ***********************
  692.   TFlashText = class (TFlashVisualObject)
  693.   public
  694.     constructor Create(owner: TFlashMovie; s: ansistring); overload;
  695.     constructor Create(owner: TFlashMovie; s: ansistring; c: recRGBA; f: TFlashFont; P: TPoint; Align: byte); overload;
  696.     constructor Create(owner: TFlashMovie; s: ansistring; c: recRGBA; f: TFlashFont; R: TRect); overload;
  697. {$IFNDEF VER130}
  698.     constructor Create(owner: TFlashMovie; s: WideString; c: recRGBA; f: TFlashFont; P: TPoint; Align: byte); overload;
  699.     constructor Create(owner: TFlashMovie; s: WideString; c: recRGBA; f: TFlashFont; R: TRect); overload;
  700. {$ENDIF}
  701.     constructor CreateW(owner: TFlashMovie; s: WideString; c: recRGBA; f: TFlashFont; P: TPoint; Align: byte); overload;
  702.     constructor CreateW(owner: TFlashMovie; s: WideString; c: recRGBA; f: TFlashFont; R: TRect); overload;
  703.     destructor Destroy; override;
  704.     procedure Assign(Source: TBasedSWFObject); override;
  705.     function GetTextExtentPoint: TSize;
  706.     function MinVersion: Byte; override;
  707. {$IFDEF XMLSupport}
  708.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  709. {$ENDIF}
  710.     procedure WriteToStream(be: TBitsEngine); override;
  711.     property Align: TSWFTextAlign read FAlign write SetAlign;
  712.     property AutoSize: Boolean read FAutoSize write FAutoSize;
  713.     property Border: Boolean read FBorder write FBorder;
  714.     property Bounds: TSWFRect read FBounds;
  715.     property CharSpacing: Integer read GetCharSpacing write SetCharSpacing;
  716.     property Color: TSWFRGBA read GetColor;
  717.     property DynamicText: Boolean read GetDynamicText write SetDynamicText;
  718.     property Font: TFlashFont read FFont write SetFont;
  719.     property HTML: Boolean read FHTML write SetHTML;
  720.     property Indent: Integer read GetIndent write SetIndent;
  721.     property Leading: Integer read GetLeading write SetLeading;
  722.     property LeftMargin: Integer read GetLeftMargin write SetLeftMargin;
  723.     property Matrix: TSWFMatrix read GetMatrix;
  724.     property MaxLength: Integer read FMaxLength write SetMaxLength;
  725.     property Multiline: Boolean read FMultiline write FMultiline;
  726.     property NoSelect: Boolean read FNoSelect write FNoSelect;
  727.     property Password: Boolean read FPassword write FPassword;
  728.     property ReadOnly: Boolean read FReadOnly write FReadOnly;
  729.     property RightMargin: Integer read GetRightMargin write SetRightMargin;
  730.     property Text: AnsiString read FText write SetText;
  731.     property TextHeight: Word read GetTextHeight write SetTextHeight;
  732.     property UseOutlines: Boolean read FUseOutlines write SetUseOutlines;
  733.     property VarName: AnsiString read FVarName write FVarName;
  734.     property WideText: WideString read FWideText write SetWideText;
  735.     property WordWrap: Boolean read FWordWrap write FWordWrap;
  736.   end;
  738. //==================  TFlashButton =======================
  740.  TFlashButtonEvent = (beRollOver, beRollOut, bePress, beRelease,
  741.                 beDragOver, beDragOut, beReleaseOutside, beMenuDragOver, beMenuDragOut);
  742.  TFlashButtonEvents = set of TFlashButtonEvent;
  744.   TFlashButton = class (TFlashVisualObject)
  745.   public
  746.     constructor Create(owner: TFlashMovie; hasmenu: boolean = false; advMode: boolean = true);
  747.     destructor Destroy; override;
  748.     function Actions: TFlashActionScript;
  749.     function AddCondAction(FE: TFlashButtonEvents): TSWFButtonCondAction;
  750.     function AddRecord(Shape: TFlashVisualObject; BS: TSWFButtonStates; depth: word = 1): TSWFButtonRecord; overload;
  751.     function AddRecord(Sprite: TFlashSprite; BS: TSWFButtonStates; depth: word = 1): TSWFButtonRecord; overload;
  752.     function AddRecord(ID: Word; BS: TSWFButtonStates; depth: word = 1): TSWFButtonRecord; overload;
  753.     procedure Assign(Source: TBasedSWFObject); override;
  754. {$IFDEF ASCompiler}
  755.     function CompileEvent(src: TStrings): boolean; overload;
  756.     function CompileEvent(src: TStream): boolean; overload;
  757.     function CompileEvent(src: string): boolean; overload;
  758.     function CompileEvent(FileName: string; unicode: boolean): boolean; overload;
  759. {$ENDIF}
  760.     function FindActionEvent(FE: TFlashButtonEvent; CreateNoExist: boolean = true): TSWFActionList;
  761.     function MinVersion: Byte; override;
  762.     function OnClickActions: TFlashActionScript;
  763.     function OnDragOutActions: TFlashActionScript;
  764.     function OnDragOverActions: TFlashActionScript;
  765.     function OnMenuDragOutActions: TFlashActionScript;
  766.     function OnMenuDragOverActions: TFlashActionScript;
  767.     function OnPressActions: TFlashActionScript;
  768.     function OnReleaseActions: TFlashActionScript;
  769.     function OnReleaseOutsideActions: TFlashActionScript;
  770.     function OnRollOutActions: TFlashActionScript;
  771.     function OnRollOverActions: TFlashActionScript;
  772. {$IFDEF XMLSupport}
  773.     procedure ReadFromXMLNode(Node: IXMLNode; Settings: TXMLReadWriteSettings); override;
  774. {$ENDIF}
  775.     function SndPress: TSWFStartSound;
  776.     function SndRelease: TSWFStartSound;
  777.     function SndRollOut: TSWFStartSound;
  778.     function SndRollOver: TSWFStartSound;
  779.     procedure WriteToStream(be: TBitsEngine); override;
  780.   end;
  782.   TFlashCanvas = class;
  784.   TSpriteManagerType = (csDefault, csMetaFile, csClipp, csWorldTransform, csPath, csText, csDC);
  785.   TGDIDrawMode = (dmNormal, dmPath);
  787. // ---------------- TMetaFont ----------------------
  788. //  TMetaFont = class (TObject)
  789. //  protected
  790. //    FFlashFont: TFlashFont;
  791. //    FFMFont: TFont;
  792. //    FFontPresent: Boolean;
  793. //    FInfo: TExtLogFontW;
  794. //    FMColor: recRGBA;
  795. //    FTextMetric: TTextMetricW;
  796. //  public
  797. //    procedure GetMetrixFont;
  798. //    procedure ReadFontParam(Ft: TLogFontW);
  799. //    procedure WriteFontParam(Ft: TFlashFont);
  800. //    property FlashFont: TFlashFont read FFlashFont write FFlashFont;
  801. //    property FMFont: TFont read FFMFont write FFMFont;
  802. //    property FontPresent: Boolean write FFontPresent;
  803. //    property Info: TExtLogFontW read FInfo write FInfo;
  804. //  end;
  805. // ================  Flash CANVAS  ===================
  807.   TFSpriteCanvas = class (TFlashSprite)
  808.   public
  809.     constructor Create(owner: TFlashMovie); override;
  810.     property Parent: TFSpriteCanvas read FParent write FParent;
  811.   end;
  813.   TRenderOptions = set of (roUseBuffer, roHiQualityBuffer, roOptimization);
  815.   TFlashCanvas = class(TCanvas)
  816.   public
  817.     constructor Create(Owner: TFlashMovie);
  818.     destructor Destroy; override;
  820.     function isNeedBuffer: boolean;
  822.     procedure Clear;
  823.     procedure DrawMetafile(Dest: TRect; MF: TMetafile; stretch: boolean);
  824.     procedure Draw(X, Y: Integer; Graphic: TGraphic);
  825.     procedure StretchDraw(const R: TRect; Graphic: TGraphic);
  826.     function Place(depth: word; clear: boolean = true; dest: TFlashSprite = nil): TFlashPlaceObject;
  828.     property RootSprite: TFlashSprite read GetRootSprite;
  829.     property EmbeddedFont: Boolean read FEmbeddedFont write FEmbeddedFont;
  830.     property Owner: TFlashMovie read FOwner write FOwner;
  831.     property RenderOptions: TRenderOptions read FRenderOptions write FRenderOptions;
  832.   end;
  834. // ================  TFlashObjectList  ===================
  835.   TFlashObjectList = class (TObject)
  836.   public
  837.     constructor Create;
  838.     destructor Destroy; override;
  839.     procedure Add(Obj: TFlashIDObject);
  840.     property Count: Word read GetCount;
  841.   end;
  843.   TFlashButtonList = class (TFlashObjectList)
  844.   public
  845.     function GetFromID(ID: word): TFlashButton;
  846.     function Last: TFlashButton;
  847.     property Button[Index: word]: TFlashButton read GetButton; default;
  848.   end;
  850.   TFlashFontList = class (TFlashObjectList)
  851.   public
  852.     function GetFromID(ID: word): TFlashFont;
  853.     function FindByFont(F: TFont; CompareSize: boolean): TFlashFont;
  854.     function Last: TFlashFont;
  855.     property Font[Index: word]: TFlashFont read GetFont; default;
  856.   end;
  858.   TFlashImageList = class (TFlashObjectList)
  859.   public
  860.     function GetFromID(ID: word): TFlashImage;
  861.     function Last: TFlashImage;
  862.     property Image[Index: word]: TFlashImage read GetImage; default;
  863.   end;
  865.   TFlashMorphShapeList = class (TFlashObjectList)
  866.   public
  867.     function GetFromID(ID: word): TFlashMorphShape;
  868.     function Last: TFlashMorphShape;
  869.     property Shape[Index: word]: TFlashMorphShape read GetShape; default;
  870.   end;
  872.   TFlashShapeList = class (TFlashObjectList)
  873.   public
  874.     function GetFromID(ID: word): TFlashShape;
  875.     function Last: TFlashShape;
  876.     property Shape[Index: word]: TFlashShape read GetShape; default;
  877.   end;
  879.   TFlashSoundList = class (TFlashObjectList)
  880.   public
  881.     function GetFromID(ID: word): TFlashSound;
  882.     function Last: TFlashSound;
  883.     property Sound[Index: word]: TFlashSound read GetSound; default;
  884.   end;
  886.   TFlashSpriteList = class (TFlashObjectList)
  887.   public
  888.     function GetFromID(ID: word): TFlashSprite;
  889.     function Last: TFlashSprite;
  890.     property Sprite[Index: word]: TFlashSprite read GetSprite; default;
  891.   end;
  893.   TFlashTextList = class (TFlashObjectList)
  894.   public
  895.     function GetFromID(ID: word): TFlashText;
  896.     function Last: TFlashText;
  897.     property Text[Index: word]: TFlashText read GetText; default;
  898.   end;
  900.   TFlashVideoList = class (TFlashObjectList)
  901.   public
  902.     function GetFromID(ID: word): TFlashVideo;
  903.     function Last: TFlashVideo;
  904.     property Video[Index: word]: TFlashVideo read GetVideo; default;
  905.   end;
  907.   TExternalIncludeMode = (eimRoot, eimResource, eimNoFrameRoot, eimSprite);
  908.   TFlashExternalMovie = class (TFlashIDObject)
  909.   public
  910.     constructor Create(owner: TFlashMovie; src: string); overload;
  911.     constructor Create(owner: TFlashMovie; src: TStream); overload;
  912.     destructor Destroy; override;
  913.     function IDObjectsCount: Word;
  914.     property RenameFontName: boolean read FRenameFontName write FRenameFontName;
  915.     procedure Renumber(start: word);
  916.     procedure WriteToStream(be: TBitsEngine); override;
  917.     property IncludeMode: TExternalIncludeMode read FIncludeMode write FIncludeMode;
  918.     property Reader: TSWFStreamReader read FReader;
  919.     property Sprite: TFlashSprite read FSprite;
  920.     property OnWriteTag: TSWFProcessTagEvent read FOnWriteTag write FOnWriteTag;
  921.   end;
  923. // ================  TFlashMovie  ========================
  924.  TBackgroundMode = (bmNone, bmColor);
  925.  TAddObjectMode = (amEnd, amCurrentFrame, amHomeCurrentFrame, amFromStartFrame);
  927.  TFlashFilterQuality = (fqLow, fqMedium, fqHigh);
  929.  TFlashFilterSettings = class(TObject)
  930.  public
  931.   constructor Create;
  932.   destructor Destroy; override;
  933.   property Angle: single read FAngle write FAngle;
  934.   property BlurX: Integer read FBlurX write FBlurX;
  935.   property BlurY: Integer read FBlurY write FBlurY;
  936.   property Brightness: Integer read FBrightness write FBrightness;
  937.   property Contrast: Integer read FContrast write FContrast;
  938.   property ShadowColor: TSWFRGBA read FShadowColor write FShadowColor;
  939.   property Distance: Integer read FDistance write FDistance;
  940.   property Knockout: Boolean read FKnockout write FKnockout;
  941.   property Quality: TFlashFilterQuality read FQuality write FQuality;
  942.   property GlowColor: TSWFRGBA read FGlowColor write FGlowColor;
  943.   property HideObject: Boolean read FHideObject write FHideObject;
  944.   property Hue: Integer read FHue write FHue;
  945.   property Inner: Boolean read FInner write FInner;
  946.   property OnTop: Boolean read FOnTop write FOnTop;
  947.   property Saturation: Integer read FSaturation write FSaturation;
  948.   property Strength: word read FStrength write FStrength;
  949.  end;
  951. {$IFDEF XMLSupport}
  952.   TFlashXMLNodeReadEvent = procedure (sender: TFlashMovie; Node: IXMLNode; var Default: boolean) of object;
  953. {$ENDIF}
  955. {$IFDEF ASCompiler}
  956.  TBaseCompileContext = class(TObject)
  957.   public
  958.     constructor Create(owner: TFlashMovie); virtual;
  960.     procedure LoadClassTable(ClassPath: string); virtual; abstract;
  961.     procedure AddIncludePath(IncludePath: string); virtual; abstract;
  963.     procedure CompileAction(
  964.       ASource: TStream;
  965.       ASwfCode: TFlashActionScript); overload; virtual; abstract;
  967.     procedure CompileAction(
  968.       ASource: TStream;
  969.       AFlashButton: TFlashButton); overload; virtual; abstract;
  971.     procedure CompileAction(
  972.       ASource: TStream;
  973.       APlaceObject: TFlashPlaceObject); overload; virtual; abstract;
  975.     property Movie: TFlashMovie read FMovie write FMovie;
  976.     property Listing: TStream read GetListing;
  977.   end;
  978. {$ENDIF}
  980.   TFlashMovie = class (TBasedSWFStream)
  981.   public
  982.     constructor Create(XMin, YMin, XMax, YMax: integer; fps: single; sc: TSWFSystemCoord = scTwips); override;
  983. {$IFDEF XMLSupport}
  984.     constructor CreateFromXML(const FileName: string); overload;
  985.     constructor CreateFromXML(XML: IXMLDocument); overload;
  986.     function LoadFromXML(XML: IXMLDocument; asNew: boolean): boolean; override;
  987. {$ENDIF}
  988.     destructor Destroy; override;
  989.     function AddArc(XCenter, YCenter, RadiusX, RadiusY: longint; StartAngle, EndAngle: single; closed: boolean = true):
  990.             TFlashShape; overload;
  991.     function AddArc(XCenter, YCenter, Radius: longint; StartAngle, EndAngle: single; closed: boolean = true): TFlashShape;
  992.             overload;
  993.     function AddButton(hasmenu: boolean = false; advMode: boolean = true): TFlashButton;
  994.     function AddCircle(XCenter, YCenter, Radius: integer): TFlashShape;
  995.     function AddCubicBezier(P0, P1, P2, P3: TPoint): TFlashShape;
  996.     function AddCurve(P1, P2, P3: TPoint): TFlashShape;
  997.     function AddDiamond(XMin, YMin, XMax, YMax: integer): TFlashShape;
  998.     function AddDynamicText(varname, init: ansistring; c: recRGBA; f: TFlashFont; R: TRect): TFlashText; overload;
  999. {$IFNDEF VER130}
  1000.     function AddDynamicText(varname: ansistring; init: WideString; c: recRGBA; f: TFlashFont; R: TRect): TFlashText; overload;
  1001. {$ENDIF}
  1002.     function AddDynamicTextW(varname: ansistring; init: WideString; c: recRGBA; f: TFlashFont; R: TRect): TFlashText;
  1003.     function AddEllipse(XMin, YMin, XMax, YMax: integer): TFlashShape; overload;
  1004.     function AddEllipse(R: TRect): TFlashShape; overload;
  1005.     function AddExternalMovie(src: string; IM: TExternalIncludeMode; autorenum: boolean = true): TFlashExternalMovie;
  1006.             overload;
  1007.     function AddExternalMovie(src: TStream; IM: TExternalIncludeMode; autorenum: boolean = true): TFlashExternalMovie;
  1008.             overload;
  1009.     function AddFont: TFlashFont; overload;
  1010.     function AddFont(FontInfo: TFont; device: boolean = true): TFlashFont; overload;
  1011.     function AddFont(LogFont: TLogFont; device: boolean = true): TFlashFont; overload;
  1012.     function AddFont(Name: string; bold, italic: boolean; size: integer; device: boolean = true): TFlashFont; overload;
  1013.     procedure AddIDObject(Obj: TFlashIDObject; SetID: boolean = true);
  1014.     function AddImage(fn: string = ''): TFlashImage;
  1015.     function AddLine(X1, Y1, X2, Y2: longint): TFlashShape;
  1016.     function AddMorphShape(shape: TFlashMorphShape = nil): TFlashMorphShape;
  1017.     function AddPie(XCenter, YCenter, Radius: longint; StartAngle, EndAngle: single): TFlashShape; overload;
  1018.     function AddPie(XCenter, YCenter, RadiusX, RadiusY: longint; StartAngle, EndAngle: single): TFlashShape; overload;
  1019.     function AddPolygon(AP: array of TPoint): TFlashShape;
  1020.     function AddPolyline(AP: array of TPoint): TFlashShape;
  1021.     function AddRectangle(XMin, YMin, XMax, YMax: longint): TFlashShape; overload;
  1022.     function AddRectangle(R: TRect): TFlashShape; overload;
  1023.     function AddRing(XCenter, YCenter, Radius1, Radius2: integer): TFlashShape;
  1024.     function AddRoundRect(XMin, YMin, XMax, YMax, Radius: longint): TFlashShape; overload;
  1025.     function AddRoundRect(R: TRect; Radius: longint): TFlashShape; overload;
  1026.     function AddShape(shape: TFlashShape = nil): TFlashShape;
  1027.     function AddShapeImage(fn: string): TFlashShape; overload;
  1028.     function AddShapeImage(img: TFlashImage): TFlashShape; overload;
  1029.     function AddSound(fn: string): TFlashSound; overload;
  1030.     function AddSound(Src: TMemoryStream; isMP3: boolean): TFlashSound; overload;
  1031.     function AddSprite(VO: TFlashVisualObject = nil): TFlashSprite;
  1032.     function AddSquare(XMin, YMin, Side: integer): TFlashShape; overload;
  1033.     function AddSquare(XMin, YMin, XMax, YMax: integer): TFlashShape; overload;
  1034.     function AddStar(X, Y, R1, R2: longint; NumPoint: word; curve: boolean = false): TFlashShape;
  1035.     function AddText: TFlashText; overload;
  1036.     function AddText(s: ansistring; c: recRGBA; f: TFlashFont; P: TPoint; Align: TSWFTextAlign = taLeft): TFlashText; overload;
  1037.     function AddText(s: ansistring; c: recRGBA; f: TFlashFont; R: TRect): TFlashText; overload;
  1038. {$IFNDEF VER130}
  1039.     function AddText(s: WideString; c: recRGBA; f: TFlashFont; P: TPoint; Align: TSWFTextAlign = taLeft): TFlashText; overload;
  1040.     function AddText(s: WideString; c: recRGBA; f: TFlashFont; R: TRect): TFlashText; overload;
  1041. {$ENDIF}
  1042.     function AddTextW(s: WideString; c: recRGBA; f: TFlashFont; P: TPoint; Align: TSWFTextAlign = taLeft): TFlashText; overload;
  1043.     function AddTextW(s: WideString; c: recRGBA; f: TFlashFont; R: TRect): TFlashText; overload;
  1044.     function AddVideo(FileName: string): TFlashVideo;
  1045.     function AddVideoFromStream(MS: TMemoryStream): TFlashVideo;
  1046.     function CalcFramesCount: Word;
  1047.     procedure Clear;
  1048.     function ExportAssets(name: string; id: word): TSWFExportAssets; overload;
  1049.     function ExportAssets(name: string; Sprite: TFlashSprite): TSWFExportAssets; overload;
  1050.     function FindObjectFromID(ID: word): TFlashIDObject;
  1051.     function FramePos(num: word): longint; override;
  1052.     function GetMinVersion: Byte;
  1053.     function ImportAssets(filename: string): TSWFImportAssets; overload;
  1054.     function ImportAssets(URL, name: string): TSWFImportAssets; overload;
  1055.     procedure MakeStream; override;
  1056.     procedure MoveResource(ToFrame, StartFrom, EndFrom: integer); override;
  1057.     function PlaceObject(shape, mask: TFlashVisualObject; depth: word): TFlashPlaceObject; overload;
  1058.     function PlaceObject(shape: TFlashVisualObject; depth: word): TFlashPlaceObject; overload;
  1059.     function PlaceObject(depth: word): TFlashPlaceObject; overload;
  1060.     function PlaceVideo(F: TFlashVideo; depth: word): TFlashPlaceVideo;
  1061.     procedure RemoveObject(depth: word; shape: TFlashVisualObject = nil);
  1062.     procedure SetTabIndex(Depth, TabIndex: word);
  1063.     procedure ShowFrame(c: word = 1);
  1064.     function StartSound(snd: TFlashSound; Loop: word = 1): TSWFStartSound; overload;
  1065.     function StartSound(ID: word; Loop: word = 1): TSWFStartSound; overload;
  1066.     procedure StoreFrameActions;
  1067.     property AddObjectMode: TAddObjectMode read FAddObjectMode write SetAddObjectMode;
  1068. {$IFDEF ASCompiler}
  1069.     property ASCompiler: TBaseCompileContext read GetASCompiler write FASCompiler;
  1070.     property ASCompilerLog: TStream read GetASCompilerLog write FASCompilerLog;
  1071.     property ASCompilerOptions: TCompileOptions read FASCompilerOptions write SetCompilerOptions;
  1072. {$ENDIF}
  1073.     property BackgroundColor: TSWFRGB read GetBackgroundColor;
  1074.     property BackgroundMode: TBackgroundMode read FBackgroundMode write FBackgroundMode;
  1075.     property BackgroundSound: TFlashSound read GetBackgrondSound;
  1076.     property Buttons: TFlashButtonList read GetButtons;
  1077.     property Canvas: TFlashCanvas read GetCanvas;
  1078.     property CurrentObjID: Word read FCurrentObjID write FCurrentObjID;
  1079.     property CurrentFrameNum: Integer read FCurrentFrameNum write SetCurrentFrameNum;
  1080.     property CorrectImageFill: boolean read FCorrectImageFill write SetCorrectImageFill;
  1081.     property EnableBgSound: Boolean read FEnableBgSound write FEnableBgSound;
  1082.     property Fix32bitImage: boolean read FFix32bitImage write FFix32bitImage;
  1083.     property Fonts: TFlashFontList read GetFonts;
  1084.     property FrameActions: TFlashActionScript read GetFrameActions;
  1085.     property FrameLabel: string read FFrameLabel write FFrameLabel;
  1086.     property GlobalFilterSettings: TFlashFilterSettings read GetGlobalFilterSettings;
  1087.     property HasMetadata: boolean read GetHasMetadata write SetHasMetadata;
  1088.     property Images: TFlashImageList read GetImages;
  1089.     property MaxDepth: word read FMaxDepth;
  1090.     property MetaData: ansistring read FMetaData write SetMetadata;
  1091.     property MorphShapes: TFlashMorphShapeList read GetMorphShapes;
  1092.     property ObjectList: TObjectList read GetObjectList write SetObjectList;
  1093.     property Password: string read FPassword write SetPassword;
  1094.     property Protect: Boolean read FProtect write FProtect;
  1095.     property Shapes: TFlashShapeList read GetShapes;
  1096.     property Sounds: TFlashSoundList read GetSounds;
  1097.     property Sprites: TFlashSpriteList read GetSprites;
  1098.     property Texts: TFlashTextList read GetTexts;
  1099.     property VideoList[index: LongInt]: TFlashPlaceVideo read GetVideoStream;
  1100.     property VideoListCount: Integer read GetVideoListCount;
  1101.     property Videos: TFlashVideoList read GetVideos;
  1102.     property UseFileAttributes: boolean read FUseFileAttributes write SetUseFileAttributes;
  1103.     property UseNetwork: boolean read GetUseNetwork write SetUseNetwork;
  1104. {$IFDEF XMLSupport}
  1105.     property OnXMLNodeRead: TFlashXMLNodeReadEvent read FOnXMLNodeRead write FOnXMLNodeRead;
  1106. {$ENDIF}
  1107.     property OnLoadCustomImage: TLoadCustomImageEvent read FOnLoadCustomImage write FOnLoadCustomImage;
  1108.   end;
  1110. var
  1111.   LoadCustomImageProc: TLoadCustomImageProc = nil;
  1113. {$IFDEF XMLSupport}
  1114.   Function MakeSWFFromXML(XMLfile, SWFfile: string): boolean;
  1115. {$ENDIF}
  1117.  Procedure CreateEmptySWF(fn: string; bg: recRGB);
  1119. implementation