taazz, as you have probably noticed, there is a checkbox missing... one for "Confirm Replace". Error of omission on my part.I assume that its always on, its the safer option any way. I added a check box to start searching from top or from current position when pressing findfirst/replacefirst which is (IMHO) a lot more important. I'm working on the selection portion of the search at the moment when finish I'll apply the changes to the replace procedure as well and attach it in a new post. It will take a bit of time though it needs a bit of a fine touch.
object Form1: TForm1
Left = 478
Height = 482
Top = 167
Width = 783
Caption = 'Form1'
ClientHeight = 482
ClientWidth = 783
LCLVersion = '1.8.2.0'
inline SynEdit1: TSynEdit
Left = 0
Height = 482
Top = 0
Width = 320
Align = alLeft
Font.Height = -13
Font.Name = 'Courier New'
Font.Pitch = fpFixed
Font.Quality = fqNonAntialiased
ParentColor = False
ParentFont = False
TabOrder = 0
Gutter.Width = 65
Gutter.MouseActions = <>
RightGutter.Width = 0
RightGutter.MouseActions = <>
Keystrokes = <
item
Command = ecUp
ShortCut = 38
end
item
Command = ecSelUp
ShortCut = 8230
end
item
Command = ecScrollUp
ShortCut = 16422
end
item
Command = ecDown
ShortCut = 40
end
item
Command = ecSelDown
ShortCut = 8232
end
item
Command = ecScrollDown
ShortCut = 16424
end
item
Command = ecLeft
ShortCut = 37
end
item
Command = ecSelLeft
ShortCut = 8229
end
item
Command = ecWordLeft
ShortCut = 16421
end
item
Command = ecSelWordLeft
ShortCut = 24613
end
item
Command = ecRight
ShortCut = 39
end
item
Command = ecSelRight
ShortCut = 8231
end
item
Command = ecWordRight
ShortCut = 16423
end
item
Command = ecSelWordRight
ShortCut = 24615
end
item
Command = ecPageDown
ShortCut = 34
end
item
Command = ecSelPageDown
ShortCut = 8226
end
item
Command = ecPageBottom
ShortCut = 16418
end
item
Command = ecSelPageBottom
ShortCut = 24610
end
item
Command = ecPageUp
ShortCut = 33
end
item
Command = ecSelPageUp
ShortCut = 8225
end
item
Command = ecPageTop
ShortCut = 16417
end
item
Command = ecSelPageTop
ShortCut = 24609
end
item
Command = ecLineStart
ShortCut = 36
end
item
Command = ecSelLineStart
ShortCut = 8228
end
item
Command = ecEditorTop
ShortCut = 16420
end
item
Command = ecSelEditorTop
ShortCut = 24612
end
item
Command = ecLineEnd
ShortCut = 35
end
item
Command = ecSelLineEnd
ShortCut = 8227
end
item
Command = ecEditorBottom
ShortCut = 16419
end
item
Command = ecSelEditorBottom
ShortCut = 24611
end
item
Command = ecToggleMode
ShortCut = 45
end
item
Command = ecCopy
ShortCut = 16429
end
item
Command = ecPaste
ShortCut = 8237
end
item
Command = ecDeleteChar
ShortCut = 46
end
item
Command = ecCut
ShortCut = 8238
end
item
Command = ecDeleteLastChar
ShortCut = 8
end
item
Command = ecDeleteLastChar
ShortCut = 8200
end
item
Command = ecDeleteLastWord
ShortCut = 16392
end
item
Command = ecUndo
ShortCut = 32776
end
item
Command = ecRedo
ShortCut = 40968
end
item
Command = ecLineBreak
ShortCut = 13
end
item
Command = ecSelectAll
ShortCut = 16449
end
item
Command = ecCopy
ShortCut = 16451
end
item
Command = ecBlockIndent
ShortCut = 24649
end
item
Command = ecLineBreak
ShortCut = 16461
end
item
Command = ecInsertLine
ShortCut = 16462
end
item
Command = ecDeleteWord
ShortCut = 16468
end
item
Command = ecBlockUnindent
ShortCut = 24661
end
item
Command = ecPaste
ShortCut = 16470
end
item
Command = ecCut
ShortCut = 16472
end
item
Command = ecDeleteLine
ShortCut = 16473
end
item
Command = ecDeleteEOL
ShortCut = 24665
end
item
Command = ecUndo
ShortCut = 16474
end
item
Command = ecRedo
ShortCut = 24666
end
item
Command = ecGotoMarker0
ShortCut = 16432
end
item
Command = ecGotoMarker1
ShortCut = 16433
end
item
Command = ecGotoMarker2
ShortCut = 16434
end
item
Command = ecGotoMarker3
ShortCut = 16435
end
item
Command = ecGotoMarker4
ShortCut = 16436
end
item
Command = ecGotoMarker5
ShortCut = 16437
end
item
Command = ecGotoMarker6
ShortCut = 16438
end
item
Command = ecGotoMarker7
ShortCut = 16439
end
item
Command = ecGotoMarker8
ShortCut = 16440
end
item
Command = ecGotoMarker9
ShortCut = 16441
end
item
Command = ecSetMarker0
ShortCut = 24624
end
item
Command = ecSetMarker1
ShortCut = 24625
end
item
Command = ecSetMarker2
ShortCut = 24626
end
item
Command = ecSetMarker3
ShortCut = 24627
end
item
Command = ecSetMarker4
ShortCut = 24628
end
item
Command = ecSetMarker5
ShortCut = 24629
end
item
Command = ecSetMarker6
ShortCut = 24630
end
item
Command = ecSetMarker7
ShortCut = 24631
end
item
Command = ecSetMarker8
ShortCut = 24632
end
item
Command = ecSetMarker9
ShortCut = 24633
end
item
Command = EcFoldLevel1
ShortCut = 41009
end
item
Command = EcFoldLevel2
ShortCut = 41010
end
item
Command = EcFoldLevel3
ShortCut = 41011
end
item
Command = EcFoldLevel4
ShortCut = 41012
end
item
Command = EcFoldLevel5
ShortCut = 41013
end
item
Command = EcFoldLevel6
ShortCut = 41014
end
item
Command = EcFoldLevel7
ShortCut = 41015
end
item
Command = EcFoldLevel8
ShortCut = 41016
end
item
Command = EcFoldLevel9
ShortCut = 41017
end
item
Command = EcFoldLevel0
ShortCut = 41008
end
item
Command = EcFoldCurrent
ShortCut = 41005
end
item
Command = EcUnFoldCurrent
ShortCut = 41003
end
item
Command = EcToggleMarkupWord
ShortCut = 32845
end
item
Command = ecNormalSelect
ShortCut = 24654
end
item
Command = ecColumnSelect
ShortCut = 24643
end
item
Command = ecLineSelect
ShortCut = 24652
end
item
Command = ecTab
ShortCut = 9
end
item
Command = ecShiftTab
ShortCut = 8201
end
item
Command = ecMatchBracket
ShortCut = 24642
end
item
Command = ecColSelUp
ShortCut = 40998
end
item
Command = ecColSelDown
ShortCut = 41000
end
item
Command = ecColSelLeft
ShortCut = 40997
end
item
Command = ecColSelRight
ShortCut = 40999
end
item
Command = ecColSelPageDown
ShortCut = 40994
end
item
Command = ecColSelPageBottom
ShortCut = 57378
end
item
Command = ecColSelPageUp
ShortCut = 40993
end
item
Command = ecColSelPageTop
ShortCut = 57377
end
item
Command = ecColSelLineStart
ShortCut = 40996
end
item
Command = ecColSelLineEnd
ShortCut = 40995
end
item
Command = ecColSelEditorTop
ShortCut = 57380
end
item
Command = ecColSelEditorBottom
ShortCut = 57379
end>
MouseActions = <>
MouseTextActions = <>
MouseSelActions = <>
Lines.Strings = (
'spontaneous'
'discriminate'
'competition'
'responsibility'
'literature'
'manufacturer'
'organisation'
'implication'
'superintendent'
'photocopy'
'available'
'constellation'
'anniversary'
'technology'
'reputation'
'redundancy'
'personality'
'fashionable'
'environmental'
'constitutional'
'hypothesize'
'nationalism'
'electronics'
'achievement'
'ambiguous'
'characteristic'
'embarrassment'
'accessible'
'artificial'
'deteriorate'
'systematic'
'nationalist'
'prosecution'
'contradiction'
'distributor'
'favorable'
'intervention'
'temporary'
'development'
'possibility'
'remunerate'
'intermediate'
'minority'
'publication'
'policeman'
'declaration'
'apparatus'
'economy'
'conversation'
'beneficiary'
'interactive'
'correspondence'
'astonishing'
'calculation'
'application'
'nomination'
'generation'
'intensify'
'complication'
'acceptable'
'affinity'
'comfortable'
'mechanical'
'notorious'
'ordinary'
'deprivation'
'machinery'
'lifestyle'
'multimedia'
'catalogue'
'resignation'
'radiation sickness'
'association'
'requirement'
'economics'
'excavation'
'community'
'respectable'
'communication'
'philosophy'
'identity'
'disappointment'
'hypothesis'
'disposition'
'understanding'
'computer virus'
'ambiguity'
'uncertainty'
'legislature'
'beautiful'
'curriculum'
'inhabitant'
'exhibition'
'literacy'
'cooperation'
'population'
'intelligence'
'consciousness'
'economic'
'inhibition'
'confrontation'
'incapable'
'celebration'
'operational'
'salesperson'
'analysis'
'comprehensive'
'continuation'
'indication'
'supplementary'
'investigation'
'security'
'authority'
'hilarious'
'miserable'
'executive'
'charismatic'
'cemetery'
'firefighter'
'resolution'
'constitution'
'executrix'
'television'
'monopoly'
'stimulation'
'preparation'
'photocopy'
'diplomatic'
'acquisition'
'eliminate'
'unfortunate'
'fastidious'
'exploration'
'empirical'
'conspiracy'
'entertainment'
'dictionary'
'representative'
'rehabilitation'
'timetable'
'consideration'
'integration'
'circulation'
'environment'
'unanimous'
'discovery'
'presidential'
'engagement'
'simplicity'
'responsible'
'conventional'
'cooperative'
'reconcile'
'democratic'
'accumulation'
'economist'
'introduction'
'examination'
'epicalyx'
'refrigerator'
'consolidate'
'ideology'
'nonremittal'
'negotiation'
'acquaintance'
'academy'
'education'
'gregarious'
'spokesperson'
'regulation'
'demonstration'
'extraterrestrial'
'strikebreaker'
'preoccupation'
'consultation'
'anticipation'
'evolution'
'federation'
'deficiency'
'satisfaction'
'entitlement'
'delivery'
'invisible'
'motivation'
'temperature'
'innovation'
'litigation'
'advertising'
'econobox'
'original'
'emergency'
'vegetation'
'management'
'combination'
'experiment'
'vegetable'
'photocopy'
'presentation'
'hospitality'
'facility'
)
VisibleSpecialChars = [vscSpace, vscTabAtLast]
SelectedColor.BackPriority = 50
SelectedColor.ForePriority = 50
SelectedColor.FramePriority = 50
SelectedColor.BoldPriority = 50
SelectedColor.ItalicPriority = 50
SelectedColor.UnderlinePriority = 50
SelectedColor.StrikeOutPriority = 50
BracketHighlightStyle = sbhsBoth
BracketMatchColor.Background = clNone
BracketMatchColor.Foreground = clNone
BracketMatchColor.Style = [fsBold]
FoldedCodeColor.Background = clNone
FoldedCodeColor.Foreground = clGray
FoldedCodeColor.FrameColor = clGray
MouseLinkColor.Background = clNone
MouseLinkColor.Foreground = clBlue
LineHighlightColor.Background = clNone
LineHighlightColor.Foreground = clNone
inline SynLeftGutterPartList1: TSynGutterPartList
object SynGutterMarks1: TSynGutterMarks
Width = 24
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 25
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
DigitCount = 2
ShowOnlyLineNumbersMultiplesOf = 1
ZeroStart = False
LeadingZeros = False
end
object SynGutterChanges1: TSynGutterChanges
Width = 4
MouseActions = <>
ModifiedColor = 59900
SavedColor = clGreen
end
object SynGutterSeparator1: TSynGutterSeparator
Width = 2
MouseActions = <>
MarkupInfo.Background = clWhite
MarkupInfo.Foreground = clGray
end
object SynGutterCodeFolding1: TSynGutterCodeFolding
MouseActions = <>
MarkupInfo.Background = clNone
MarkupInfo.Foreground = clGray
MouseActionsExpanded = <>
MouseActionsCollapsed = <>
end
end
end
object btnFindFirst: TButton
Left = 432
Height = 25
Top = 109
Width = 75
Caption = 'FIND'
Default = True
OnClick = btnFindFirstClick
TabOrder = 1
end
object edtFind: TEdit
Left = 336
Height = 23
Top = 109
Width = 88
TabOrder = 2
Text = 'Photocopy'
end
object btnFindNext: TButton
Left = 515
Height = 25
Top = 109
Width = 75
Caption = 'Find Next'
OnClick = btnFindFirstClick
TabOrder = 3
end
object btnReplaceFirst: TButton
Left = 432
Height = 25
Top = 181
Width = 75
Caption = 'Replace'
OnClick = btnReplaceFirstClick
TabOrder = 4
end
object btnReplaceNext: TButton
Left = 515
Height = 25
Top = 182
Width = 75
Caption = 'Rplc Next'
OnClick = btnReplaceFirstClick
TabOrder = 5
end
object edtRplc: TEdit
Left = 336
Height = 23
Top = 181
Width = 88
TabOrder = 6
Text = 'FaxMachine'
end
object btnReplaceAll: TButton
Left = 602
Height = 25
Top = 182
Width = 75
Caption = 'Replace All'
OnClick = btnReplaceFirstClick
TabOrder = 7
end
object rgDirection: TRadioGroup
Left = 328
Height = 49
Top = 16
Width = 185
AutoFill = True
Caption = 'Direction'
ChildSizing.LeftRightSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2
ClientHeight = 29
ClientWidth = 181
Columns = 2
ItemIndex = 0
Items.Strings = (
'Down'
'Up'
)
TabOrder = 8
end
object xbxWhole: TCheckBox
Left = 528
Height = 19
Top = 19
Width = 115
Caption = 'Whole words only'
TabOrder = 9
end
object xbxMatchCase: TCheckBox
Left = 528
Height = 19
Top = 43
Width = 82
Caption = 'Match Case'
TabOrder = 10
end
object xbxFromTop: TCheckBox
Left = 652
Height = 19
Top = 19
Width = 125
Caption = 'From the Beggining'
TabOrder = 11
end
end