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 for automathic code completition ' Anchors = [akLeft, akRight] Panels = <> SimplePanel = True SimpleText = 'Press 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