builder.dfm

支持自定义语法高亮显示的编辑器控件

object frmBuilder: TfrmBuilder
  Left = 269
  Top = 121
  BorderStyle = bsDialog
  Caption = 'Syntax Builder'
  ClientHeight = 402
  ClientWidth = 577
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object pnButtons: TPanel
    Left = 0
    Top = 364
    Width = 577
    Height = 38
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    object btLoad: TButton
      Left = 336
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Load'
      TabOrder = 0
      OnClick = btLoadClick
    end
    object btSave: TButton
      Left = 416
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Save'
      TabOrder = 1
      OnClick = btSaveClick
    end
    object btClear: TButton
      Left = 496
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Clear'
      TabOrder = 2
      OnClick = btClearClick
    end
  end
  object pnMain: TPanel
    Left = 185
    Top = 0
    Width = 392
    Height = 364
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object pcMain: TPageControl
      Left = 0
      Top = 0
      Width = 809
      Height = 361
      ActivePage = tsGeneral
      TabOrder = 0
      Visible = False
      object tsGeneral: TTabSheet
        Caption = 'General'
        object pnGeneral: TPanel
          Left = 0
          Top = 0
          Width = 801
          Height = 333
          Align = alClient
          BevelOuter = bvNone
          TabOrder = 0
          object laLanguage: TLabel
            Left = 8
            Top = 12
            Width = 51
            Height = 13
            Caption = 'Language:'
          end
          object laCopyright: TLabel
            Left = 8
            Top = 36
            Width = 47
            Height = 13
            Caption = 'Copyright:'
          end
          object laSite: TLabel
            Left = 8
            Top = 60
            Width = 36
            Height = 13
            Caption = 'WWW:'
          end
          object laMail: TLabel
            Left = 8
            Top = 84
            Width = 30
            Height = 13
            Caption = 'e-mail:'
          end
          object laDelimiters: TLabel
            Left = 8
            Top = 108
            Width = 48
            Height = 13
            Caption = 'Delimiters:'
          end
          object edLanguage: TEdit
            Left = 64
            Top = 8
            Width = 321
            Height = 21
            TabOrder = 0
            OnExit = edLanguageExit
            OnKeyDown = edLanguageKeyDown
          end
          object edCopyright: TEdit
            Left = 64
            Top = 32
            Width = 321
            Height = 21
            TabOrder = 1
            OnExit = edCopyrightExit
            OnKeyDown = edCopyrightKeyDown
          end
          object edWWW: TEdit
            Left = 64
            Top = 56
            Width = 321
            Height = 21
            TabOrder = 2
            OnExit = edWWWExit
            OnKeyDown = edWWWKeyDown
          end
          object edMail: TEdit
            Left = 64
            Top = 80
            Width = 321
            Height = 21
            TabOrder = 3
            OnExit = edMailExit
            OnKeyDown = edMailKeyDown
          end
          object edDelimiters: TEdit
            Left = 64
            Top = 104
            Width = 321
            Height = 21
            TabOrder = 4
            OnExit = edDelimitersExit
            OnKeyDown = edDelimitersKeyDown
          end
          object chbCaseSensitive: TCheckBox
            Left = 288
            Top = 130
            Width = 97
            Height = 17
            Caption = 'Case Sensitive'
            TabOrder = 5
            OnClick = chbCaseSensitiveClick
          end
        end
      end
      object tsStates: TTabSheet
        Caption = 'States'
        object pnState: TPanel
          Left = 0
          Top = 0
          Width = 801
          Height = 333
          Align = alClient
          BevelOuter = bvNone
          TabOrder = 0
          object Panel1: TPanel
            Left = 0
            Top = 0
            Width = 801
            Height = 57
            Align = alTop
            BevelOuter = bvNone
            TabOrder = 0
            object laStateName: TLabel
              Left = 8
              Top = 12
              Width = 57
              Height = 13
              Caption = 'State name:'
            end
            object edStateName: TEdit
              Left = 88
              Top = 8
              Width = 297
              Height = 21
              TabOrder = 0
              OnExit = edStateNameExit
              OnKeyDown = edStateNameKeyDown
            end
            object chbStateCaseSensitive: TCheckBox
              Left = 288
              Top = 32
              Width = 97
              Height = 17
              Caption = 'CaseSensitive'
              TabOrder = 1
              OnClick = chbStateCaseSensitiveClick
            end
          end
          object pnBlock: TPanel
            Left = 0
            Top = 57
            Width = 393
            Height = 276
            Align = alLeft
            BevelOuter = bvNone
            TabOrder = 1
            object laExpressions: TLabel
              Left = 8
              Top = 28
              Width = 59
              Height = 13
              Caption = 'Expressions:'
            end
            object laBlockName: TLabel
              Left = 8
              Top = 4
              Width = 59
              Height = 13
              Caption = 'Block name:'
            end
            object gbExpressionProperties: TGroupBox
              Left = 8
              Top = 216
              Width = 377
              Height = 49
              Caption = 'Expression Properties'
              TabOrder = 0
              object laLeaveState: TLabel
                Left = 8
                Top = 20
                Width = 28
                Height = 13
                Caption = 'State:'
              end
              object laLeaveToken: TLabel
                Left = 200
                Top = 20
                Width = 34
                Height = 13
                Caption = 'Token:'
              end
              object cbState: TComboBox
                Left = 48
                Top = 16
                Width = 129
                Height = 21
                ItemHeight = 13
                TabOrder = 0
                OnChange = cbStateChange
              end
              object cbToken: TComboBox
                Left = 240
                Top = 16
                Width = 129
                Height = 21
                ItemHeight = 13
                TabOrder = 1
                OnChange = cbTokenChange
              end
            end
            object lbExpressions: TListBox
              Left = 8
              Top = 48
              Width = 377
              Height = 161
              ItemHeight = 13
              PopupMenu = PopupMenu2
              TabOrder = 1
              OnClick = lbExpressionsClick
            end
            object edBlockName: TEdit
              Left = 88
              Top = 0
              Width = 297
              Height = 21
              TabOrder = 2
              OnExit = edBlockNameExit
              OnKeyDown = edBlockNameKeyDown
            end
            object cbExpressions: TComboBox
              Left = 88
              Top = 24
              Width = 296
              Height = 21
              ItemHeight = 13
              TabOrder = 3
              OnExit = cbExpressionsExit
              OnKeyDown = cbExpressionsKeyDown
              Items.Strings = (
                'Identifiers   [a-zA-Z_][a-zA-Z0-9_]*'
                'Comments   //.'
                
                  'Numbers     ([0-9]+\.[0-9]*(e|E)(\+|\-)?[0-9]+)|([0-9]+\.[0-9]*)' +
                  '|([0-9]+)'
                'Strings        '#39'[^'#39']*'#39
                'Whitespace (\s)*')
            end
          end
          object pnResword: TPanel
            Left = 393
            Top = 57
            Width = 408
            Height = 276
            Align = alClient
            BevelOuter = bvNone
            TabOrder = 2
            object laReswordName: TLabel
              Left = 8
              Top = 4
              Width = 74