fix #181 - Search, when using completion only hand-typed chars are handled

This commit is contained in:
Basile Burg 2017-08-13 01:10:26 +02:00
parent dd182b0973
commit 387b2afc81
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 19 additions and 17 deletions

View File

@ -29,6 +29,7 @@ inherited CESearchWidget: TCESearchWidget
ItemHeight = 0 ItemHeight = 0
MaxLength = 128 MaxLength = 128
OnChange = cbToFindChange OnChange = cbToFindChange
OnSelect = cbToFindChange
TabOrder = 0 TabOrder = 0
end end
object btnFind: TBitBtn[1] object btnFind: TBitBtn[1]
@ -131,14 +132,14 @@ inherited CESearchWidget: TCESearchWidget
Align = alClient Align = alClient
BorderSpacing.Around = 4 BorderSpacing.Around = 4
Caption = 'Options' Caption = 'Options'
ClientHeight = 69 ClientHeight = 80
ClientWidth = 387 ClientWidth = 389
TabOrder = 4 TabOrder = 4
object chkWWord: TCheckBox object chkWWord: TCheckBox
Left = 8 Left = 8
Height = 26 Height = 21
Top = 0 Top = 0
Width = 97 Width = 94
Caption = 'whole word' Caption = 'whole word'
Checked = True Checked = True
State = cbChecked State = cbChecked
@ -146,17 +147,17 @@ inherited CESearchWidget: TCESearchWidget
end end
object chkBack: TCheckBox object chkBack: TCheckBox
Left = 8 Left = 8
Height = 26 Height = 21
Top = 24 Top = 24
Width = 87 Width = 82
Caption = 'backward' Caption = 'backward'
TabOrder = 1 TabOrder = 1
end end
object chkFromCur: TCheckBox object chkFromCur: TCheckBox
Left = 8 Left = 8
Height = 26 Height = 21
Top = 48 Top = 48
Width = 98 Width = 94
Caption = 'from cursor' Caption = 'from cursor'
Checked = True Checked = True
State = cbChecked State = cbChecked
@ -164,25 +165,25 @@ inherited CESearchWidget: TCESearchWidget
end end
object chkCaseSens: TCheckBox object chkCaseSens: TCheckBox
Left = 128 Left = 128
Height = 26 Height = 21
Top = 0 Top = 0
Width = 111 Width = 105
Caption = 'case sensitive' Caption = 'case sensitive'
TabOrder = 3 TabOrder = 3
end end
object chkPrompt: TCheckBox object chkPrompt: TCheckBox
Left = 128 Left = 128
Height = 26 Height = 21
Top = 24 Top = 24
Width = 73 Width = 70
Caption = 'prompt' Caption = 'prompt'
TabOrder = 4 TabOrder = 4
end end
object chkRegex: TCheckBox object chkRegex: TCheckBox
Left = 128 Left = 128
Height = 26 Height = 21
Top = 48 Top = 48
Width = 96 Width = 92
Caption = 'allow regex' Caption = 'allow regex'
Checked = True Checked = True
State = cbChecked State = cbChecked
@ -247,10 +248,10 @@ inherited CESearchWidget: TCESearchWidget
ClientWidth = 391 ClientWidth = 391
TabOrder = 5 TabOrder = 5
object cbReplaceWth: TComboBox object cbReplaceWth: TComboBox
Left = 108 Left = 102
Height = 23 Height = 23
Top = 0 Top = 0
Width = 283 Width = 289
Align = alClient Align = alClient
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
AutoComplete = True AutoComplete = True
@ -258,13 +259,14 @@ inherited CESearchWidget: TCESearchWidget
ItemHeight = 0 ItemHeight = 0
MaxLength = 128 MaxLength = 128
OnChange = cbReplaceWthChange OnChange = cbReplaceWthChange
OnSelect = cbReplaceWthChange
TabOrder = 1 TabOrder = 1
end end
object chkEnableRep: TCheckBox object chkEnableRep: TCheckBox
Left = 0 Left = 0
Height = 23 Height = 23
Top = 0 Top = 0
Width = 108 Width = 102
Align = alLeft Align = alLeft
Caption = 'Replace with ' Caption = 'Replace with '
OnChange = chkEnableRepChange OnChange = chkEnableRepChange