upasfileeditform.dfm

Delphi函数工厂。。。。。。。。。。。。。

object PasFileEditForm: TPasFileEditForm
  Left = 202
  Top = 214
  Width = 717
  Height = 546
  ActiveControl = mmContent
  Caption = 'Delphi'#31243#24207#32534#36753#22120
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 709
    Height = 33
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 27
        Width = 420
      end
      item
        Break = False
        Control = ToolBar2
        ImageIndex = -1
        Width = 287
      end>
    EdgeInner = esNone
    EdgeOuter = esNone
    Images = ImageList1
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 407
      Height = 27
      Caption = 'ToolBar1'
      DisabledImages = ImageList1
      Flat = True
      Images = ImageList1
      TabOrder = 0
      object ToolButton11: TToolButton
        Left = 0
        Top = 0
        Cursor = crDrag
        Action = new
        ParentShowHint = False
        ShowHint = True
      end
      object ToolButton13: TToolButton
        Left = 23
        Top = 0
        Hint = #25171#24320
        Action = open
        ParentShowHint = False
        ShowHint = True
      end
      object ToolButton16: TToolButton
        Left = 46
        Top = 0
        Action = save
        ParentShowHint = False
        ShowHint = True
      end
      object ToolButton23: TToolButton
        Left = 69
        Top = 0
        Width = 4
        Caption = 'ToolButton23'
        ImageIndex = 3
        Style = tbsDivider
      end
      object ToolButton2: TToolButton
        Left = 73
        Top = 0
        Action = undo
        ParentShowHint = False
        ShowHint = True
      end
      object ToolButton1: TToolButton
        Left = 96
        Top = 0
        Action = redo
        ParentShowHint = False
        ShowHint = True
      end
      object ToolButton21: TToolButton
        Left = 119
        Top = 0
        Width = 4
        Caption = 'ToolButton21'
        ImageIndex = 3
        Style = tbsDivider
      end
      object ToolButton5: TToolButton
        Left = 123
        Top = 0
        Action = copy
        ParentShowHint = False
        ShowHint = True
      end
      object ToolButton6: TToolButton
        Left = 146
        Top = 0
        Action = Paste
        ParentShowHint = False
        ShowHint = True
      end
      object ToolButton9: TToolButton
        Left = 169
        Top = 0
        Action = cut
        ParentShowHint = False
        ShowHint = True
      end
      object ToolButton20: TToolButton
        Left = 192
        Top = 0
        Width = 4
        Caption = 'ToolButton20'
        ImageIndex = 4
        Style = tbsDivider
      end
      object ToolButton10: TToolButton
        Left = 196
        Top = 0
        Action = find
        ParentShowHint = False
        ShowHint = True
      end
      object ToolButton18: TToolButton
        Left = 219
        Top = 0
        Action = replace
        ParentShowHint = False
        ShowHint = True
      end
      object ToolButton12: TToolButton
        Left = 242
        Top = 0
        Width = 4
        Caption = 'ToolButton12'
        ImageIndex = 11
        Style = tbsDivider
      end
      object ToolButton7: TToolButton
        Left = 246
        Top = 0
        Action = tohtml
        ParentShowHint = False
        ShowHint = True
      end
      object ToolButton24: TToolButton
        Left = 269
        Top = 0
        Action = tohtmlOnClipboard
        ParentShowHint = False
        ShowHint = True
      end
      object ToolButton22: TToolButton
        Left = 292
        Top = 0
        Width = 8
        Caption = 'ToolButton22'
        ImageIndex = 3
        Style = tbsSeparator
      end
      object ToolButton25: TToolButton
        Left = 300
        Top = 0
        Action = showlines
        ParentShowHint = False
        ShowHint = True
      end
      object ToolButton8: TToolButton
        Left = 323
        Top = 0
        Width = 4
        Caption = 'ToolButton8'
        ImageIndex = 3
        Style = tbsDivider
      end
      object ToolButton17: TToolButton
        Left = 327
        Top = 0
        Action = Set1
        ParentShowHint = False
        ShowHint = True
      end
      object ToolButton19: TToolButton
        Left = 350
        Top = 0
        Width = 4
        Caption = 'ToolButton19'
        ImageIndex = 4
        Style = tbsDivider
      end
      object ToolButton4: TToolButton
        Left = 354
        Top = 0
        Action = about
        ParentShowHint = False
        ShowHint = True
      end
      object ToolButton3: TToolButton
        Left = 377
        Top = 0
        Action = exit
        ParentShowHint = False
        ShowHint = True
      end
    end
    object ToolBar2: TToolBar
      Left = 431
      Top = 1
      Width = 274
      Height = 25
      ButtonHeight = 20
      Caption = 'ToolBar2'
      TabOrder = 1
      object cbFontName: TComboBox
        Left = 0
        Top = 2
        Width = 145
        Height = 20
        ItemHeight = 12
        TabOrder = 1
        Text = 'Courier New'
        OnChange = cbFontNameChange
      end
      object cbFontSize: TComboBox
        Left = 145
        Top = 2
        Width = 55
        Height = 20
        ItemHeight = 12
        TabOrder = 0
        Text = '10'
        OnChange = cbFontSizeChange
        Items.Strings = (
          '8'
          '10'
          '12'
          '14'
          '18'
          '24')
      end
    end
  end
  object mmContent: TSynMemo
    Left = 0
    Top = 33
    Width = 709
    Height = 448
    Cursor = crIBeam
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 1
    TabStop = False
    Gutter.Font.Charset = GB2312_CHARSET
    Gutter.Font.Color = clBlue
    Gutter.Font.Height = -11
    Gutter.Font.Name = #23435#20307
    Gutter.Font.Style = []
    Gutter.ShowLineNumbers = True
    Highlighter = SynPasSyn
    Keystrokes = <
      item
        Command = ecUp
        ShortCut = 38
      end
      item
        Command = ecSelUp
        ShortCut = 8230
      end
      item
        Command = ecScrollUp
        ShortCut = 16422
      end
      item
        Command = ecDown
        ShortCut = 40
      end
      item
        Command = ecSelDown
        ShortCut = 8232
      end
      item
        Command = ecScrollDown
        ShortCut = 16424
      end
      item
        Command = ecLeft
        ShortCut = 37
      end
      item
        Command = ecSelLeft
        ShortCut = 8229
      end
      item
        Command = ecWordLeft
        ShortCut = 16421
      end
      item
        Command = ecSelWordLeft
        ShortCut = 24613
      end
      item
        Command = ecRight
        ShortCut = 39
      end
      item
        Command = ecSelRight