home *** CD-ROM | disk | FTP | other *** search
- object SugDialog: TSugDialog
- Left = 320
- Top = 115
- ActiveControl = BtnIgnore
- BorderIcons = []
- BorderStyle = bsDialog
- Caption = 'Suggestions'
- ClientHeight = 163
- ClientWidth = 343
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Pitch = fpVariable
- Font.Style = []
- FormStyle = fsStayOnTop
- PixelsPerInch = 96
- Position = poDefaultPosOnly
- Scaled = False
- TextHeight = 16
- object Label1: TLabel
- Left = 88
- Top = 8
- Width = 81
- Height = 13
- Caption = 'Not in Dictionary:'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- end
- object Label2: TLabel
- Left = 112
- Top = 32
- Width = 56
- Height = 13
- Caption = 'Change To:'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- end
- object NotWord: TEdit
- Left = 176
- Top = 4
- Width = 165
- Height = 20
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- ReadOnly = True
- TabOrder = 0
- end
- object SuggestList: TListBox
- Left = 176
- Top = 52
- Width = 165
- Height = 109
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ItemHeight = 13
- ParentFont = False
- TabOrder = 1
- OnClick = SuggestListClick
- OnDblClick = SuggestListDblClick
- end
- object BtnChange: TButton
- Left = 0
- Top = 80
- Width = 85
- Height = 25
- Caption = '&Change'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ModalResult = 101
- ParentFont = False
- TabOrder = 2
- OnClick = BtnChangeClick
- end
- object BtnIgnore: TButton
- Left = 0
- Top = 52
- Width = 85
- Height = 25
- Caption = '&Ignore'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ModalResult = 103
- ParentFont = False
- TabOrder = 3
- OnClick = BtnIgnoreClick
- end
- object BtnAdd: TButton
- Left = 0
- Top = 108
- Width = 85
- Height = 25
- Caption = '&Add'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ModalResult = 102
- ParentFont = False
- TabOrder = 4
- OnClick = BtnAddClick
- end
- object BtnSuggest: TButton
- Left = 88
- Top = 108
- Width = 85
- Height = 25
- Caption = '&Suggest'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- TabOrder = 5
- OnClick = BtnSuggestClick
- end
- object BtnCancel: TButton
- Left = 0
- Top = 136
- Width = 85
- Height = 25
- Caption = 'Cancel'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ModalResult = 100
- ParentFont = False
- TabOrder = 6
- OnClick = BtnCancelClick
- end
- object WordEdit: TEdit
- Left = 176
- Top = 28
- Width = 165
- Height = 20
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- TabOrder = 7
- OnKeyPress = WordEditKeyPress
- end
- object BtnIgnoreAll: TButton
- Left = 88
- Top = 52
- Width = 85
- Height = 25
- Caption = 'I&gnore All'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ModalResult = 103
- ParentFont = False
- TabOrder = 8
- OnClick = BtnIgnoreAllClick
- end
- object BtnChangeAll: TButton
- Left = 88
- Top = 80
- Width = 85
- Height = 25
- Caption = 'Change Al&l'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ModalResult = 101
- ParentFont = False
- TabOrder = 9
- OnClick = BtnChangeAllClick
- end
- object BtnPhoneme: TButton
- Left = 88
- Top = 136
- Width = 85
- Height = 25
- Caption = '&Phoneme'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- TabOrder = 10
- OnClick = BtnPhonemeClick
- end
- end
-