teeflexcanvas.xfm

BCB第三方组件

object FlexOptions: TFlexOptions
  Left = 192
  Top = 107
  AutoScroll = False
  ClientHeight = 278
  ClientWidth = 323
  Color = clBtnFace
  ParentFont = True
  OldCreateOrder = True
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 56
    Width = 82
    Height = 13
    Caption = '&Temporary folder:'
    FocusControl = ETemp
  end
  object SpeedButton1: TSpeedButton
    Left = 282
    Top = 72
    Width = 23
    Height = 22
    Caption = '...'
    OnClick = SpeedButton1Click
  end
  object Label2: TLabel
    Left = 16
    Top = 104
    Width = 135
    Height = 13
    Caption = 'Path to Adobe &Flex compiler:'
    FocusControl = EFlex
  end
  object SpeedButton2: TSpeedButton
    Left = 282
    Top = 120
    Width = 23
    Height = 22
    Caption = '...'
    OnClick = SpeedButton2Click
  end
  object BCompile: TButton
    Left = 16
    Top = 16
    Width = 97
    Height = 25
    Caption = '&Compile...'
    Enabled = False
    TabOrder = 0
    OnClick = BCompileClick
  end
  object ETemp: TEdit
    Left = 16
    Top = 72
    Width = 265
    Height = 21
    TabOrder = 1
    OnChange = ETempChange
  end
  object EFlex: TEdit
    Left = 16
    Top = 120
    Width = 265
    Height = 21
    TabOrder = 2
    OnChange = EFlexChange
  end
  object CBPreview: TCheckBox
    Left = 128
    Top = 20
    Width = 177
    Height = 17
    Caption = '&Preview after compile'
    Checked = True
    State = cbChecked
    TabOrder = 3
  end
  object AC_OETags_js: TMemo
    Left = 144
    Top = 208
    Width = 81
    Height = 57
    Lines.Strings = (
      '// Flash Player Version Detection - Rev 1.5'
      '// Detect Client Browser type'
      
        '// Copyright(c) 2005-2006 Adobe Macromedia Software, LLC. All ri' +
        'ghts reserved.'
      
        'var isIE  = (navigator.appVersion.indexOf("MSIE") != -1) ? true ' +
        ': false;'
      
        'var isWin = (navigator.appVersion.toLowerCase().indexOf("win") !' +
        '= -1) ? true : false;'
      
        'var isOpera = (navigator.userAgent.indexOf("Opera") != -1) ? tru' +
        'e : false;'
      ''
      'function ControlVersion()'
      '{'
      #9'var version;'
      #9'var axo;'
      #9'var e;'
      ''
      
        #9'// NOTE : new ActiveXObject(strFoo) throws an exception if strF' +
        'oo isn'#39't in the registry'
      ''
      #9'try {'
      #9#9'// version will be set for 7.X or greater players'
      #9#9'axo = new ActiveXObject("ShockwaveFlash.ShockwaveFlash.7");'
      #9#9'version = axo.GetVariable("$version");'
      #9'} catch (e) {'
      #9'}'
      ''
      #9'if (!version)'
      #9'{'
      #9#9'try {'
      #9#9#9'// version will be set for 6.X players only'
      #9#9#9'axo = new ActiveXObject("ShockwaveFlash.ShockwaveFlash.6");'
      #9#9#9
      #9#9#9'// installed player is some revision of 6.0'
      
        #9#9#9'// GetVariable("$version") crashes for versions 6.0.22 throug' +
        'h 6.0.29,'
      #9#9#9'// so we have to be careful. '
      #9#9#9
      #9#9#9'// default to the first public version'
      #9#9#9'version = "WIN 6,0,21,0";'
      ''
      
        #9#9#9'// throws if AllowScripAccess does not exist (introduced in 6' +
        '.0r47)'#9#9
      #9#9#9'axo.AllowScriptAccess = "always";'
      ''
      #9#9#9'// safe to call for 6.0r47 or greater'
      #9#9#9'version = axo.GetVariable("$version");'
      ''
      #9#9'} catch (e) {'
      #9#9'}'
      #9'}'
      ''
      #9'if (!version)'
      #9'{'
      #9#9'try {'
      #9#9#9'// version will be set for 4.X or 5.X player'
      #9#9#9'axo = new ActiveXObject("ShockwaveFlash.ShockwaveFlash.3");'
      #9#9#9'version = axo.GetVariable("$version");'
      #9#9'} catch (e) {'
      #9#9'}'
      #9'}'
      ''
      #9'if (!version)'
      #9'{'
      #9#9'try {'
      #9#9#9'// version will be set for 3.X player'
      #9#9#9'axo = new ActiveXObject("ShockwaveFlash.ShockwaveFlash.3");'
      #9#9#9'version = "WIN 3,0,18,0";'
      #9#9'} catch (e) {'
      #9#9'}'
      #9'}'
      ''
      #9'if (!version)'
      #9'{'
      #9#9'try {'
      #9#9#9'// version will be set for 2.X player'
      #9#9#9'axo = new ActiveXObject("ShockwaveFlash.ShockwaveFlash");'
      #9#9#9'version = "WIN 2,0,0,11";'
      #9#9'} catch (e) {'
      #9#9#9'version = -1;'
      #9#9'}'
      #9'}'
      #9
      #9'return version;'
      '}'
      ''
      
        '// JavaScript helper required to detect Flash Player PlugIn vers' +
        'ion information'
      'function GetSwfVer(){'
      #9'// NS/Opera version >= 3 check for Flash plugin in plugin array'
      #9'var flashVer = -1;'
      #9
      
        #9'if (navigator.plugins != null && navigator.plugins.length > 0) ' +
        '{'
      
        #9#9'if (navigator.plugins["Shockwave Flash 2.0"] || navigator.plug' +
        'ins["Shockwave Flash"]) {'
      
        #9#9#9'var swVer2 = navigator.plugins["Shockwave Flash 2.0"] ? " 2.0' +
        '" : "";'
      
        #9#9#9'var flashDescription = navigator.plugins["Shockwave Flash" + ' +
        'swVer2].description;'#9#9#9
      #9#9#9'var descArray = flashDescription.split(" ");'
      #9#9#9'var tempArrayMajor = descArray[2].split(".");'
      #9#9#9'var versionMajor = tempArrayMajor[0];'
      #9#9#9'var versionMinor = tempArrayMajor[1];'
      #9#9#9'if ( descArray[3] != "" ) {'
      #9#9#9#9'tempArrayMinor = descArray[3].split("r");'
      #9#9#9'} else {'
      #9#9#9#9'tempArrayMinor = descArray[4].split("r");'
      #9#9#9'}'
      
        #9#9#9'var versionRevision = tempArrayMinor[1] > 0 ? tempArrayMinor[' +
        '1] : 0;'
      
        #9#9#9'var flashVer = versionMajor + "." + versionMinor + "." + vers' +
        'ionRevision;'
      #9#9'}'
      #9'}'
      #9'// MSN/WebTV 2.6 supports Flash 4'
      
        #9'else if (navigator.userAgent.toLowerCase().indexOf("webtv/2.6")' +
        ' != -1) flashVer = 4;'
      #9'// WebTV 2.5 supports Flash 3'
      
        #9'else if (navigator.userAgent.toLowerCase().indexOf("webtv/2.5")' +
        ' != -1) flashVer = 3;'
      #9'// older WebTV supports Flash 2'
      
        #9'else if (navigator.userAgent.toLowerCase().indexOf("webtv") != ' +
        '-1) flashVer = 2;'
      #9'else if ( isIE && isWin && !isOpera ) {'
      #9#9'flashVer = ControlVersion();'
      #9'}'#9
      #9'return flashVer;'
      '}'
      ''
      
        '// When called with reqMajorVer, reqMinorVer, reqRevision return' +
        's true if that version or greater is available'
      'function DetectFlashVer(reqMajorVer, reqMinorVer, reqRevision)'
      '{'
      #9'versionStr = GetSwfVer();'
      #9'if (versionStr == -1 ) {'
      #9#9'return false;'
      #9'} else if (versionStr != 0) {'
      #9#9'if(isIE && isWin && !isOpera) {'
      #9#9#9'// Given "WIN 2,0,0,11"'
      
        #9#9#9'tempArray         = versionStr.split(" "); '#9'// ["WIN", "2,0,0' +