Apophysis-AV/Forms/ScriptForm.dfm

object ScriptEditor: TScriptEditor
  Left = 312
  Top = 383
  Caption = 'Script Editor'
  ClientHeight = 485
  ClientWidth = 583
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001001010000001002000680400001600000028000000100000002000
    0000010020000000000040040000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000006349
    35146349352E927A69FF8C7563FF87705EFF6349352E7F6654FF7A624FFF755D
    4AFF6349352E6E5441FF6A513EFF674E3AFF6349352E00000000000000006349
    352EAE9888FFEFE3DDFFF2E7E1FFEDDFD7FF836B59FFB79B8BFFDBBDADFFD9B7
    A6FF725946FFAE8B77FFD0A692FFCC9E87FF654B38FF6349352E00000000B7A2
    93FFFBF8F7FFF9F4F2FFF7F0ECFFF4EBE6FFF1E5DFFF7F6754FF7A624FFF765D
    4AFF735946FF6E5542FF6B523EFF674E3AFF654B38FF634935FF00000000B7A2
    93FFFDFCFBFFFBF9F7FFFAF5F2FFF7EFEDFFF4EAE6FFF2E5DFFFDDDCD7FFDFD7
    CEFFDECDC0FFDEC5B6FFDEBFACFFDBBAA6FFD8B5A3FF634935FF00000000B7A2
    93FFFFFFFFFFB47F65FFB47F64FFEDDDD5FFB37E63FFF4EBE6FFF1E5DFFFEFDF
    D7FFEBD9D1FFE8D3C9FFE5CDC1FFE1C6B9FFD6B3A1FF634A35FF00000000B9A4
    95FFFFFFFFFFFFFFFFFFFDFCFCFFFCF9F7FFFAF4F2FFF6F0ECFFF4EBE5FFF2E5
    DFFFEEDFD8FFEBD9D0FFE8D3C8FFE5CCC1FFDBBDADFF634A36FF00000000BDA7
    98FFFFFFFFFF968E88FFEEDED7FF968E87FFEDDDD6FF968D86FF958C85FFF4EB
    E6FFF2E5DFFFEFDFD8FFECD9D0FFE8D3C9FFE0C7BAFF634A35FF00000000C1AB
    9CFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFCFCFFFBF8F7FFFAF4F2FFF7F0
    ECFFF4EAE6FFF1E5DFFFEEDFD7FFEBD9D0FFE6D1C6FF634A35FF00000000C5AF
    A0FFFFFFFFFFB48065FFB48065FF968E88FFC2B0A3FF968E87FF968E86FFF9F4
    F2FFF7EFECFFF4EBE6FFF2E5DFFFEFDFD8FFEADBD1FF634936FF00000000C8B2
    A3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFCFCFFFCF8
    F7FFF9F5F2FFF7F0ECFFF4EBE6FFF1E5DFFFEEE2DAFF644A36FF00000000C9B4
    A5FFFFFFFFFFFFFFFFFF66A365FF66A365FF66A365FFC0B4ADFF66A365FF66A3
    65FF66A264FFFAF5F2FFF7F0ECFFF4EBE6FFEEE2DAFF644A36FF00000000C8B2
    A3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
    FFFFFEFCFBFFFBF9F7FFFAF4F2FFF7F0EDFFF3EAE4FF644A36FF00000000C8B2
    A3FFCAB4A5FFCBB5A6FFCAB4A5FFC9B3A4FFC7B2A3FFC6B0A1FFC3AE9FFFC1AC
    9DFFBFAA9BFFBDA899FFBBA697FFB9A495FFB8A394FFB7A293FF000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    0000FFFF00000003000000010000000100000001000000010000000100000001
    0000000100000001000000010000000100000001000000010000FFFF0000}
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 373
    Width = 583
    Height = 4
    Cursor = crVSplit
    Align = alBottom
  end
  object ToolBar: TToolBar
    Left = 560
    Top = 0
    Width = 23
    Height = 373
    Align = alRight
    AutoSize = True
    Caption = 'ToolBar'
    Images = MainForm.Buttons
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    object btnNew: TToolButton
      Left = 0
      Top = 0
      Hint = 'New'
      Caption = 'btnNew'
      ImageIndex = 0
      Wrap = True
      OnClick = btnNewClick
    end
    object btnOpen: TToolButton
      Left = 0
      Top = 22
      Hint = 'Open'
      Caption = 'btnOpen'
      ImageIndex = 1
      Wrap = True
      OnClick = btnOpenClick
    end
    object btnSave: TToolButton
      Left = 0
      Top = 44
      Hint = 'Save'
      Caption = 'btnSave'
      ImageIndex = 2
      Wrap = True
      OnClick = btnSaveClick
    end
    object btnFavorite: TToolButton
      Left = 0
      Top = 66
      Caption = 'Add to favorites'
      ImageIndex = 20
      Wrap = True
      OnClick = btnFavoriteClick
    end
    object btnRun: TToolButton
      Left = 0
      Top = 88
      Hint = 'Run'
      Caption = 'btnRun'
      ImageIndex = 43
      Wrap = True
      OnClick = btnRunClick
    end
    object btnStop: TToolButton
      Left = 0
      Top = 110
      Hint = 'Stop'
      Caption = 'btnStop'
      Enabled = False
      ImageIndex = 36
      Wrap = True
      OnClick = btnStopClick
    end
    object btnBreak: TToolButton
      Left = 0
      Top = 132
      Hint = 'Break'
      Enabled = False
      ImageIndex = 37
      Wrap = True
      OnClick = btnBreakClick
    end
    object btnPause: TToolButton
      Left = 0
      Top = 154
      Hint = 'Pause'
      Caption = 'Pause'
      Enabled = False
      ImageIndex = 47
      Wrap = True
      OnClick = btnPauseClick
    end
    object CodeButton: TToolButton
      Left = 0
      Top = 176
      Hint = 'Show code blocks | Show or hide a panel with code templates'
      Caption = 'Code Button'
      ImageIndex = 45
      OnClick = CodeButtonClick
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 466
    Width = 583
    Height = 19
    Hint = 'Press <Ctrl + Space> for automathic  code completition '
    Anchors = [akLeft, akRight]
    Panels = <>
    SimplePanel = True
    SimpleText = 'Press <Ctrl + Space> for automathic  code completition '
  end
  object BackPanel: TPanel
    Left = 123
    Top = 0
    Width = 437
    Height = 373
    Align = alClient
    AutoSize = True
    BevelInner = bvLowered
    BevelOuter = bvLowered
    Caption = 'BackPanel'
    TabOrder = 2
    object Editor: TScrMemo
      Left = 2
      Top = 2
      Width = 433
      Height = 369
      Cursor = crIBeam
      PopupMenu = PopupMenu
      ActiveLineSettings.ShowActiveLine = False
      ActiveLineSettings.ShowActiveLineIndicator = False
      ActiveLineSettings.ActiveLineTextColor = clWhite
      Align = alClient
      AutoCompletion.Delay = 300
      AutoCompletion.Font.Charset = DEFAULT_CHARSET
      AutoCompletion.Font.Color = clWindowText
      AutoCompletion.Font.Height = -11
      AutoCompletion.Font.Name = 'MS Sans Serif'
      AutoCompletion.Font.Style = []
      AutoCompletion.ColorProp = clGreen
      AutoCompletion.Height = 120
      AutoCompletion.StartToken = '.'
      AutoCompletion.Width = 400
      AutoCorrect.Active = True
      AutoCorrect.OldValue.Strings = (
        'GammaTreshold'
        'bedin'
        'linear3D'
        'gammatreshold'
        'gammaTreshold'
        'fan')
      AutoCorrect.NewValue.Strings = (
        'GammaThreshold'
        'begin'
        'linear'
        'GammaThreshold'
        'GammaThreshold'
        'fan2')
      AutoHintParameterPosition = hpBelowCode
      BlockColor = clGradientActiveCaption
      BookmarkGlyph.Data = {
        36050000424D3605000000000000360400002800000010000000100000000100
        0800000000000001000000000000000000000001000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
        A6000020400000206000002080000020A0000020C0000020E000004000000040
        20000040400000406000004080000040A0000040C0000040E000006000000060
        20000060400000606000006080000060A0000060C0000060E000008000000080
        20000080400000806000008080000080A0000080C0000080E00000A0000000A0
        200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0
        200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0
        200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000
        20004000400040006000400080004000A0004000C0004000E000402000004020
        20004020400040206000402080004020A0004020C0004020E000404000004040
        20004040400040406000404080004040A0004040C0004040E000406000004060
        20004060400040606000406080004060A0004060C0004060E000408000004080
        20004080400040806000408080004080A0004080C0004080E00040A0000040A0
        200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0
        200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0
        200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000
        20008000400080006000800080008000A0008000C0008000E000802000008020
        20008020400080206000802080008020A0008020C0008020E000804000008040
        20008040400080406000804080008040A0008040C0008040E000806000008060
        20008060400080606000806080008060A0008060C0008060E000808000008080
        20008080400080806000808080008080A0008080C0008080E00080A0000080A0
        200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0
        200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0
        200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000
        2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020
        2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040
        2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060
        2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080
        2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0
        2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0
        2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FDFD25252525
        2525252525252525FDFDFD2E25FFFFFFFFFFFFFFFFFFFF25FDFDFD2525252525
        2525252525252525FDFD9A9AB7B7B7B7B7B7B7B7B7B72525FDFDFD25B7B7B7B7
        B7B7B7B7B7B72525FDFD9A9AB7B7B7B7B7B7B7B7B7B72525FDFDFD25BFB7BFBF
        B7B7B7B7B7B72525FDFD9A9ABFBFBFB7BFBFB7B7B7B72525FDFDFD25BFBFBFBF
        BFB7BFBFB7B72525FDFD9A9ABFBFBFB7BFBFBFB7BFB72525FDFDFD25BFBFBFBF
        BFBFBFBFBFB72525FDFD9A9ABFBFBFBFBFB7BFBFB7B72525FDFDFD25BFBFBFBF
        BFBFBFBFBFB72525FDFD9A9ABFBFBFBFBFBFBFBFBFB725FDFDFDFD2525252525
        25252525252525FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFD}
      BorderColor = 16765615
      BorderStyle = bsNone
      ClipboardFormats = [cfText, cfRTF]
      CodeFolding.Enabled = True
      CodeFolding.LineColor = clTeal
      CodeFolding.ExpandGlyph.Data = {
        06050000424D060500000000000036040000280000000D0000000D0000000100
        080000000000D000000000000000000000000001000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
        A6000020400000206000002080000020A0000020C0000020E000004000000040
        20000040400000406000004080000040A0000040C0000040E000006000000060
        20000060400000606000006080000060A0000060C0000060E000008000000080
        20000080400000806000008080000080A0000080C0000080E00000A0000000A0
        200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0
        200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0
        200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000
        20004000400040006000400080004000A0004000C0004000E000402000004020
        20004020400040206000402080004020A0004020C0004020E000404000004040
        20004040400040406000404080004040A0004040C0004040E000406000004060
        20004060400040606000406080004060A0004060C0004060E000408000004080
        20004080400040806000408080004080A0004080C0004080E00040A0000040A0
        200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0
        200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0
        200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000
        20008000400080006000800080008000A0008000C0008000E000802000008020
        20008020400080206000802080008020A0008020C0008020E000804000008040
        20008040400080406000804080008040A0008040C0008040E000806000008060
        20008060400080606000806080008060A0008060C0008060E000808000008080
        20008080400080806000808080008080A0008080C0008080E00080A0000080A0
        200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0
        200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0
        200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000
        2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020
        2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040
        2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060
        2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080
        2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0
        2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0
        2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFF608080808
        0808080808F6FF000000F64049494949494949494940F60000000849F6F6F6F6
        FFF6F6F6F649F60000000849F6FFFF074907FFFFF649080000000849F6FFFF07
        0007FFFFF649080000000849F60707F740F70707F649080000000849FF490040
        40400049FF49080000000849F60707F740F70707F649080000000849F6FFFF07
        0007FFFFF649080000000849F6FFFF074907FFFFF649080000000849F6F6F6F6
        F6F6F6F6F64908000000F64049494949494949494940F6000000FFF6F6F6F6F6
        F6F6F6F6F6F6FF000000}
      CodeFolding.CollapsedGlyph.Data = {
        06050000424D060500000000000036040000280000000D0000000D0000000100
        080000000000D000000000000000000000000001000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
        A6000020400000206000002080000020A0000020C0000020E000004000000040
        20000040400000406000004080000040A0000040C0000040E000006000000060
        20000060400000606000006080000060A0000060C0000060E000008000000080
        20000080400000806000008080000080A0000080C0000080E00000A0000000A0
        200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0
        200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0
        200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000
        20004000400040006000400080004000A0004000C0004000E000402000004020
        20004020400040206000402080004020A0004020C0004020E000404000004040
        20004040400040406000404080004040A0004040C0004040E000406000004060
        20004060400040606000406080004060A0004060C0004060E000408000004080
        20004080400040806000408080004080A0004080C0004080E00040A0000040A0
        200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0
        200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0
        200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000
        20008000400080006000800080008000A0008000C0008000E000802000008020
        20008020400080206000802080008020A0008020C0008020E000804000008040
        20008040400080406000804080008040A0008040C0008040E000806000008060
        20008060400080606000806080008060A0008060C0008060E000808000008080
        20008080400080806000808080008080A0008080C0008080E00080A0000080A0
        200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0
        200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0
        200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000
        2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020
        2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040
        2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060
        2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080
        2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0
        2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0
        2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFF608080808
        0808080808F6FF000000F64049494949494949494940F60000000849F6F6F6F6
        F6F6F6F6F649F60000000849F6FFFFFFFFFFFFFFF649080000000849F6FFFFFF
        FFFFFFFFF649080000000849F607070707070707F649080000000849FF490000
        00000049FF49080000000849F607070707070707F649080000000849F6FFFFFF
        FFFFFFFFF649080000000849F6FFFFFFFFFFFFFFF649080000000849F6F6F6F6
        F6F6F6F6F64908000000F64049494949494949494940F6000000FFF6F6F6F6F6
        F6F6F6F6F6F6FF000000}
      Ctl3D = False
      DelErase = True
      EnhancedHomeKey = False
      Gutter.Font.Charset = DEFAULT_CHARSET
      Gutter.Font.Color = clWindowText
      Gutter.Font.Height = -13
      Gutter.Font.Name = 'Courier New'
      Gutter.Font.Style = []
      Gutter.BorderColor = 16765615
      Gutter.GutterColor = 14722429
      Gutter.GutterColorTo = 16572875
      Gutter.ModifiedColorBkg = clGreen
      Gutter.ModifiedColor = clBlue
      Gutter.ShowModified = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'COURIER NEW'
      Font.Style = []
      HiddenCaret = False
      Lines.Strings = (
        '')
      MarkerList.UseDefaultMarkerImageIndex = False
      MarkerList.DefaultMarkerImageIndex = -1
      MarkerList.ImageTransparentColor = 33554432
      OleDropTarget = []
      PrintOptions.MarginLeft = 0
      PrintOptions.MarginRight = 0
      PrintOptions.MarginTop = 0
      PrintOptions.MarginBottom = 0
      PrintOptions.PageNr = False
      PrintOptions.PrintLineNumbers = False
      RightMarginColor = 14869218
      ScrollHint = False
      SelColor = clWhite
      SelBkColor = clHighlight
      ShowRightMargin = True
      SmartTabs = False
      SyntaxStyles = Styler
      TabOrder = 0
      TabStop = True
      TrimTrailingSpaces = False
      UILanguage.ScrollHint = 'Row'
      UILanguage.Undo = 'Undo'
      UILanguage.Redo = 'Redo'
      UILanguage.Copy = 'Copy'
      UILanguage.Cut = 'Cut'
      UILanguage.Paste = 'Paste'
      UILanguage.Delete = 'Delete'
      UILanguage.SelectAll = 'Select All'
      UrlAware = False
      UrlStyle.TextColor = clBlue
      UrlStyle.BkColor = clWhite
      UrlStyle.Style = [fsUnderline]
      UseStyler = True
      Version = '3.7.6.0'
      WordWrap = wwNone
      OnDragOver = EditorDragOver
      OnDragDrop = EditorDragDrop
      OnGetAutoCompletionList = EditorGetAutoCompletionList
      OnChange = EditorChange
    end
  end
  object Console: TMemo
    Left = 0
    Top = 377
    Width = 583
    Height = 89
    Align = alBottom
    Constraints.MinHeight = 20
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 3
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 123
    Height = 373
    Hint = 'Select a block and drag it into the Script editor'
    Align = alLeft
    AutoSize = True
    Caption = 'Panel1'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    Visible = False
    object ScrCodeList1: TScrCodeList
      Left = 1
      Top = 1
      Width = 121
      Height = 371
      ParentCustomHint = False
      SyntaxStyles = Styler
      Align = alLeft
      CodeBlocks = <
        item
          Code.Strings = (
            'with Transform do'
            'begin'
            'end;')
        end
        item
          Code.Strings = (
            'with Flame do '
            'begin'
            '  // 3D-rotation'
            '   Pitch := ; // around X-axis'
            '   Yaw := ; // around Z-axis'
            '   Roll := ; // around Y-axis'
            '   Z := ; // camera height'
            '   Perspective := ;'
            'end;')
        end
        item
          Code.Strings = (
            'for i:=0 to N do'
            'begin'
            'end;')
        end
        item
          Code.Strings = (
            'if () then begin'
            '    // instructions'
            'end else begin'
            ''
            'end;')
        end
        item
          Code.Strings = (
            'case () of'
            ' :  ;  // n1: action1;'
            ' :  ;  // n2: action2;'
            'else //  action'
            'end;')
        end
        item
          Code.Strings = (
            'while () do begin'
            '    // instructions'
            'end;')
        end
        item
          Code.Strings = (
            'try'
            'except'
            'end;')
        end
        item
          Code.Strings = (
            'repeat'
            '    // instructions'
            'until ();')
        end
        item
          Code.Strings = (
            'function Fn(): variant;'
            'begin'
            '    Result := ;'
            'end;')
        end
        item
          Code.Strings = (
            'procedure Pr();'
            'begin'
            'end;')
        end
        item
          Code.Strings = (
            'if not '
            'InputQuery('#39' '#39', '#39' '#39', )'
            'then Exit;')
        end
        item
          Code.Strings = (
            'if () then'
            '  // action'
            'else if () then  '
            '  // action'
            'else  ;')
        end
        item
          Caption = 'Task Dialog'
          Code.Strings = (
            'try'
            'tdlg := TTaskDialog.Create(nil);'
            'tdlg.Title := '#39'User'#39#39's Dialog'#39';'
            'tdlg.Caption := '#39'Apophysis'#39'; '
            'tdlg.Flags := [tfUseHiconMain]; '
            'tdlg.CustomMainIcon := Apophysis.Icon; '
            
              '// tdlg.CustomMainIcon := Screen.ActiveForm.Icon;               ' +
              '                    '
            'tdlg.Text := '#39'A question for the user: '#39';'
            
              'tdlg.RadioButtons.Add.Caption := '#39'First variant'#39';               ' +
              '    '
            'tdlg.RadioButtons.Add.Caption := '#39'Second variant'#39';'
            'tdlg.CommonButtons := [tcbOK, tcbCancel];       '
            'tdlg.Execute;'
            'if tdlg.ModalResult = mrCancel then '
            'begin'
            '{ instructions for the Cancel button }                    '
            'end else  { instructions for the OK button }    '
            '    case tdlg.RadioButton.ID of '
            '        0: begin'
            '          { instructions for the 1-st variant } '
            '           end;  '
            '        1: begin'
            '          { instructions for the 2-nd variant }     '
            '           end;'
            '    end;  // end case'
            'tdlg.Free;'
            'except'
            'MessageDlg('#39'This dialog type is not supported.'#39', mtError, 4, 0);'
            'exit;'
            'end; ')
        end
        item
          Caption = 'Dialog with Links'
          Code.Strings = (
            'try'
            'tdlg := TTaskDialog.Create(nil);'
            'tdlg.Title := '#39'User'#39#39's Dialog'#39';'
            'tdlg.Caption := '#39'Apophysis'#39';  '
            'tdlg.Flags := [tfUseCommandLinks, tfExpandFooterArea];'
            'tdlg.MainIcon := tdiInformation;  '
            '// tdlg.MainIcon := tdiShield;'
            'tdlg.ExpandedText := '#39'Additional text'#39';   '
            'tdlg.ExpandButtonCaption := '#39'More...'#39'; '
            'tdlg.Text := '#39'Text message or a question'#39';'
            'btn := tdlg.Buttons.Add;'
            'btn.Caption := '#39'1'#39';'
            'btn.CommandLinkHint:= '#39'First variant'#39';'
            'btn := tdlg.Buttons.Add;'
            'btn.Caption := '#39'2'#39';'
            'btn.CommandLinkHint:= '#39'Another variant'#39';'
            'tdlg.CommonButtons := [tcbCancel];       '
            'tdlg.Execute;'
            'case tdlg.ModalResult of '
            '    100: begin'
            '      { instructions for the 1-st button } '
            '         end;  '
            '    101: begin'
            '      { instructions for the 2-nd button }     '
            '         end;'
            '    mrCancel: begin'
            
              '       { instructions for the Cancel button }                   ' +
              ' '
            '              end;'
            'end;'
            'tdlg.Free;'
            'except'
            'MessageDlg('#39'This dialog type is not supported.'#39', mtError, 4, 0);'
            'exit;'
            'end; ')
        end>
      CodeBlockColor = clWhite
      CodeBlockColorTo = clMoneyGreen
      CodeBlockSelectColor = clSkyBlue
      CodeBlockSelectColorTo = clHotLight
      CodeBlockCaptionColor = 8238973
      CodeBorderColor = clHighlight
      CodeBorderSelectColor = clBlue
      CodeBorderWidth = 2
      CodeIndent = 1
      DragMode = dmAutomatic
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      IntegralHeight = True
      ItemHeight = 48
      ItemStyle = isVariableHeight
      ParentFont = False
      ParentShowHint = False
      PopupMenu = CodeBlockPopup
      ShowHint = False
      TabOrder = 0
      UseStyler = True
      Version = '3.1.0.2'
      OnContextPopup = ScrCodeList1ContextPopup
      OnDragDrop = ScrCodeList1DragDrop
      OnDragOver = ScrCodeList1DragOver
      OnBlockDblClick = ScrCodeList1BlockDblClick
      OnBlockRightClick = ScrCodeList1BlockRightClick
    end
  end
  object MainOpenDialog: TOpenDialog
    DefaultExt = 'asc'
    Filter = 'Apophysis Script Files (*.asc)|*.asc|Text files (*.txt)|*.txt'
    Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing]
    Left = 290
    Top = 239
  end
  object MainSaveDialog: TSaveDialog
    DefaultExt = 'asc'
    Filter = 'Apophysis Script Files (*.asc)|*.asc|Text files (*.txt)|*.txt'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Left = 280
    Top = 56
  end
  object PopupMenu: TPopupMenu
    Images = MainForm.Buttons
    Left = 360
    Top = 56
    object mnuUndo: TMenuItem
      Caption = 'Undo'
      ImageIndex = 4
      OnClick = mnuUndoClick
    end
    object mnuRedo: TMenuItem
      Caption = 'Redo'
      ImageIndex = 5
      OnClick = mnuRedoClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object mnuCut: TMenuItem
      Caption = 'Cut'
      ImageIndex = 6
      ShortCut = 16472
      OnClick = mnuCutClick
    end
    object mnuCopy: TMenuItem
      Caption = 'Copy'
      ImageIndex = 7
      ShortCut = 16451
      OnClick = mnuCopyClick
    end
    object mnuPaste: TMenuItem
      Caption = 'Paste'
      ImageIndex = 8
      ShortCut = 16470
      OnClick = mnuPasteClick
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object FindReplace: TMenuItem
      Caption = 'Find and replace'
      ImageIndex = 39
      OnClick = FindReplaceClick
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object CommentOut: TMenuItem
      Caption = 'Comment out the selection by...'
      object N5: TMenuItem
        Caption = '{ ... }'
        OnClick = SurroundByClick
      end
      object N6: TMenuItem
        Caption = '(* ... *)'
        OnClick = SurroundByClick
      end
      object N7: TMenuItem
        Caption = '// ...'
        OnClick = SurroundByClick
      end
    end
    object SurroundBlock: TMenuItem
      Caption = 'Surround the selection by...'
      object BeginEnd1: TMenuItem
        Caption = 'begin ... end'
        OnClick = SurroundByClick
      end
      object TryExcept1: TMenuItem
        Caption = 'try ... except'
        OnClick = SurroundByClick
      end
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object ShowCodeHints: TMenuItem
      AutoCheck = True
      Caption = 'Show hints for code blocks'
      OnClick = ShowCodeHintsClick
    end
    object AddFromClipboard: TMenuItem
      Caption = 'Add code blocks from clipboard'
      OnClick = AddFromClipboardClick
    end
    object N8: TMenuItem
      Caption = '-'
    end
    object CollapseBlocks: TMenuItem
      Caption = 'Collapse all blocks of code'
      OnClick = CollapseBlocksClick
    end
    object ExpandBlocks: TMenuItem
      Caption = 'Expand all blocks of code'
      OnClick = ExpandBlocksClick
    end
  end
  object Scripter: TatPascalScripter
    SourceCode.Strings = (
      '')
    SaveCompiledCode = False
    OnCompileError = ScripterCompileError
    OnRuntimeError = ScripterRuntimeError
    ShortBooleanEval = True
    LibOptions.SearchPath.Strings = (
      '$(APPDIR)\Scripts'
      '$(APPDIR)'
      '$(CURDIR)')
    LibOptions.SourceFileExt = '.asc'
    LibOptions.CompiledFileExt = '.pcu'
    LibOptions.FormFileExt = '.afm'
    LibOptions.UseScriptFiles = True
    CallExecHookEvent = False
    Left = 480
    Top = 200
  end  
  object OpenDialog: TOpenDialog
    DefaultExt = 'flame'
    Filter = 
      'Flame files (*.flame)|*.flame|Apophysis 1.0 parameters (*.apo;*.' +
      'fla)|*.apo;*.fla|All files (*.*)|*.*'
    Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing]
    Left = 283
    Top = 173
  end
  object SaveDialog: TSaveDialog
    DefaultExt = 'flame'
    Filter = 'Flame files (*.flame)|*.flame'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing]
    Left = 278
    Top = 111
  end
  object Styler: TScrPascalMemoStyler
    AutoBlockEnd = True
    BlockStart = 'begin,try,case,class,record'
    BlockEnd = 'end'
    LineComment = '//'
    MultiCommentLeft = '{'
    MultiCommentRight = '}'
    CommentStyle.TextColor = clNavy
    CommentStyle.BkColor = clWhite
    CommentStyle.Style = [fsItalic]
    NumberStyle.TextColor = clFuchsia
    NumberStyle.BkColor = clWhite
    NumberStyle.Style = [fsBold]
    HighlightStyle.TextColor = clWhite
    HighlightStyle.BkColor = 3487231
    HighlightStyle.Style = [fsBold]
    AllStyles = <
      item
        KeyWords.Strings = (
          'absolute'
          'abstract'
          'and'
          'array'
          'as'
          'asm'
          'assembler'
          'automated'
          'begin'
          'break'
          'case'
          'cdecl'
          'class'
          'class'
          'const'
          'constructor'
          'continue'
          'default'
          'deprecated'
          'destructor'
          'dispid'
          'dispinterface'
          'div'
          'do'
          'downto'
          'dynamic'
          'else'
          'end'
          'except'
          'exports'
          'external'
          'far'
          'file'
          'finalise'
          'finally'
          'for'
          'forward'
          'function'
          'if'
          'implementation'
          'in'
          'inherited'
          'initialise'
          'inline'
          'interface'
          'is'
          'label'
          'library'
          'message'
          'mod'
          'near'
          'nil'
          'not'
          'object'
          'of'
          'or'
          'out'
          'overload'
          'override'
          'packed'
          'pascal'
          'platform'
          'private'
          'procedure'
          'program'
          'program'
          'property'
          'protected'
          'public'
          'published'
          'raise'
          'record'
          'register'
          'reintroduce'
          'repeat'
          'resourcestring'
          'safecall'
          'set'
          'shl'
          'shr'
          'stdcall'
          'step'
          'stored'
          'string'
          'then'
          'threadvar'
          'to'
          'try'
          'type'
          'unit'
          'until'
          'uses'
          'var'
          'virtual'
          'while'
          'with'
          'xor')
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGreen
        Font.Height = -11
        Font.Name = 'Courier New'
        Font.Style = [fsBold]
        BGColor = clWhite
        StyleType = stKeyword
        BracketStart = #0
        BracketEnd = #0
        Info = 'Pascal Standard Default'
      end
      item
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'Courier New'
        Font.Style = []
        BGColor = clWhite
        StyleType = stBracket
        BracketStart = #39
        BracketEnd = #39
        Info = 'Simple Quote'
      end
      item
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'Courier New'
        Font.Style = []
        BGColor = clWhite
        StyleType = stBracket
        BracketStart = '"'
        BracketEnd = '"'
        Info = 'Double Quote'
      end
      item
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'Courier New'
        Font.Style = []
        BGColor = clWhite
        StyleType = stSymbol
        BracketStart = #0
        BracketEnd = #0
        Symbols = ' ,;:.(){}[]=+-*/^%<>#'#13#10
        Info = 'Symbols Delimiters'
      end
      item
        CommentLeft = '(*'
        CommentRight = '*)'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'Courier New'
        Font.Style = [fsItalic]
        BGColor = clWhite
        StyleType = stComment
        BracketStart = #0
        BracketEnd = #0
      end>
    AutoCompletion.Strings = (
      'procedure ShowMessage(TextMessage: string)'
      'function MessageDlg(Msg: string, DlgType, Buttons, 0): integer'
      
        'function MessageBox(0, Prompt, Caption, DlgStyle: integer): inte' +
        'ger'
      'function InputBox(Caption, Prompt, Value: variant): variant'
      
        'function InputQuery(Caption, Prompt, var Value: variant): boolea' +
        'n'
      'procedure Interpret(script: string)'
      'procedure RotateFlame(Degrees: double)'
      'procedure RotateReference(Degrees: double)'
      'procedure StoreFlame(index: integer)'
      'procedure GetFlame(FlameNumber: integer)'
      'procedure LoadFlame(FlameNumber: integer)'
      'var UpdateFlame: boolean'
      'var ActiveTransform: integer'
      'procedure SetActiveTransform(index: integer)'
      'var SelectedTransform: integer'
      'function Transforms: integer'
      'function FileCount: integer'
      'procedure AddTransform'
      'procedure DeleteTransform'
      'function DeleteFile(filename: string): boolean'
      'procedure CopyTransform'
      'procedure Clear'
      'procedure Preview'
      'procedure Render'
      'procedure Beep'
      'procedure MessageBeep(sound_type: integer)'
      'procedure Print(data: variant)'
      'procedure AddSymmetry(symmetry_type: integer)'
      
        'procedure PrepareToMorph(Flame1_Num: integer, Flame2_Num: intege' +
        'r)'
      
        'procedure Morph(Flame1_Num: integer, Flame2_Num: integer, Speed:' +
        ' double, interp_type: integer = 3)'
      'procedure SetRenderBounds'
      'procedure SetFlameFile(FlameFile_name: string)'
      'procedure ListFile(FlameFile_name: string)'
      'procedure SaveFlame(FlameFile_name: string)'
      'function GetFileName: string'
      'procedure ShowStatus(TextMessage: string)'
      'procedure RandomFlame(randomness_type: integer)'
      'procedure RandomGradient'
      'procedure PresetGradient(gradient_number: integer)'
      'procedure SaveGradient(Title: string, FileName: string)'
      'procedure SetVariation(var_index)'
      'const ProgramVersionString'
      'function VariationIndex(var_name: string): integer'
      'function VariationName(var_index: integer): string'
      'function VariableIndex(param_name: string): integer'
      'function VariableName(param_index: integer): string'
      'procedure CalculateScale'
      'procedure CalculateBounds'
      'procedure CalculateColors'
      'procedure CalculateWeights'
      'procedure CalculateColorSpeed'
      'procedure RandomizeColorSpeed'
      'procedure RandomizeColors'
      'procedure RandomizeWeights'
      'procedure NormalizeWeights'
      'procedure EqualizeWeights'
      'procedure NormalizeVars'
      'function GetSaveFileName: string'
      'function ExtractFilePath(full_filename: string): string'
      'function ExtractFileName(full_filename: string): string'
      'function ExtractFileExt(filename: string): string'
      
        'function CopyFile(Source: string, Destination: string, keep_exis' +
        'ting: boolean = false): boolean'
      
        'function RenameFile(Source: string, Destination: string): boolea' +
        'n'
      'procedure DeleteFile(full_filename: string)'
      'function FileExists(full_filename: string): boolean'
      'var CurrentFile: readonly'
      'function CreateDir(folder_name: string)'
      'class TStringList'
      'constructor Create'
      
        'function Copy(source: string, start_pos, length: integer): strin' +
        'g'
      'class Renderer'
      'property Filename: string'
      'property Width: integer'
      'property Height: integer'
      'property MaxMemory: integer'
      'property EmbedParameters: boolean'
      'class Flame'
      'property Gamma: double'
      'property GammaThreshold: double'
      'property Brightness: double'
      'property Vibrancy: double'
      'property Contrast: double'
      'property Time: double'
      'property Zoom: double'
      'property Width: integer'
      'property Height: integer'
      'property PreviewWidth: integer'
      'property PreviewHeight: integer'#9'  '
      'property Angle: double'
      'property Pitch: double'
      'property Yaw: double'
      'property Roll: double'
      'property Perspective: double'
      'property SampleDensity: double'
      'property Quality: double'
      'property Oversample: double'
      'property FilterRadius: double'
      'property Scale: double'
      'property Hue: double'
      'property Gradient[][]: integer'
      'property Background[]: integer'
      'property Name: string'
      'property Batches: integer'
      'property FinalXformEnabled: boolean'
      'property Comment: string'
      'var LimitVibrancy: boolean'
      'var DateCode: readonly'
      'procedure DecodeDate(date, year, month, day)'
      'procedure DecodeTime(time, hour, minute, sec, millisec)'
      'function Now: TDateTime'
      'procedure Exit'
      'var Stopped: boolean'
      'class Transform'
      'property coefs[][]: double'
      'property post[][]: double'
      'property Color: double'
      'property VarColor: double'
      'property Opacity: double'
      'property PlotMode: integer'
      'property Weight: double'
      'property Symmetry: double'
      'property ColorSpeed: double'
      'property Chaos[]: double'
      'procedure RotatePXOrigin(Degrees: double)'
      'procedure RotatePX(Degrees: double)'
      'procedure ScalePX(Factor: double)'
      'procedure Scale(Factor: double)'
      'procedure Translate(X: double, Y: double)'
      'procedure Rotate(Degrees: double)'
      
        'procedure Multiply(a00: double, a10: double, a01: double, a11: d' +
        'ouble)'
      'procedure TranslatePX(X: double, Y: double)'
      
        'procedure MultiplyPX(a00: double, a10: double, a01: double, a11:' +
        ' double)'
      'procedure FlipHoriz'
      'procedure FlipPXHoriz'
      'procedure FlipVert'
      'procedure FlipPXVert'
      'procedure RotateOrigin(Degrees: double)'
      'property Variation[]: double'
      'property Variable[]: double'
      'property postXformEnabled: boolean'
      'method SwapCoefs'
      'class Options'
      'property JPEGQuality: integer'
      'property BatchSize: integer'
      'var BatchIndex: integer'
      'property ParameterFile: string'
      'property Multithreading: integer'
      'property SmoothPaletteFile'
      'property NumTries'
      'property TryLength'
      'property ConfirmDelete'
      'property Transparency: integer'
      'property PreviewLowQuality'
      'property PreviewMediumQuality'
      'property PreviewHighQuality'
      'property MinTransforms: integer'
      'property MaxTransforms: integer'
      'property MutateMinTransforms: integer'
      'property MutateMaxTransforms: integer'
      'property RandomPrefix'
      'property KeepBackground: integer'
      'property SymmetryType: integer'
      'property SymmetryOrder: integer'
      'property Variations[]: boolean'
      'property GradientOnRandom: integer'
      'property GradientFileOnRandom: string'
      'property MinNodes: integer'
      'property MaxNodes: integer'
      'property MinHue: integer'
      'property MaxHue: integer'
      'property MinSaturation: integer'
      'property MaxSaturation: integer'
      'property MinLuminance: integer'
      'property MaxLuminance: integer'
      'property UPRSampleDensity'
      'property UPRFilterRadius'
      'property UPROversample'
      'property UPRAdjustDensity: boolean'
      'property UPRColoringIdent: string'
      'property UPRColoringFile: string'
      'property UPRFormulaFile: string'
      'property UPRFormulaIdent: string'
      'property UPRWidth: integer'
      'property UPRHeight: integer'
      'property ExportRenderer: string'
      'property EvenGradientStripes: boolean'
      'property ColorBlending: integer'
      'class Pivot'
      'property Mode: integer'
      'procedure Set(X: double, Y: double)'
      'procedure Reset'
      'keyword for'
      'keyword begin'
      'keyword end'
      'keyword and'
      'keyword repeat'
      'keyword until'
      'keyword while'
      'keyword with'
      'keyword case'
      'keyword try'
      'keyword except'
      'keyword finally'
      'keyword downto'
      'keyword step'
      'keyword procedure'
      'keyword function'
      'const True'
      'const False'
      'keyword div'
      'keyword mod'
      'keyword uses'
      'unit System'
      'unit Dialogs'
      'unit Windows'
      'function random: double'
      
        'function RandomRange(startnum: integer, lastnum: integer): integ' +
        'er'
      'function Round(value: double): integer'
      'function Trunc(value: double): integer'
      'function abs(value: double): double'
      'function sqrt(value: double): double'
      'function Int(value: double): double'
      'function DegToRad(Degrees: double): double'
      'function RadToDeg(Radians: double): double'
      'function VarToStr(value: variant): string'
      'function IntToStr(num: integer): string'
      'function FloatToStr(num: double): string'
      'function StrToInt(num: variant): integer'
      'function StrToFloat(num: variant): double'
      'function Length(str: string): integer'
      'function Trim(str: string): string'
      'function AnsiLowerCase(str: string): string'
      'function AnsiUpperCase(str: string): string'
      'function Pos(substr: string, str: string): integer'
      'function Copy(str: string, index: integer, len: integer): string'
      'procedure Delete(str: string, index: integer, len: integer)'
      'function Format(settings: string,[values]): string'
      
        'function FormatDateTime(settings: string, date: TDateTime): stri' +
        'ng'
      
        'function VarArrayCreate([array_indexes: integer], data_type): ar' +
        'ray'
      'function hypot(X: double, Y: double): double'
      'function ArcTan2(Y: double, X: double): double'
      'function ArcSin(X: double): double'
      'function ArcCos(X: double): double'
      'procedure Dec(num: integer)'
      'procedure Inc(num: integer)'
      'function Odd(num: integer): boolean'
      'function StringOfChar(symbol: char, count: integer): string'
      'function GetEnvironmentVariable(sys_const: string): string'
      'const PI'
      'const NVARS'
      'const NumVariables'
      'const NXFORMS'
      'const INSTALLPATH'
      'const SYM_NONE'
      'const SYM_BILATERAL'
      'const SYM_ROTATIONAL'
      'const SYM_DIHEDRAL'
      'const NMAPS'
      'const V_RANDOM = -1'
      'const V_LINEAR = 0'
      'unit Classes'
      'unit Forms'
      'const mrOK'
      'const mrCancel'
      'const mrYes'
      'const mrNo'
      'const mrRetry'
      'const mrClose'
      'object Apophysis : TApplication'
      'method SwapVariations(var1_name, var2_name: string)'
      'method SortVariationsByName'
      'method SortVariationsByIndex'
      'method PrintVariationsOrder'
      'method CopyVariationsOrder(transform_index: integer)'
      'method SetVariationOrder(var_name, index: integer)'
      'function GetVariationOrder(var_name: string): integer'
      'class TTaskDialog'
      'const tcbClose'
      'const tcbRetry'
      'const tcbNo'
      'const tcbYes'
      'const tcbOK'
      'const tcbCancel'
      'const tdiNone'
      'const tdiWarning'
      'const tdiError'
      'const tdiInformation'
      'const tdiShield'
      'const mtWarning'
      'const mtError'
      'const mtInformation'
      'const mtConfirmation'
      'const mtCustom'
      'const tfUseCommandLinks'
      'const tfVerificationFlagChecked'
      'const tfUseHiconMain'
      'const tfExpandFooterArea'
      'const tfExpandedByDefault'
      'const tfAllowDialogCancellation'
      'const tfUseHiconFooter'
      'const tfNoDefaultRadioButton'
      'const tfCanBeMinimized'
      'const tfShowProgressBar'
      'const tfShowMarqueeProgressBar'
      'const tfCallbackTimer'
      'const tfPositionRelativeToWindow'
      'const pbsNormal'
      'const pbsError'
      'const pbsPaused'
      'const BLEND_RGB'
      'const BLEND_HSV'
      'const BLEND_NONE')
    HintParameter.TextColor = clBlack
    HintParameter.BkColor = clInfoBk
    HintParameter.HintCharStart = '('
    HintParameter.HintCharEnd = ')'
    HintParameter.HintCharDelimiter = ';'
    HintParameter.HintClassDelimiter = '.'
    HintParameter.HintCharWriteDelimiter = ','
    HintParameter.Parameters.Strings = (
      'ShowMessage(TextMessage: string);'
      
        'MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMs' +
        'gDlgButtons; HelpCtx: Longint): Integer;'
      
        'InputQuery(const Caption: string, const Prompt: string, var Valu' +
        'e: variant): boolean'
      
        'InputBox(const Caption: string, const Prompt: string, const Defa' +
        'ultValue: variant): variant'
      'DeleteFile(const filename: string);'
      'RotateFlame(Degress: double)'
      'RotateReference(Degress: double)'
      'Rotate(Degrees: double)'
      'RotatePX(Degrees: double)'
      'RotateOrigin(Degrees: double)'
      'RotatePXOrigin(Degrees: double)'
      'Multiply(a00: double, a10: double, a01: double, a11: double)'
      'MultiplyPX(a00: double, a10: double, a01: double, a11: double)'
      'StoreFlame(FlameNumber: integer)'
      'GetFlame(FlameNumber: integer)'
      'LoadFlame(FlameNumber: integer)'
      'Scale(Factor: double)'
      'ScalePX(Factor: double)'
      'Translate(X: double, Y: double)'
      'TranslatePX(X: double, Y: double)'
      'SetActiveTransform(TransformNumber: integer)'
      'Print(data: variant)'
      'RandomRange(startnum: integer, lastnum: integer): integer'
      'Round(value: double): integer'
      'Trunc(value: double): integer'
      'abs(value: double): double'
      'sqrt(value: double): double'
      'Int(value: double): double'
      'DegToRad(Degrees: double): double'
      'RadToDeg(Radians: double): double'
      'VarToStr(value: variant): string'
      'IntToStr(num: integer): string'
      'FloatToStr(num: double): string'
      'StrToInt(num: variant): integer'
      'StrToFloat(num: variant): double'
      'sin(Radians: double)'
      'sin(Radians: double)'
      'ArcTan2(Y: double, X: double)'
      'hypot(X: double, Y: double)'
      'power(number: double, num_power: double)'
      'FormatDateTime(format_settings: string, date: TDateTime): string'
      'Format(format_settings: string,[values: variant_array]): string'
      
        'DecodeDate(date: TDateTime, year: integer, month: integer, day: ' +
        'integer)'
      
        'DecodeTime(time: TDateTime, hour: integer, minute: integer, seco' +
        'nd: integer, millisecond: integer)'
      
        'VarArrayCreate([array_low_index: integer, array_high_index: inte' +
        'ger ], data_type: integer)'
      'AddSymmetry(symmetry_type: integer)'
      
        'Morph(Flame1_Number: integer, Flame2_Number: integer, Speed: dou' +
        'ble, interp_type: integer = 3)'
      'SetFlameFile(const filename: string)'
      'ListFile(const filename: string)'
      'SaveFlame(const filename: string)'
      'ShowStatus(TextMessage: string)'
      'RandomFlame(randomness_type: integer)'
      'SaveGradient(Title: string, FileName: string)'
      'SetVariation(Number: integer)'
      'VariationIndex(var_name: string): integer'
      'VariationName(var_index: integer): string'
      
        'CopyFile(Source: string, Destination: string, keep_existing: boo' +
        'lean = false)'
      'LoadFromFile(full_filename: string)'
      'SaveToFile(full_filename: string)'
      'Add(text: string): integer'
      'IndexOf(text_string: string): integer'
      'Delete(string_index: integer)'
      'MessageBox(0, Prompt, Caption, DlgStyle: integer): integer'
      'InputBox(Caption, Prompt, Value: variant): variant'
      'Copy(source: string, start_pos, length: integer): string')
    HexIdentifier = '$'
    Description = 'Pascal'
    Filter = 'Pascal Files (*.pas,*.dpr,*.dpk,*.inc)|*.pas;*.dpr;*.dpk;*.inc'
    DefaultExtension = '.pas'
    StylerName = 'Pascal'
    Extensions = 'pas;dpr;dpk;inc'
    RegionDefinitions = <
      item
        Identifier = 'procedure'
        RegionStart = 'begin'
        RegionEnd = 'end'
        RegionType = rtClosed
        ShowComments = False
      end
      item
        Identifier = 'constructor'
        RegionStart = 'begin'
        RegionEnd = 'end'
        RegionType = rtClosed
        ShowComments = False
      end
      item
        Identifier = 'destructor'
        RegionStart = 'begin'
        RegionEnd = 'end'
        RegionType = rtClosed
        ShowComments = False
      end
      item
        Identifier = 'interface'
        RegionStart = 'interface'
        RegionType = rtOpen
        ShowComments = False
      end
      item
        Identifier = 'unit'
        RegionStart = 'unit'
        RegionType = rtFile
        ShowComments = False
      end
      item
        Identifier = 'implementation'
        RegionStart = 'implementation'
        RegionType = rtOpen
        ShowComments = False
      end
      item
        Identifier = 'case'
        RegionStart = 'case'
        RegionEnd = 'end'
        RegionType = rtIgnore
        ShowComments = False
      end
      item
        Identifier = 'try'
        RegionStart = 'try'
        RegionEnd = 'end'
        RegionType = rtIgnore
        ShowComments = False
      end
      item
        Identifier = 'function'
        RegionStart = 'begin'
        RegionEnd = 'end'
        RegionType = rtClosed
        ShowComments = False
      end
      item
        Identifier = '{$region'
        RegionStart = '{$region'
        RegionEnd = '{$endregion'
        RegionType = rtClosed
        ShowComments = False
      end>
    Left = 472
    Top = 264
  end
  object ScrMemoFindReplaceDialog1: TScrMemoFindReplaceDialog
    AutoHighlight = True
    NotFoundMessage = 'Text not found'
    AdvMemo = Editor
    Options = [frDown]
    Left = 283
    Top = 8
  end
  object CodeBlockPopup: TPopupMenu
    Left = 376
    Top = 112
    object mnuDeleteBlock: TMenuItem
      Caption = 'Delete'
      OnClick = mnuDeleteBlockClick
    end
    object Editcaption1: TMenuItem
      Caption = 'Edit caption...'
      OnClick = Editcaption1Click
    end
  end
end