qsyneditoptionsdialog.dfm

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

object fmEditorOptionsDialog: TfmEditorOptionsDialog
  Left = 580
  Top = 154
  Width = 369
  Height = 394
  VertScrollBar.Range = 387
  HorzScrollBar.Range = 361
  ActiveControl = PageControl1
  BorderStyle = fbsDialog
  Caption = 'Editor Options'
  Color = clButton
  Font.Color = clText
  Font.Height = 11
  Font.Name = 'MS Sans Serif'
  Font.Pitch = fpVariable
  Font.Style = []
  Font.Weight = 40
  ParentFont = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  TextWidth = 6
  object PageControl1: TPageControl
    Left = 6
    Top = 8
    Width = 355
    Height = 345
    ActivePage = Display
    TabOrder = 0
    object Display: TTabSheet
      Caption = 'Display'
      ImageIndex = 1
      object gbRightEdge: TGroupBox
        Left = 8
        Top = 136
        Width = 159
        Height = 88
        Caption = 'Right Edge'
        TabOrder = 1
        object Label3: TLabel
          Left = 9
          Top = 56
          Width = 54
          Height = 13
          Caption = 'Edge color:'
        end
        object Label10: TLabel
          Left = 9
          Top = 26
          Width = 66
          Height = 13
          Caption = 'Edge Column:'
        end
        object pRightEdgeBack: TPanel
          Left = 80
          Top = 54
          Width = 52
          Height = 21
          BorderWidth = 1
          TabOrder = 1
          object pRightEdgeColor: TPanel
            Left = 2
            Top = 2
            Width = 38
            Height = 17
            Align = alClient
            BevelOuter = bvLowered
            Color = clGray
            TabOrder = 0
            OnClick = pRightEdgeColorClick
          end
          object btnRightEdge: TPanel
            Left = 40
            Top = 2
            Width = 10
            Height = 17
            Align = alRight
            BevelOuter = bvNone
            TabOrder = 1
            OnMouseDown = btnRightEdgeMouseDown
            object Image1: TImage
              Left = 3
              Top = 6
              Width = 5
              Height = 5
              Picture.Data = {
                07544269746D61708E000000424D8A0000000000000076000000280000000500
                000005000000010004000000000014000000C40E0000C40E0000100000000000
                0000000000000000800000800000008080008000000080008000808000008080
                8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
                FF00DDDDD000DD0DD000D000D00000000000DDDDD000}
              Transparent = True
              OnMouseDown = btnRightEdgeMouseDown
            end
          end
        end
        object eRightEdge: TEdit
          Left = 80
          Top = 23
          Width = 51
          Height = 21
          TabOrder = 0
          Text = '0'
        end
      end
      object gbGutter: TGroupBox
        Left = 8
        Top = 8
        Width = 330
        Height = 121
        Caption = 'Gutter'
        TabOrder = 0
        object Label1: TLabel
          Left = 176
          Top = 89
          Width = 58
          Height = 13
          Caption = 'Gutter color:'
        end
        object ckGutterAutosize: TCheckBox
          Left = 9
          Top = 37
          Width = 120
          Height = 17
          Caption = 'Autosize'
          TabOrder = 1
        end
        object ckGutterShowLineNumbers: TCheckBox
          Left = 9
          Top = 56
          Width = 120
          Height = 17
          Caption = 'Show line numbers'
          TabOrder = 2
        end
        object ckGutterShowLeaderZeros: TCheckBox
          Left = 9
          Top = 94
          Width = 120
          Height = 17
          Caption = 'Show leading zeros'
          TabOrder = 4
        end
        object ckGutterStartAtZero: TCheckBox
          Left = 9
          Top = 75
          Width = 120
          Height = 17
          Caption = 'Start at zero'
          TabOrder = 3
        end
        object ckGutterVisible: TCheckBox
          Left = 9
          Top = 18
          Width = 120
          Height = 17
          Caption = 'Visible'
          Checked = True
          State = cbChecked
          TabOrder = 0
        end
        object cbGutterFont: TCheckBox
          Left = 176
          Top = 18
          Width = 120
          Height = 17
          Caption = 'Use Gutter Font'
          TabOrder = 5
          OnClick = cbGutterFontClick
        end
        object btnGutterFont: TButton
          Left = 282
          Top = 13
          Width = 40
          Height = 25
          Caption = 'Font'
          TabOrder = 6
          OnClick = btnGutterFontClick
        end
        object pGutterBack: TPanel
          Left = 252
          Top = 85
          Width = 52
          Height = 21
          BorderWidth = 1
          TabOrder = 8
          object pGutterColor: TPanel
            Left = 2
            Top = 2
            Width = 38
            Height = 17
            Align = alClient
            BevelOuter = bvLowered
            Color = clGray
            TabOrder = 0
            OnClick = pGutterColorClick
          end
          object btnGutterColor: TPanel
            Left = 40
            Top = 2
            Width = 10
            Height = 17
            Align = alRight
            BevelOuter = bvNone
            TabOrder = 1
            OnMouseDown = btnGutterColorMouseDown
            object Image2: TImage
              Left = 3
              Top = 6
              Width = 5
              Height = 5
              Picture.Data = {
                07544269746D61708E000000424D8A0000000000000076000000280000000500
                000005000000010004000000000014000000C40E0000C40E0000100000000000
                0000000000000000800000800000008080008000000080008000808000008080
                8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
                FF00DDDDD000DD0DD000D000D00000000000DDDDD000}
              Transparent = True
              OnMouseDown = btnGutterColorMouseDown
            end
          end
        end
        object pnlGutterFontDisplay: TPanel
          Left = 176
          Top = 40
          Width = 145
          Height = 33
          BevelOuter = bvNone
          TabOrder = 7
          object lblGutterFont: TLabel
            Left = 19
            Top = 9
            Width = 72
            Height = 8
            Caption = 'Terminal 8pt'
            Font.Color = clText
            Font.Height = 11
            Font.Name = 'Terminal'
            Font.Pitch = fpVariable
            Font.Style = []
            Font.Weight = 40
            ParentFont = False
          end
        end
      end
      object gbBookmarks: TGroupBox
        Left = 8
        Top = 232
        Width = 159
        Height = 79
        Caption = 'Bookmarks'
        TabOrder = 3
        object ckBookmarkKeys: TCheckBox
          Left = 9
          Top = 24
          Width = 97
          Height = 17
          Caption = 'Bookmark keys'
          TabOrder = 0
        end
        object ckBookmarkVisible: TCheckBox
          Left = 9
          Top = 48
          Width = 121
          Height = 17
          Caption = 'Bookmarks visible'
          TabOrder = 1
        end
      end
      object gbEditorFont: TGroupBox
        Left = 180
        Top = 232
        Width = 159
        Height = 79
        Caption = 'Editor Font'
        TabOrder = 4
        object btnFont: TButton
          Left = 64
          Top = 49
          Width = 84
          Height = 25
          Caption = 'Font'
          TabOrder = 0
          OnClick = btnFontClick
        end
        object Panel3: TPanel
          Left = 8
          Top = 19
          Width = 143
          Height = 30
          BevelOuter = bvNone
          TabOrder = 1
          object labFont: TLabel
            Left = 2
            Top = 1
            Width = 128
            Height = 16
            Caption = 'Courier New 10pt'
            Font.Color = clText
            Font.Height = 13
            Font.Name = 'Courier New'
            Font.Pitch = fpVariable
            Font.Style = []
            Font.Weight = 40
            ParentFont = False
          end
        end
      end
      object gbLineSpacing: TGroupBox
        Left = 180
        Top = 136
        Width = 159
        Height = 88
        Caption = 'Line spacing / Tab spacing'
        TabOrder = 2
        object Label8: TLabel
          Left = 9
          Top = 27
          Width = 55
          Height = 13
          Caption = 'Extra Lines:'
        end
        object Label9: TLabel
          Left = 9
          Top = 56
          Width = 53
          Height = 13
          Caption = 'Tab Width:'
        end
        object eLineSpacing: TEdit
          Left = 80
          Top = 23
          Width = 52
          Height = 21
          TabOrder = 0
          Text = '0'
        end
        object eTabWidth: TEdit
          Left = 80
          Top = 53
          Width = 52
          Height = 21
          TabOrder = 1
          Text = '8'
        end
      end
    end
    object Options: TTabSheet
      Caption = 'Options'
      ImageIndex = 1
      object gbOptions: TGroupBox
        Left = 8
        Top = 0
        Width = 330
        Height = 247
        Caption = 'Options'
        TabOrder = 0
        object ckAutoIndent: TCheckBox
          Left = 9
          Top = 15
          Width = 130
          Height = 17
          Hint = 
            'Will indent the caret on new lines with the same amount of leadi' +
            'ng white space as the preceding line'
          Caption = 'Auto indent'
          TabOrder = 0
        end
        object ckDragAndDropEditing: TCheckBox
          Left = 9
          Top = 34
          Width = 130
          Height = 17
          Hint = 
            'Allows you to select a block of text and drag it within the docu' +
            'ment to another location'
          Caption = 'Drag and drop editing'
          TabOrder = 1
        end
        object ckDragAndDropFiles: TCheckBox
          Left = 9
          Top = 53
          Width = 130
          Height = 17
          Hint = 'Allows the editor accept OLE file drops'
          Caption = 'Drag and drop files'
          TabOrder = 2
        end
        object ckHalfPageScroll: TCheckBox
          Left = 176
          Top = 15
          Width = 130
          Height = 17
          Hint = 
            'When scrolling with page-up and page-down commands, only scroll ' +
            'a half page at a time'
          Caption = 'Half page scroll'
          TabOrder = 11
        end
        object ckNoSelection: TCheckBox
          Left = 176
          Top = 224
          Width = 130
          Height = 17
          Hint = 'Disables selecting text'
          Caption = 'No selection'
          TabOrder = 21
        end
        object ckNoCaret: TCheckBox
          Left = 9
          Top = 224
          Width = 130
          Height = 17
          Hint = 'Makes it so the caret is never visible'
          Caption = 'No caret'
          TabOrder = 20
        end
        object ckScrollByOneLess: TCheckBox
          Left = 176
          Top = 34
          Width = 130
          Height = 17
          Hint = 'Forces scrolling to be one less'
          Caption = 'Scroll by one less'
          TabOrder = 12
        end
        object ckScrollPastEOF: TCheckBox
          Left = 176
          Top = 53
          Width = 130
          Height = 17
          Hint = 'Allows the cursor to go past the end of file marker'
          Caption = 'Scroll past end of file'
          TabOrder = 13
        end
        object ckScrollPastEOL: TCheckBox
          Left = 176
          Top = 72
          Width = 130
          Height = 17
          Hint = 
            'Allows the cursor to go past the last character into the white s' +
            'pace at the end of a line'
          Caption = 'Scroll past end of line'
          TabOrder = 14
        end
        object ckShowScrollHint: TCheckBox
          Left = 176
          Top = 91
          Width = 130
          Height = 17
          Hint = 
            'Shows a hint of the visible line numbers when scrolling vertical' +
            'ly'
          Caption = 'Show scroll hint'
          TabOrder = 15
        end
        object ckSmartTabs: TCheckBox
          Left = 9
          Top = 129
          Width = 130
          Height = 17
          Hint = 
            'When tabbing, the cursor will go to the next non-white space cha' +
            'racter of the previous line'
          Caption = 'Smart tabs'
          TabOrder = 6
        end
        object ckTabsToSpaces: TCheckBox