upasfileeditsetform.dfm

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

object PasFileEditSetForm: TPasFileEditSetForm
  Left = 288
  Top = 182
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #20195#30721#39068#33394#35774#32622
  ClientHeight = 422
  ClientWidth = 415
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object lblKind: TLabel
    Left = 8
    Top = 8
    Width = 48
    Height = 12
    Caption = #31867#21035'(&K):'
    FocusControl = Kind
  end
  object Kind: TListBox
    Left = 8
    Top = 24
    Width = 209
    Height = 153
    ItemHeight = 12
    Items.Strings = (
      'Asm Attributes'
      'Char Attributes'
      'Comment Attributes'
      'Directive Attributes'
      'Float Attributes'
      'Hex Attributes'
      'Identifier Attributes'
      'Key Attributes'
      'Number Attributes'
      'Space Attributes'
      'String Attributes'
      'Symbol Attributes')
    TabOrder = 0
    OnClick = KindClick
  end
  object GroupBox1: TGroupBox
    Left = 224
    Top = 24
    Width = 185
    Height = 153
    Caption = #35774#32622#31361#20986#26174#31034
    TabOrder = 1
    object FColor: TCheckBox
      Left = 8
      Top = 16
      Width = 73
      Height = 17
      Caption = #21069#26223#33394'(&F)'
      TabOrder = 0
      OnClick = FColorClick
    end
    object BColor: TCheckBox
      Left = 8
      Top = 40
      Width = 73
      Height = 17
      Caption = #32972#26223#33394'(&G)'
      TabOrder = 1
      OnClick = BColorClick
    end
    object Panel1: TPanel
      Left = 8
      Top = 64
      Width = 169
      Height = 81
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 2
      object Bold: TCheckBox
        Left = 40
        Top = 8
        Width = 65
        Height = 17
        Caption = #31895#20307'(&B)'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        OnClick = BoldClick
      end
      object Italic: TCheckBox
        Left = 40
        Top = 32
        Width = 65
        Height = 17
        Caption = #26012#20307'(&I)'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = [fsItalic]
        ParentFont = False
        TabOrder = 1
        OnClick = ItalicClick
      end
      object Underline: TCheckBox
        Left = 40
        Top = 56
        Width = 81
        Height = 17
        Caption = #19979#21010#32447'(&U)'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = [fsUnderline]
        ParentFont = False
        TabOrder = 2
        OnClick = UnderlineClick
      end
    end
    object pnlFColor: TPanel
      Left = 88
      Top = 16
      Width = 81
      Height = 17
      Cursor = crHandPoint
      Color = clNone
      TabOrder = 3
      OnClick = pnlFColorClick
    end
    object pnlBColor: TPanel
      Left = 88
      Top = 40
      Width = 81
      Height = 17
      Cursor = crHandPoint
      Color = clNone
      TabOrder = 4
      OnClick = pnlBColorClick
    end
  end
  object Editor: TSynMemo
    Left = 8
    Top = 184
    Width = 401
    Height = 201
    Cursor = crArrow
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 2
    Gutter.Font.Charset = DEFAULT_CHARSET
    Gutter.Font.Color = clWindowText
    Gutter.Font.Height = -11
    Gutter.Font.Name = 'Terminal'
    Gutter.Font.Style = []
    Highlighter = PasFileEditForm.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
        ShortCut = 8231
      end
      item
        Command = ecWordRight
        ShortCut = 16423
      end
      item
        Command = ecSelWordRight
        ShortCut = 24615
      end
      item
        Command = ecPageDown
        ShortCut = 34
      end
      item
        Command = ecSelPageDown
        ShortCut = 8226
      end
      item
        Command = ecPageBottom
        ShortCut = 16418
      end
      item
        Command = ecSelPageBottom
        ShortCut = 24610
      end
      item
        Command = ecPageUp
        ShortCut = 33
      end
      item
        Command = ecSelPageUp
        ShortCut = 8225
      end
      item
        Command = ecPageTop
        ShortCut = 16417
      end
      item
        Command = ecSelPageTop
        ShortCut = 24609
      end
      item
        Command = ecLineStart
        ShortCut = 36
      end
      item
        Command = ecSelLineStart
        ShortCut = 8228
      end
      item
        Command = ecEditorTop
        ShortCut = 16420
      end
      item
        Command = ecSelEditorTop
        ShortCut = 24612
      end
      item
        Command = ecLineEnd
        ShortCut = 35
      end
      item
        Command = ecSelLineEnd
        ShortCut = 8227
      end
      item
        Command = ecEditorBottom
        ShortCut = 16419
      end
      item
        Command = ecSelEditorBottom
        ShortCut = 24611
      end
      item
        Command = ecToggleMode
        ShortCut = 45
      end
      item
        Command = ecCopy
        ShortCut = 16429
      end
      item
        Command = ecCut
        ShortCut = 8238
      end
      item
        Command = ecPaste
        ShortCut = 8237
      end
      item
        Command = ecDeleteChar
        ShortCut = 46
      end
      item
        Command = ecDeleteLastChar
        ShortCut = 8
      end
      item
        Command = ecDeleteLastChar
        ShortCut = 8200
      end
      item
        Command = ecDeleteLastWord
        ShortCut = 16392
      end
      item
        Command = ecUndo
        ShortCut = 32776
      end
      item
        Command = ecRedo
        ShortCut = 40968
      end
      item
        Command = ecLineBreak
        ShortCut = 13
      end
      item
        Command = ecLineBreak
        ShortCut = 8205
      end
      item
        Command = ecTab
        ShortCut = 9
      end
      item
        Command = ecShiftTab
        ShortCut = 8201
      end
      item
        Command = ecContextHelp
        ShortCut = 16496
      end
      item
        Command = ecSelectAll
        ShortCut = 16449
      end
      item
        Command = ecCopy
        ShortCut = 16451
      end
      item
        Command = ecPaste
        ShortCut = 16470
      end
      item
        Command = ecCut
        ShortCut = 16472
      end
      item
        Command = ecBlockIndent
        ShortCut = 24649
      end
      item
        Command = ecBlockUnindent
        ShortCut = 24661
      end
      item
        Command = ecLineBreak
        ShortCut = 16461
      end
      item
        Command = ecInsertLine
        ShortCut = 16462
      end
      item
        Command = ecDeleteWord
        ShortCut = 16468
      end
      item
        Command = ecDeleteLine
        ShortCut = 16473
      end
      item
        Command = ecDeleteEOL
        ShortCut = 24665
      end
      item
        Command = ecUndo
        ShortCut = 16474
      end
      item
        Command = ecRedo
        ShortCut = 24666
      end
      item
        Command = ecGotoMarker0
        ShortCut = 16432
      end
      item
        Command = ecGotoMarker1
        ShortCut = 16433
      end
      item
        Command = ecGotoMarker2
        ShortCut = 16434
      end
      item
        Command = ecGotoMarker3
        ShortCut = 16435
      end
      item
        Command = ecGotoMarker4
        ShortCut = 16436
      end
      item
        Command = ecGotoMarker5
        ShortCut = 16437
      end
      item
        Command = ecGotoMarker6
        ShortCut = 16438
      end
      item
        Command = ecGotoMarker7
        ShortCut = 16439
      end
      item
        Command = ecGotoMarker8
        ShortCut = 16440
      end
      item
        Command = ecGotoMarker9
        ShortCut = 16441
      end
      item
        Command = ecSetMarker0
        ShortCut = 24624
      end
      item
        Command = ecSetMarker1
        ShortCut = 24625
      end
      item
        Command = ecSetMarker2
        ShortCut = 24626
      end
      item
        Command = ecSetMarker3
        ShortCut = 24627
      end
      item
        Command = ecSetMarker4
        ShortCut = 24628
      end
      item
        Command = ecSetMarker5
        ShortCut = 24629
      end
      item
        Command = ecSetMarker6
        ShortCut = 24630
      end
      item
        Command = ecSetMarker7
        ShortCut = 24631
      end
      item
        Command = ecSetMarker8
        ShortCut = 24632
      end
      item
        Command = ecSetMarker9
        ShortCut = 24633
      end
      item
        Command = ecNormalSelect
        ShortCut = 24654
      end
      item
        Command = ecColumnSelect
        ShortCut = 24643
      end
      item
        Command = ecLineSelect
        ShortCut = 24652
      end
      item
        Command = ecMatchBracket
        ShortCut = 24642
      end>
    Lines.Strings = (
      '{ Syntax Highlighting }'
      'procedure TForm1.Button1Click(Sender: TObject);'
      'var'
      '  Number, I, X: Integer;'
      '  Chr: Char;'
      'begin'
      '  Chr := '#39'A'#39';'
      '  Number := 12356;'
      '  Caption := '#39'The number is '#39' + IntToStr(JNumber);'
      '  { Search Match, Text Block }'
      '  { Ivalid breakpoint }'
      '  for I := 0 to Number do { execution point }'
      '  begin'
      '    Inc(X); { Enabled breakpoint }'
      '    Dec(X); {Disabled breakpoint }'
      '    X := X + 1.0; { Error line }'
      '    ListBox1.Items.Add(IntToStr(X));'
      '  end;'
      '  asm'
      '    MOV  AX, 1234H'
      '    MOV  Number, AX'
      '  end;'
      'end;')
    Options = [eoAutoIndent, eoDragDropEditing, eoGroupUndo, eoNoCaret, eoNoSelection, eoScrollPastEol, eoShowScrollHint, eoSmartTabDelete, eoSmartTabs, eoTabsToSpaces, eoTrimTrailingSpaces]
    ReadOnly = True
  end
  object Cancel: TButton
    Left = 248
    Top = 392
    Width = 75
    Height = 23
    Caption = #21462#28040
    TabOrder = 3
    OnClick = CancelClick
  end
  object Apply: TButton
    Left = 328
    Top = 392
    Width = 75
    Height = 23
    Caption = #24212#29992#20462#25913'(&A)'
    TabOrder = 4
    OnClick = ApplyClick
  end
  object ColorDialog: TColorDialog
    Ctl3D = True
    Options = [cdFullOpen]
    Left = 64
    Top = 8
  end
end