atscriptdebugform.dfm

Suite of components to add scripting capabilities to your applications, including Pascal & Basic scr

object DebugForm: TDebugForm
  Left = 260
  Top = 188
  Width = 566
  Height = 460
  Caption = 'Script Debugger'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 558
    Height = 28
    Caption = 'ToolBar1'
    Flat = True
    Images = ImageList1
    TabOrder = 0
    object btRun: TToolButton
      Left = 0
      Top = 0
      Action = acRun
      DropdownMenu = pmRoutines
      ParentShowHint = False
      ShowHint = True
      Style = tbsDropDown
    end
    object btPause: TToolButton
      Left = 36
      Top = 0
      Action = acPause
      ParentShowHint = False
      ShowHint = True
    end
    object ToolButton14: TToolButton
      Left = 59
      Top = 0
      Width = 8
      Caption = 'ToolButton14'
      ImageIndex = 17
      Style = tbsSeparator
    end
    object btShowExec: TToolButton
      Left = 67
      Top = 0
      Action = acShowExec
      ParentShowHint = False
      ShowHint = True
    end
    object btReset: TToolButton
      Left = 90
      Top = 0
      Action = acReset
      ParentShowHint = False
      ShowHint = True
    end
    object btStepOver: TToolButton
      Left = 113
      Top = 0
      Action = acStepOver
      ParentShowHint = False
      ShowHint = True
    end
    object btTraceInto: TToolButton
      Left = 136
      Top = 0
      Action = acTraceInto
      ParentShowHint = False
      ShowHint = True
    end
    object btReturn: TToolButton
      Left = 159
      Top = 0
      Action = acReturn
      ParentShowHint = False
      ShowHint = True
    end
    object btRunTo: TToolButton
      Left = 182
      Top = 0
      Action = acRunTo
      ParentShowHint = False
      ShowHint = True
    end
    object ToolButton15: TToolButton
      Left = 205
      Top = 0
      Width = 8
      Caption = 'ToolButton15'
      ImageIndex = 17
      Style = tbsSeparator
    end
    object btToggleBreak: TToolButton
      Left = 213
      Top = 0
      Action = acToggleBreak
      ParentShowHint = False
      ShowHint = True
    end
    object btViewBreak: TToolButton
      Left = 236
      Top = 0
      Action = acViewBreak
      ParentShowHint = False
      ShowHint = True
    end
    object btAddWatch: TToolButton
      Left = 259
      Top = 0
      Action = acAddWatch
      ParentShowHint = False
      ShowHint = True
    end
    object btViewWatch: TToolButton
      Left = 282
      Top = 0
      Action = acViewWatch
      ParentShowHint = False
      ShowHint = True
    end
    object btEvaluate: TToolButton
      Left = 305
      Top = 0
      Action = acEvaluate
      ParentShowHint = False
      ShowHint = True
      Visible = False
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 28
    Width = 558
    Height = 386
    Align = alClient
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Caption = 'Panel1'
    TabOrder = 1
    object AdvMemo1: TAdvMemo
      Left = 0
      Top = 0
      Width = 554
      Height = 363
      Cursor = crIBeam
      PopupMenu = PopupMenu1
      ActiveLineSettings.ShowActiveLine = True
      ActiveLineSettings.ShowActiveLineIndicator = True
      Align = alClient
      AutoCompletion.Font.Charset = DEFAULT_CHARSET
      AutoCompletion.Font.Color = clWindowText
      AutoCompletion.Font.Height = -11
      AutoCompletion.Font.Name = 'MS Sans Serif'
      AutoCompletion.Font.Style = []
      AutoCompletion.ShowImages = True
      AutoCorrect.Active = True
      AutoHintParameterPosition = hpBelowCode
      BlockLineColor = clGray
      BorderStyle = bsNone
      Ctl3D = False
      DelErase = True
      EnhancedHomeKey = False
      Gutter.DigitCount = 4
      Gutter.Font.Charset = DEFAULT_CHARSET
      Gutter.Font.Color = clWindowText
      Gutter.Font.Height = -13
      Gutter.Font.Name = 'Courier New'
      Gutter.Font.Style = []
      Gutter.LineNumberStart = 1
      Gutter.LineNumberTextColor = clBlack
      Gutter.ShowLineNumbers = True
      Gutter.Visible = True
      Gutter.ShowLeadingZeros = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
      HiddenCaret = False
      Lines.Strings = (
        'function Factorial(x);'
        'begin'
        '  { recursive Factorial algorithm }'
        '  if x>1 then'
        '    result := x * Factorial(x-1)'
        '  else'
        '    result := 1;'
        'end;'
        ''
        'function Fibonaci(x);'
        'begin'
        '  { non-recursive Fibonaci algorithm }'
        '  result := 0;'
        '  for i := 1 to x do'
        '    result := result + i;'
        'end;'
        ''
        'ShowMessage('#39'Hello world'#39');'
        'ShowMessage('#39'Factorial of 5 is: '#39'+IntToStr(Factorial(5)));'
        'ShowMessage('#39'Fibonaci of 5 is: '#39'+IntToStr(Fibonaci(5)));')
      MarkerList.UseDefaultMarkerImageIndex = False
      MarkerList.DefaultMarkerImageIndex = -1
      MarkerList.ImageTransparentColor = 33554432
      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 = clNavy
      ShowHint = True
      ShowRightMargin = True
      SmartTabs = False
      TabOrder = 0
      TabSize = 4
      TabStop = True
      TrimTrailingSpaces = False
      UndoLimit = 100
      UrlStyle.TextColor = clBlue
      UrlStyle.BkColor = clWhite
      UrlStyle.Style = [fsUnderline]
      UseStyler = True
      Version = '1.6.0.8'
      WordWrap = wwNone
      OnCursorChange = AdvMemo1CursorChange
      OnGetAutoCompletionList = AdvMemo1GetAutoCompletionList
      OnHintForToken = AdvMemo1HintForToken
      OnGutterClick = AdvMemo1GutterClick
      OnChange = AdvMemo1Change
      OnOverwriteToggle = AdvMemo1OverwriteToggle
    end
    object StatusBar1: TStatusBar
      Left = 0
      Top = 363
      Width = 554
      Height = 19
      Panels = <
        item
          Width = 50
        end
        item
          Width = 200
        end
        item
          Width = 120
        end
        item
          Width = 50
        end
        item
          Width = 50
        end
        item
          Width = 50
        end>
      SimplePanel = False
    end
  end
  object ImageList1: TImageList
    Left = 498
    Top = 63
    Bitmap = {
      494C010111001300040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600