jvhleditorpropertyform.dfm

East make Tray Icon in delphi

object JvHLEditorParamsForm: TJvHLEditorParamsForm
  Left = 333
  Top = 152
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Editor Properties'
  ClientHeight = 369
  ClientWidth = 435
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  Scaled = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Pages: TPageControl
    Left = 8
    Top = 8
    Width = 419
    Height = 321
    ActivePage = tsColors
    TabIndex = 1
    TabOrder = 0
    object tsEditor: TTabSheet
      Caption = 'Editor'
      object lblEditorSpeedSettings: TLabel
        Left = 30
        Top = 11
        Width = 99
        Height = 13
        Alignment = taRightJustify
        Caption = 'Editor SpeedSettings'
      end
      object lblTabStops: TLabel
        Left = 66
        Top = 230
        Width = 50
        Height = 13
        Alignment = taRightJustify
        Caption = '&Tab stops:'
      end
      object cbKeyboardLayout: TComboBox
        Left = 136
        Top = 6
        Width = 267
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 0
        Items.Strings = (
          'Default keymapping')
      end
      object gbEditor: TGroupBox
        Left = 8
        Top = 35
        Width = 395
        Height = 150
        Caption = 'Editor options:'
        TabOrder = 1
        object cbUndoAfterSave: TCheckBox
          Left = 184
          Top = 16
          Width = 200
          Height = 17
          Caption = '&Undo after sa&ve'
          Checked = True
          State = cbChecked
          TabOrder = 0
          OnClick = NotImplemented
        end
        object cbDoubleClickLine: TCheckBox
          Left = 184
          Top = 56
          Width = 200
          Height = 17
          Caption = '&Double click line'
          TabOrder = 1
        end
        object cbKeepTrailingBlanks: TCheckBox
          Left = 184
          Top = 36
          Width = 200
          Height = 17
          Caption = '&Keep trailing blanks'
          Checked = True
          State = cbChecked
          TabOrder = 2
        end
        object cbSytaxHighlighting: TCheckBox
          Left = 184
          Top = 76
          Width = 200
          Height = 17
          Caption = 'Use &syntax highlight'
          Checked = True
          State = cbChecked
          TabOrder = 3
        end
        object cbAutoIndent: TCheckBox
          Left = 8
          Top = 16
          Width = 169
          Height = 17
          Caption = '&Auto indent mode'
          Checked = True
          State = cbChecked
          TabOrder = 4
        end
        object cbSmartTab: TCheckBox
          Left = 8
          Top = 36
          Width = 169
          Height = 17
          Caption = 'S&mart tab'
          Checked = True
          State = cbChecked
          TabOrder = 5
        end
        object cbBackspaceUnindents: TCheckBox
          Left = 8
          Top = 56
          Width = 169
          Height = 17
          Caption = 'Backspace &unindents'
          Checked = True
          State = cbChecked
          TabOrder = 6
        end
        object cbGroupUndo: TCheckBox
          Left = 8
          Top = 76
          Width = 169
          Height = 17
          Caption = '&Group undo'
          Checked = True
          State = cbChecked
          TabOrder = 7
          OnClick = NotImplemented
        end
        object cbCursorBeyondEOF: TCheckBox
          Left = 8
          Top = 96
          Width = 169
          Height = 17
          Caption = 'Cursor beyond &EOF'
          TabOrder = 8
        end
      end
      object eTabStops: TEdit
        Left = 128
        Top = 224
        Width = 273
        Height = 21
        TabOrder = 2
        Text = '3 5'
      end
    end
    object tsColors: TTabSheet
      Caption = 'Colors'
      object lblColorSpeedSettingsFor: TLabel
        Left = 16
        Top = 11
        Width = 111
        Height = 13
        Alignment = taRightJustify
        Caption = 'Color SpeedSettings for'
      end
      object lblElement: TLabel
        Left = 8
        Top = 32
        Width = 41
        Height = 13
        Caption = '&Element:'
      end
      object lblColor: TLabel
        Left = 173
        Top = 32
        Width = 27
        Height = 13
        Caption = '&Color:'
      end
      object Label6: TLabel
        Left = 96
        Top = 224
        Width = 236
        Height = 13
        Caption = 'JvHLEditorPreview will be created here in run-time'
        Visible = False
      end
      object cbColorSettings: TComboBox
        Left = 136
        Top = 6
        Width = 267
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 0
        OnChange = cbColorSettingsChange
        Items.Strings = (
          'Default'
          'Pascal'
          'CBuilder'
          'Sql'
          'Python'
          'Java'
          'VB'
          'Html'
          'Perl'
          'Ini'
          'Coco/R'
          'PHP'
          'NQC'
          'C#')
      end
      object lbElements: TListBox
        Left = 8
        Top = 48
        Width = 153
        Height = 121
        Style = lbOwnerDrawFixed
        ExtendedSelect = False
        ItemHeight = 13
        Items.Strings = (
          'Whitespace'
          'Comment'
          'Reserved word'
          'Identifier'
          'Symbol'
          'String'
          'Number'
          'Preprocessor'
          'Declaration'
          'Function call'
          'Statement'
          'Plain text'
          'Marked block'
          'Right margin')
        TabOrder = 1
        OnClick = lbElementsClick
        OnDrawItem = lbElementsDrawItem
      end
      object gbTextAttributes: TGroupBox
        Left = 300
        Top = 33
        Width = 104
        Height = 72
        Caption = 'Text attributes:'
        TabOrder = 2
        object cbBold: TCheckBox
          Left = 8
          Top = 17
          Width = 89
          Height = 17
          Caption = '&Bold'
          TabOrder = 0
          OnClick = ColorChange
        end
        object cbItalic: TCheckBox
          Left = 8
          Top = 34
          Width = 89
          Height = 17
          Caption = '&Italic'
          TabOrder = 1
          OnClick = ColorChange
        end
        object cbUnderline: TCheckBox
          Left = 8
          Top = 51
          Width = 89
          Height = 17
          Caption = '&Underline'
          TabOrder = 2
          OnClick = ColorChange
        end
      end
      object gbUseDefaultsFor: TGroupBox
        Left = 299
        Top = 113
        Width = 104
        Height = 56
        Caption = 'Use defaults for:'
        TabOrder = 3
        object cbDefForeground: TCheckBox
          Left = 8
          Top = 17
          Width = 89
          Height = 17
          Caption = '&Foreground'
          TabOrder = 0
          OnClick = DefClick
        end
        object cbDefBackground: TCheckBox
          Left = 8
          Top = 34
          Width = 89
          Height = 17
          Caption = '&Background'
          TabOrder = 1
          OnClick = DefClick
        end
      end
      object Panel1: TPanel
        Left = 170
        Top = 48
        Width = 120
        Height = 120
        BevelOuter = bvNone
        TabOrder = 4
        object Cell0: TPanel
          Left = 1
          Top = 1
          Width = 28
          Height = 28
          BevelInner = bvLowered
          BevelOuter = bvLowered