home *** CD-ROM | disk | FTP | other *** search
- object FrmAutoComplete: TFrmAutoComplete
- Left = 402
- Top = 128
- BorderIcons = [biSystemMenu]
- BorderStyle = bsSingle
- Caption = 'Message Shortcuts and Auto-Complete'
- ClientHeight = 380
- ClientWidth = 592
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- OldCreateOrder = False
- Position = poDefaultPosOnly
- Scaled = False
- OnClose = FormClose
- OnCreate = FormCreate
- PixelsPerInch = 120
- TextHeight = 16
- object GroupBox1: TElGroupBox
- Left = 8
- Top = 10
- Width = 576
- Height = 54
- AutoDisableChildren = False
- BorderSides = [ebsLeft, ebsRight, ebsTop, ebsBottom]
- Caption = ' Message Body Auto-Complete '
- Flat = False
- FlatAlways = False
- ShowFocus = False
- TabOrder = 0
- object cbEnable: TElCheckBox
- Left = 38
- Top = 22
- Width = 233
- Height = 20
- Cursor = crDefault
- Flat = True
- Caption = 'Enable auto-complete after pressing'
- TabOrder = 0
- Color = clBtnFace
- ParentColor = False
- DoubleBuffered = False
- end
- object cbCharacter: TElComboBox
- Left = 312
- Top = 20
- Width = 103
- Height = 24
- Cursor = crIBeam
- UseCustomScrollBars = True
- NotifyUserChangeOnly = True
- BorderStyle = bsSingle
- BorderSides = [ebsLeft, ebsRight, ebsTop, ebsBottom]
- BtnArrowColor = clBlack
- AltBtnWidth = 21
- AutoCompletion = False
- Items.Strings = (
- '<space>'
- '.'
- ','
- '#'
- '*'
- '/'
- ';'
- #39
- '\')
- ListSelectedColor = clHighlight
- AutoSelect = True
- TopMargin = 2
- RightMargin = 5
- LineBorderActiveColor = clBlack
- LineBorderInactiveColor = clBlack
- ParentColor = False
- ReadOnly = True
- TabOrder = 1
- OnChange = cbCharacterChange
- AltButtonShortcut = 0
- ButtonShortcut = 0
- Style = csDropDownList
- ItemHeight = 16
- end
- end
- object GroupBox2: TElGroupBox
- Left = 8
- Top = 76
- Width = 576
- Height = 249
- AutoDisableChildren = False
- BorderSides = [ebsLeft, ebsRight, ebsTop, ebsBottom]
- Caption = ' Defined Auto-Complete Shortcuts '
- Flat = False
- FlatAlways = False
- ShowFocus = False
- TabOrder = 1
- object Label1: TLabel
- Left = 14
- Top = 24
- Width = 60
- Height = 16
- Caption = 'Shortcuts:'
- end
- object Label2: TLabel
- Left = 132
- Top = 24
- Width = 99
- Height = 16
- Caption = 'Loaded Shortcut:'
- end
- object LblText: TLabel
- Left = 132
- Top = 50
- Width = 239
- Height = 16
- Caption = 'Typing "" will instead insert following text:'
- end
- object lbShortcuts: TElAdvancedListBox
- Left = 14
- Top = 44
- Width = 101
- Height = 169
- ItemHeight = 16
- TabOrder = 0
- OnClick = lbShortcutsClick
- SelectedFont.Charset = DEFAULT_CHARSET
- SelectedFont.Color = clHighlightText
- SelectedFont.Height = -13
- SelectedFont.Name = 'Arial'
- SelectedFont.Style = []
- HorizontalScroll = False
- end
- object EditShortcut: TElAdvancedEdit
- Left = 260
- Top = 20
- Width = 129
- Height = 24
- TabOrder = 1
- OnChange = EditShortcutChange
- end
- object MemoText: TElAdvancedMemo
- Left = 130
- Top = 68
- Width = 435
- Height = 171
- TabOrder = 3
- end
- object BtnSave: TButton
- Left = 403
- Top = 21
- Width = 92
- Height = 23
- Caption = '&Save'
- TabOrder = 2
- OnClick = BtnSaveClick
- end
- object BtnDelete: TButton
- Left = 14
- Top = 217
- Width = 101
- Height = 23
- Caption = '&Delete'
- TabOrder = 4
- OnClick = BtnDeleteClick
- end
- end
- object BtnClose: TButton
- Left = 480
- Top = 337
- Width = 100
- Height = 30
- Cancel = True
- Caption = 'Close'
- Default = True
- TabOrder = 2
- OnClick = BtnCloseClick
- end
- end
-