formmain_ctparams.dfm

一个mwEdit控件原码,比mwCuuEdit0.92a功能先进.

object Form1: TForm1
  Left = 256
  Top = 122
  Width = 754
  Height = 541
  Caption = 'Form1'
  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 SynTest: TSynEdit
    Left = 416
    Top = 8
    Width = 321
    Height = 497
    Cursor = crIBeam
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 0
    Gutter.Font.Charset = DEFAULT_CHARSET
    Gutter.Font.Color = clWindowText
    Gutter.Font.Height = -11
    Gutter.Font.Name = 'Terminal'
    Gutter.Font.Style = []
    Gutter.Visible = False
    Lines.Strings = (
      'This is a Demo to show you how the '
      'Code Completion component works '
      'when the default kind is ctParams.'
      ''
      'Everything really depends on the'
      'code you put in the execute event.'
      'This determines what the parameters'
      'are and what index should be'
      'highlighted.'
      ''
      'See the source file execute event'
      'for more information.')
    RemovedKeystrokes = <
      item
        Command = ecContextHelp
        ShortCut = 112
      end>
    AddedKeystrokes = <
      item
        Command = ecContextHelp
        ShortCut = 16496
      end>
  end
  object SynEdit1: TSynEdit
    Left = 6
    Top = 96
    Width = 401
    Height = 401
    Cursor = crIBeam
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 1
    Gutter.Font.Charset = DEFAULT_CHARSET
    Gutter.Font.Color = clWindowText
    Gutter.Font.Height = -11
    Gutter.Font.Name = 'Terminal'
    Gutter.Font.Style = []
    Lines.Strings = (
      'Use Shift+Ctrl+Space to activate Parameter'
      'completion, or type the function name'
      'and the '#39'('#39' (open paren) to start it with'
      'the timer.'
      ''
      'The valid functions for this example are'
      ''
      'TestFunction'
      'Min'
      'Max'
      ''
      'Below is an example using paren Counting:'
      'Max(a + b(1 + 2), (3 + 4) * c)'
      ''
      'Here is an example of embeded functions'
      ''
      'TestFunction(Min(a, b), SomeVar, Another)')
    RemovedKeystrokes = <
      item
        Command = ecContextHelp
        ShortCut = 112
      end>
    AddedKeystrokes = <
      item
        Command = ecContextHelp
        ShortCut = 16496
      end>
  end
  object Button3: TButton
    Left = 8
    Top = 40
    Width = 75
    Height = 25
    Caption = 'Font'
    TabOrder = 2
    OnClick = Button3Click
  end
  object scpParams: TSynCompletionProposal
    DefaultType = ctParams
    Options = [scoLimitToMatchedText, scoUsePrettyText, scoUseBuiltInTimer]
    ClBackground = clInfoBk
    Width = 262
    EndOfTokenChr = '()[]. '
    TriggerChars = '('
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clBtnText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = [fsBold]
    Columns = <>
    OnExecute = scpParamsExecute
    ShortCut = 24608
    Editor = SynEdit1
    TimerInterval = 1200
    Left = 8
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 44
  end
end