mainedit.dfm

大家是不是为不知道如何在VB学到绝地程序

object frmJediEdit: TfrmJediEdit
  Left = 134
  Top = 119
  Width = 800
  Height = 600
  Color = clBtnFace
  UseDockManager = True
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  Position = poDefault
  ShowHint = True
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object sptBottom: TSplitter
    Left = 0
    Top = 530
    Width = 792
    Height = 2
    Cursor = crVSplit
    Align = alBottom
    Visible = False
  end
  object ControlBar1: TControlBar
    Left = 0
    Top = 0
    Width = 792
    Height = 26
    Align = alTop
    AutoSize = True
    BevelEdges = []
    BevelInner = bvNone
    BevelOuter = bvNone
    BevelKind = bkFlat
    TabOrder = 0
    OnGetSiteInfo = ControlBar1GetSiteInfo
    object tbMain: TToolBar
      Left = 11
      Top = 2
      Width = 466
      Height = 22
      AutoSize = True
      Caption = 'Main Toolbar'
      DragKind = dkDock
      DragMode = dmAutomatic
      EdgeBorders = []
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      Images = ImageList
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      object tbbNew: TToolButton
        Left = 0
        Top = 0
        Action = FileNew
      end
      object tbbOpen: TToolButton
        Left = 23
        Top = 0
        Action = FileOpen
      end
      object tbbSave: TToolButton
        Left = 46
        Top = 0
        Action = FileSave
      end
      object ToolButton7: TToolButton
        Left = 69
        Top = 0
        Width = 8
        Caption = 'ToolButton7'
        ImageIndex = 7
        Style = tbsSeparator
      end
      object tbbUndo: TToolButton
        Left = 77
        Top = 0
        Action = EditUndo
      end
      object tbbRedo: TToolButton
        Left = 100
        Top = 0
        Action = EditRedo
      end
      object ToolButton6: TToolButton
        Left = 123
        Top = 0
        Width = 8
        Caption = 'ToolButton6'
        ImageIndex = 6
        Style = tbsSeparator
      end
      object tbbCut: TToolButton
        Left = 131
        Top = 0
        Action = EditCut
      end
      object tbbCopy: TToolButton
        Left = 154
        Top = 0
        Action = EditCopy
      end
      object tbbPaste: TToolButton
        Left = 177
        Top = 0
        Action = EditPaste
      end
      object ToolButton15: TToolButton
        Left = 200
        Top = 0
        Width = 8
        Caption = 'ToolButton15'
        ImageIndex = 9
        Style = tbsSeparator
      end
      object tbbFindInFiles: TToolButton
        Left = 208
        Top = 0
        Action = EditFindInFiles
      end
      object tbbFind: TToolButton
        Left = 231
        Top = 0
        Action = EditFind
      end
      object tbbReplace: TToolButton
        Left = 254
        Top = 0
        Action = EditReplace
      end
      object ToolButton1: TToolButton
        Left = 277
        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        ImageIndex = 9
        Style = tbsSeparator
      end
      object tbbLine: TToolButton
        Left = 285
        Top = 0
        Action = LineSelection
        Grouped = True
        Style = tbsCheck
      end
      object tbbNormal: TToolButton
        Left = 308
        Top = 0
        Action = NormalSelection
        Grouped = True
        Style = tbsCheck
      end
      object tbbColumn: TToolButton
        Left = 331
        Top = 0
        Action = ColumnSelection
        Grouped = True
        Style = tbsCheck
      end
      object ToolButton2: TToolButton
        Left = 354
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 21
        Style = tbsSeparator
      end
      object tbbShowLineNo: TToolButton
        Left = 362
        Top = 0
        Action = ShowLineNo
        AllowAllUp = True
      end
      object tbbInsertDateTime: TToolButton
        Left = 385
        Top = 0
        Action = EditDateTime
      end
      object tbbEditorOptions: TToolButton
        Left = 408
        Top = 0
        Action = SetOptions
      end
      object ToolButton3: TToolButton
        Left = 431
        Top = 0
        Width = 8
        Caption = 'ToolButton3'
        ImageIndex = 21
        Style = tbsSeparator
      end
      object tbbQuit: TToolButton
        Left = 439
        Top = 0
        Action = Quit
      end
    end
    object tbHighlighter: TToolBar
      Left = 490
      Top = 2
      Width = 185
      Height = 21
      AutoSize = True
      ButtonHeight = 21
      Caption = 'Highlighter'
      DragKind = dkDock
      DragMode = dmAutomatic
      EdgeBorders = []
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      TabOrder = 1
      object cbxHighlighter: TComboBox
        Left = 0
        Top = 0
        Width = 183
        Height = 21
        TabStop = False
        Style = csDropDownList
        DropDownCount = 16
        ItemHeight = 13
        TabOrder = 0
        OnChange = cbxHighlighterChange
      end
    end
    object tbMacro: TToolBar
      Left = 688
      Top = 2
      Width = 92
      Height = 22
      AutoSize = True
      Caption = 'Macro'
      DragKind = dkDock
      DragMode = dmAutomatic
      EdgeBorders = []
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      Images = ImageList
      TabOrder = 2
      object tbbPlay: TToolButton
        Left = 0
        Top = 0
        Action = MacroPlay
      end
      object tbbRecord: TToolButton
        Left = 23
        Top = 0
        Action = MacroRecord
      end
      object tbbPause: TToolButton
        Left = 46
        Top = 0
        Action = MacroPause
      end
      object tbbStop: TToolButton
        Left = 69
        Top = 0
        Action = MacroStop
      end