utestform.dfm

来自「著名的Handle」· DFM 代码 · 共 463 行

object Form1: TForm1
  Left = 402
  Top = 212
  Width = 641
  Height = 414
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  object mwEdit: TmwCustomEdit
    Left = 0
    Top = 0
    Width = 633
    Height = 387
    Cursor = crIBeam
    Align = alClient
    ParentColor = False
    ParentFont = False
    TabOrder = 0
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    Keystrokes = <
      item
        ShortCut = 38
        ShortCut2 = 0
        Command = ecUp
      end
      item
        ShortCut = 8230
        ShortCut2 = 0
        Command = ecSelUp
      end
      item
        ShortCut = 16422
        ShortCut2 = 0
        Command = ecScrollUp
      end
      item
        ShortCut = 40
        ShortCut2 = 0
        Command = ecDown
      end
      item
        ShortCut = 8232
        ShortCut2 = 0
        Command = ecSelDown
      end
      item
        ShortCut = 16424
        ShortCut2 = 0
        Command = ecScrollDown
      end
      item
        ShortCut = 37
        ShortCut2 = 0
        Command = ecLeft
      end
      item
        ShortCut = 8229
        ShortCut2 = 0
        Command = ecSelLeft
      end
      item
        ShortCut = 16421
        ShortCut2 = 0
        Command = ecWordLeft
      end
      item
        ShortCut = 24613
        ShortCut2 = 0
        Command = ecSelWordLeft
      end
      item
        ShortCut = 39
        ShortCut2 = 0
        Command = ecRight
      end
      item
        ShortCut = 8231
        ShortCut2 = 0
        Command = ecSelRight
      end
      item
        ShortCut = 16423
        ShortCut2 = 0
        Command = ecWordRight
      end
      item
        ShortCut = 24615
        ShortCut2 = 0
        Command = ecSelWordRight
      end
      item
        ShortCut = 34
        ShortCut2 = 0
        Command = ecPageDown
      end
      item
        ShortCut = 8226
        ShortCut2 = 0
        Command = ecSelPageDown
      end
      item
        ShortCut = 16418
        ShortCut2 = 0
        Command = ecPageBottom
      end
      item
        ShortCut = 24610
        ShortCut2 = 0
        Command = ecSelPageBottom
      end
      item
        ShortCut = 33
        ShortCut2 = 0
        Command = ecPageUp
      end
      item
        ShortCut = 8225
        ShortCut2 = 0
        Command = ecSelPageUp
      end
      item
        ShortCut = 16417
        ShortCut2 = 0
        Command = ecPageTop
      end
      item
        ShortCut = 24609
        ShortCut2 = 0
        Command = ecSelPageTop
      end
      item
        ShortCut = 36
        ShortCut2 = 0
        Command = ecLineStart
      end
      item
        ShortCut = 8228
        ShortCut2 = 0
        Command = ecSelLineStart
      end
      item
        ShortCut = 16420
        ShortCut2 = 0
        Command = ecEditorTop
      end
      item
        ShortCut = 24612
        ShortCut2 = 0
        Command = ecSelEditorTop
      end
      item
        ShortCut = 35
        ShortCut2 = 0
        Command = ecLineEnd
      end
      item
        ShortCut = 8227
        ShortCut2 = 0
        Command = ecSelLineEnd
      end
      item
        ShortCut = 16419
        ShortCut2 = 0
        Command = ecEditorBottom
      end
      item
        ShortCut = 24611
        ShortCut2 = 0
        Command = ecSelEditorBottom
      end
      item
        ShortCut = 45
        ShortCut2 = 0
        Command = ecToggleMode
      end
      item
        ShortCut = 16429
        ShortCut2 = 0
        Command = ecCopy
      end
      item
        ShortCut = 8237
        ShortCut2 = 0
        Command = ecPaste
      end
      item
        ShortCut = 46
        ShortCut2 = 0
        Command = ecDeleteChar
      end
      item
        ShortCut = 8238
        ShortCut2 = 0
        Command = ecCut
      end
      item
        ShortCut = 8
        ShortCut2 = 0
        Command = ecDeleteLastChar
      end
      item
        ShortCut = 16392
        ShortCut2 = 0
        Command = ecDeleteLastWord
      end
      item
        ShortCut = 32776
        ShortCut2 = 0
        Command = ecUndo
      end
      item
        ShortCut = 40968
        ShortCut2 = 0
        Command = ecRedo
      end
      item
        ShortCut = 13
        ShortCut2 = 0
        Command = ecLineBreak
      end
      item
        ShortCut = 16449
        ShortCut2 = 0
        Command = ecSelectAll
      end
      item
        ShortCut = 16451
        ShortCut2 = 0
        Command = ecCopy
      end
      item
        ShortCut = 24649
        ShortCut2 = 0
        Command = ecBlockIndent
      end
      item
        ShortCut = 16461
        ShortCut2 = 0
        Command = ecLineBreak
      end
      item
        ShortCut = 16462
        ShortCut2 = 0
        Command = ecInsertLine
      end
      item
        ShortCut = 16468
        ShortCut2 = 0
        Command = ecDeleteWord
      end
      item
        ShortCut = 24661
        ShortCut2 = 0
        Command = ecBlockUnindent
      end
      item
        ShortCut = 16470
        ShortCut2 = 0
        Command = ecPaste
      end
      item
        ShortCut = 16472
        ShortCut2 = 0
        Command = ecCut
      end
      item
        ShortCut = 16473
        ShortCut2 = 0
        Command = ecDeleteLine
      end
      item
        ShortCut = 24665
        ShortCut2 = 0
        Command = ecDeleteEOL
      end
      item
        ShortCut = 16474
        ShortCut2 = 0
        Command = ecUndo
      end
      item
        ShortCut = 24666
        ShortCut2 = 0
        Command = ecRedo
      end
      item
        ShortCut = 16432
        ShortCut2 = 0
        Command = ecGotoMarker0
      end
      item
        ShortCut = 16433
        ShortCut2 = 0
        Command = ecGotoMarker1
      end
      item
        ShortCut = 16434
        ShortCut2 = 0
        Command = ecGotoMarker2
      end
      item
        ShortCut = 16435
        ShortCut2 = 0
        Command = ecGotoMarker3
      end
      item
        ShortCut = 16436
        ShortCut2 = 0
        Command = ecGotoMarker4
      end
      item
        ShortCut = 16437
        ShortCut2 = 0
        Command = ecGotoMarker5
      end
      item
        ShortCut = 16438
        ShortCut2 = 0
        Command = ecGotoMarker6
      end
      item
        ShortCut = 16439
        ShortCut2 = 0
        Command = ecGotoMarker7
      end
      item
        ShortCut = 16440
        ShortCut2 = 0
        Command = ecGotoMarker8
      end
      item
        ShortCut = 16441
        ShortCut2 = 0
        Command = ecGotoMarker9
      end
      item
        ShortCut = 24624
        ShortCut2 = 0
        Command = ecSetMarker0
      end
      item
        ShortCut = 24625
        ShortCut2 = 0
        Command = ecSetMarker1
      end
      item
        ShortCut = 24626
        ShortCut2 = 0
        Command = ecSetMarker2
      end
      item
        ShortCut = 24627
        ShortCut2 = 0
        Command = ecSetMarker3
      end
      item
        ShortCut = 24628
        ShortCut2 = 0
        Command = ecSetMarker4
      end
      item
        ShortCut = 24629
        ShortCut2 = 0
        Command = ecSetMarker5
      end
      item
        ShortCut = 24630
        ShortCut2 = 0
        Command = ecSetMarker6
      end
      item
        ShortCut = 24631
        ShortCut2 = 0
        Command = ecSetMarker7
      end
      item
        ShortCut = 24632
        ShortCut2 = 0
        Command = ecSetMarker8
      end
      item
        ShortCut = 24633
        ShortCut2 = 0
        Command = ecSetMarker9
      end
      item
        ShortCut = 24654
        ShortCut2 = 0
        Command = ecNormalSelect
      end
      item
        ShortCut = 24643
        ShortCut2 = 0
        Command = ecColumnSelect
      end
      item
        ShortCut = 24652
        ShortCut2 = 0
        Command = ecLineSelect
      end
      item
        ShortCut = 9
        ShortCut2 = 0
        Command = ecTab
      end
      item
        ShortCut = 8201
        ShortCut2 = 0
        Command = ecShiftTab
      end
      item
        ShortCut = 24642
        ShortCut2 = 0
        Command = ecMatchBracket
      end>
    Lines.Strings = (
      
        'This sample highlighter for the mwEdit component suite knows abo' +
        'ut'
      ''
      'the keywords mwEdit and mwEDIT (but not mWeDiT),'
      'strings "this is a so called ""string""",'
      
        'single line comments that start with // this is a single line co' +
        'mment'
      'comments that spread accross multiple lines, starting with /*'
      'and ending at the first */ that'#39's found.'
      ''
      'Note that single line comments could be embedded into'
      '/*'
      'a multi'
      '// line '
      'comment'
      '*/'
      'because they don'#39't alter the range.'
      ''
      'Click the button to create the highlighter...')
    MaxUndo = 10
    ReadOnly = False
    WantTabs = False
  end
  object Button1: TButton
    Left = 416
    Top = 256
    Width = 75
    Height = 25
    Caption = 'Create'
    TabOrder = 1
    OnClick = Button1Click
  end
end