fixed find replace dialog

git-svn-id: trunk@9560 -
2025-04-16 05:09:27 +02:00 · 2006-07-04 21:06:22 +00:00 · 2006-07-04 21:06:22 +00:00 · 99cc3bcf19
commit 99cc3bcf19
parent 1e133648c8
5 changed files with 252 additions and 258 deletions
--- a/ide/debugmanager.pas
+++ b/ide/debugmanager.pas
@ -1822,7 +1822,7 @@ end;

 function TDebugManager.RunDebugger: TModalResult;
 begin
-  //writeln('TDebugManager.RunDebugger A ',FDebugger<>nil,' Destroying=',Destroying);
+  writeln('TDebugManager.RunDebugger A ',FDebugger<>nil,' Destroying=',Destroying);
  Result:=mrCancel;
  if Destroying then exit;
  if (FDebugger <> nil) then begin
--- a/ide/findreplacedialog.lfm
+++ b/ide/findreplacedialog.lfm
@ -1,46 +1,56 @@
 object LazFindReplaceDialog: TLazFindReplaceDialog
+  Left = 334
+  Height = 331
+  Top = 185
+  Width = 416
+  HorzScrollBar.Page = 415
+  VertScrollBar.Page = 330
  ActiveControl = TextToFindComboBox
  BorderIcons = [biSystemMenu]
  Caption = 'LazFindReplaceDialog'
-  ClientHeight = 331
-  ClientWidth = 416
  Constraints.MinHeight = 312
+  KeyPreview = True
  OnResize = FormResize
-  PixelsPerInch = 96
  Position = poScreenCenter
-  HorzScrollBar.Page = 415
-  VertScrollBar.Page = 330
-  Left = 311
-  Height = 331
-  Top = 426
-  Width = 416
  object TextToFindLabel: TLabel
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = TextToFindComboBox
+    AnchorSideTop.Side = asrCenter
+    Left = 6
+    Height = 13
+    Top = 16
+    Width = 94
    Alignment = taRightJustify
-    BorderSpacing.Around = 6
+    BorderSpacing.Left = 6
    Caption = 'TextToFindLabel'
    Color = clNone
    FocusControl = TextToFindComboBox
    ParentColor = False
-    AnchorSideLeft.Control = Owner
-    Left = 6
-    Height = 14
-    Top = 16
-    Width = 80
  end
  object ReplaceWithLabel: TLabel
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = ReplaceTextComboBox
+    AnchorSideTop.Side = asrCenter
+    Left = 6
+    Height = 13
+    Top = 43
+    Width = 102
    Alignment = taRightJustify
-    BorderSpacing.Around = 6
+    BorderSpacing.Left = 6
    Caption = 'ReplaceWithLabel'
    Color = clNone
    FocusControl = ReplaceTextComboBox
    ParentColor = False
-    AnchorSideLeft.Control = Owner
-    Left = 6
-    Height = 14
-    Top = 40
-    Width = 86
  end
  object TextToFindComboBox: TComboBox
+    AnchorSideLeft.Control = TextToFindLabel
+    AnchorSideLeft.Side = asrBottom
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrBottom
+    Left = 112
+    Height = 21
+    Top = 12
+    Width = 298
    Anchors = [akTop, akLeft, akRight]
    AutoComplete = True
    AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactRetainPrefixCase, cbactSearchAscending]
@ -50,16 +60,16 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
    OnKeyDown = TextToFindComboboxKeyDown
    TabOrder = 0
    Text = 'TextToFindComboBox'
-    AnchorSideLeft.Control = TextToFindLabel
+  end
+  object ReplaceTextComboBox: TComboBox
+    AnchorSideLeft.Control = ReplaceWithLabel
    AnchorSideLeft.Side = asrBottom
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
-    Left = 98
+    Left = 120
    Height = 21
-    Top = 12
-    Width = 312
-  end
-  object ReplaceTextComboBox: TComboBox
+    Top = 39
+    Width = 290
    Anchors = [akTop, akLeft, akRight]
    AutoComplete = True
    AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactRetainPrefixCase, cbactSearchAscending]
@ -69,16 +79,15 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
    OnKeyDown = TextToFindComboboxKeyDown
    TabOrder = 1
    Text = 'ReplaceTextComboBox'
-    AnchorSideLeft.Control = ReplaceWithLabel
-    AnchorSideLeft.Side = asrBottom
-    AnchorSideRight.Control = Owner
-    AnchorSideRight.Side = asrBottom
-    Left = 104
-    Height = 21
-    Top = 39
-    Width = 306
  end
  object CancelButton: TBitBtn
+    AnchorSideRight.Control = ReplaceAllButton
+    AnchorSideBottom.Control = Owner
+    AnchorSideBottom.Side = asrBottom
+    Left = 222
+    Height = 24
+    Top = 301
+    Width = 73
    Anchors = [akRight, akBottom]
    AutoSize = True
    BorderSpacing.Around = 6
@ -91,15 +100,16 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
    NumGlyphs = 0
    OnClick = CancelButtonClick
    TabOrder = 2
-    AnchorSideRight.Control = ReplaceAllButton
-    AnchorSideBottom.Control = Owner
-    AnchorSideBottom.Side = asrBottom
-    Left = 194
-    Height = 33
-    Top = 292
-    Width = 80
  end
  object OKButton: TBitBtn
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrBottom
+    AnchorSideBottom.Control = Owner
+    AnchorSideBottom.Side = asrBottom
+    Left = 359
+    Height = 24
+    Top = 301
+    Width = 51
    Anchors = [akRight, akBottom]
    AutoSize = True
    BorderSpacing.Around = 6
@ -112,33 +122,28 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
    NumGlyphs = 0
    OnClick = OkButtonClick
    TabOrder = 3
-    AnchorSideRight.Control = Owner
-    AnchorSideRight.Side = asrBottom
-    AnchorSideBottom.Control = Owner
-    AnchorSideBottom.Side = asrBottom
-    Left = 348
-    Height = 33
-    Top = 292
-    Width = 62
  end
  object OptionsGroupBox: TGroupBox
-    Anchors = [akTop, akLeft, akBottom]
-    BorderSpacing.Left = 6
-    BorderSpacing.Top = 6
-    BorderSpacing.Bottom = 6
-    Caption = 'OptionsGroupBox'
-    ClientHeight = 202
-    ClientWidth = 195
-    TabOrder = 4
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = ReplaceTextComboBox
    AnchorSideTop.Side = asrBottom
    AnchorSideBottom.Control = CancelButton
    Left = 6
-    Height = 220
+    Height = 229
    Top = 66
    Width = 199
+    Anchors = [akTop, akLeft, akBottom]
+    BorderSpacing.Left = 6
+    BorderSpacing.Top = 6
+    BorderSpacing.Bottom = 6
+    Caption = 'OptionsGroupBox'
+    TabOrder = 4
    object PromptOnReplaceCheckBox: TCheckBox
+      AnchorSideTop.Side = asrBottom
+      Left = 6
+      Height = 20
+      Top = 140
+      Width = 183
      Align = alTop
      BorderSpacing.Top = 6
      BorderSpacing.Around = 6
@ -148,13 +153,13 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
      ShowHint = True
      State = cbChecked
      TabOrder = 0
-      AnchorSideTop.Side = asrBottom
-      Left = 6
-      Height = 13
-      Top = 112
-      Width = 183
    end
    object MultiLineCheckBox: TCheckBox
+      AnchorSideTop.Side = asrBottom
+      Left = 6
+      Height = 20
+      Top = 108
+      Width = 183
      Align = alTop
      BorderSpacing.Top = 6
      BorderSpacing.Around = 6
@ -163,13 +168,13 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
-      AnchorSideTop.Side = asrBottom
-      Left = 6
-      Height = 13
-      Top = 87
-      Width = 183
    end
    object RegularExpressionsCheckBox: TCheckBox
+      AnchorSideTop.Side = asrBottom
+      Left = 6
+      Height = 20
+      Top = 76
+      Width = 183
      Align = alTop
      BorderSpacing.Top = 6
      BorderSpacing.Around = 6
@ -177,13 +182,13 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
-      AnchorSideTop.Side = asrBottom
-      Left = 6
-      Height = 13
-      Top = 62
-      Width = 183
    end
    object WholeWordsOnlyCheckBox: TCheckBox
+      AnchorSideTop.Side = asrBottom
+      Left = 6
+      Height = 20
+      Top = 44
+      Width = 183
      Align = alTop
      BorderSpacing.Top = 6
      BorderSpacing.Around = 6
@ -191,13 +196,13 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
-      AnchorSideTop.Side = asrBottom
-      Left = 6
-      Height = 13
-      Top = 37
-      Width = 183
    end
    object CaseSensitiveCheckBox: TCheckBox
+      AnchorSideTop.Side = asrBottom
+      Left = 6
+      Height = 20
+      Top = 12
+      Width = 183
      Align = alTop
      BorderSpacing.Top = 6
      BorderSpacing.Around = 6
@ -205,19 +210,9 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
-      AnchorSideTop.Side = asrBottom
-      Left = 6
-      Height = 13
-      Top = 12
-      Width = 183
    end
  end
  object ScopeGroupBox: TGroupBox
-    BorderSpacing.Around = 6
-    Caption = 'ScopeGroupBox'
-    ClientHeight = 51
-    ClientWidth = 195
-    TabOrder = 5
    AnchorSideLeft.Control = OptionsGroupBox
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = OriginGroupBox
@ -226,34 +221,34 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
    Height = 69
    Top = 141
    Width = 199
+    BorderSpacing.Around = 6
+    Caption = 'ScopeGroupBox'
+    TabOrder = 5
    object SelectedRadioButton: TRadioButton
+      Left = 3
+      Height = 20
+      Top = 32
+      Width = 189
      Align = alTop
      BorderSpacing.Top = 6
-      BorderSpacing.Around = 6
+      BorderSpacing.Around = 3
      Caption = 'SelectedRadioButton'
      TabOrder = 0
-      Left = 6
-      Height = 13
-      Top = 31
-      Width = 183
    end
    object GlobalRadioButton: TRadioButton
+      Left = 3
+      Height = 20
+      Top = 3
+      Width = 189
      Align = alTop
-      BorderSpacing.Around = 6
+      BorderSpacing.Around = 3
      Caption = 'GlobalRadioButton'
+      Checked = True
+      State = cbChecked
      TabOrder = 1
-      Left = 6
-      Height = 13
-      Top = 6
-      Width = 183
    end
  end
  object DirectionGroupBox: TGroupBox
-    BorderSpacing.Around = 6
-    Caption = 'DirectionGroupBox'
-    ClientHeight = 51
-    ClientWidth = 195
-    TabOrder = 6
    AnchorSideLeft.Control = OptionsGroupBox
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = ScopeGroupBox
@ -262,34 +257,34 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
    Height = 69
    Top = 216
    Width = 199
+    BorderSpacing.Around = 6
+    Caption = 'DirectionGroupBox'
+    TabOrder = 6
    object BackwardRadioButton: TRadioButton
+      Left = 3
+      Height = 20
+      Top = 32
+      Width = 189
      Align = alTop
      BorderSpacing.Top = 6
-      BorderSpacing.Around = 6
+      BorderSpacing.Around = 3
      Caption = 'BackwardRadioButton'
      TabOrder = 0
-      Left = 6
-      Height = 13
-      Top = 31
-      Width = 183
    end
    object ForwardRadioButton: TRadioButton
+      Left = 3
+      Height = 20
+      Top = 3
+      Width = 189
      Align = alTop
-      BorderSpacing.Around = 6
+      BorderSpacing.Around = 3
      Caption = 'ForwardRadioButton'
+      Checked = True
+      State = cbChecked
      TabOrder = 1
-      Left = 6
-      Height = 13
-      Top = 6
-      Width = 183
    end
  end
  object OriginGroupBox: TGroupBox
-    BorderSpacing.Around = 6
-    Caption = 'OriginGroupBox'
-    ClientHeight = 51
-    ClientWidth = 195
-    TabOrder = 7
    AnchorSideLeft.Control = OptionsGroupBox
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = ReplaceTextComboBox
@ -298,28 +293,40 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
    Height = 69
    Top = 66
    Width = 199
+    BorderSpacing.Around = 6
+    Caption = 'OriginGroupBox'
+    TabOrder = 7
    object FromCursorRadioButton: TRadioButton
+      Left = 3
+      Height = 20
+      Top = 3
+      Width = 189
      Align = alTop
-      BorderSpacing.Around = 6
+      BorderSpacing.Around = 3
      Caption = 'FromCursorRadioButton'
+      Checked = True
+      State = cbChecked
      TabOrder = 0
-      Left = 6
-      Height = 13
-      Top = 6
-      Width = 183
    end
    object EntireScopeRadioButton: TRadioButton
+      Left = 3
+      Height = 20
+      Top = 26
+      Width = 189
      Align = alTop
-      BorderSpacing.Around = 6
+      BorderSpacing.Around = 3
      Caption = 'EntireScopeRadioButton'
      TabOrder = 1
-      Left = 6
-      Height = 13
-      Top = 25
-      Width = 183
    end
  end
  object ReplaceAllButton: TBitBtn
+    AnchorSideRight.Control = OKButton
+    AnchorSideBottom.Control = Owner
+    AnchorSideBottom.Side = asrBottom
+    Left = 301
+    Height = 28
+    Top = 297
+    Width = 52
    Anchors = [akRight, akBottom]
    AutoSize = True
    BorderSpacing.Around = 6
@ -329,12 +336,5 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
    ModalResult = 8
    NumGlyphs = 0
    TabOrder = 8
-    AnchorSideRight.Control = OKButton
-    AnchorSideBottom.Control = Owner
-    AnchorSideBottom.Side = asrBottom
-    Left = 280
-    Height = 33
-    Top = 292
-    Width = 62
  end
 end
--- a/ide/findreplacedialog.lrs
+++ b/ide/findreplacedialog.lrs
@ -1,115 +1,115 @@
 { This is an automatically generated lazarus resource file }

 LazarusResources.Add('TLazFindReplaceDialog','FORMDATA',[
-  'TPF0'#21'TLazFindReplaceDialog'#20'LazFindReplaceDialog'#13'ActiveControl'#7
-  +#18'TextToFindComboBox'#11'BorderIcons'#11#12'biSystemMenu'#0#7'Caption'#6#20
-  +'LazFindReplaceDialog'#12'ClientHeight'#3'K'#1#11'ClientWidth'#3#160#1#21'Co'
-  +'nstraints.MinHeight'#3'8'#1#8'OnResize'#7#10'FormResize'#13'PixelsPerInch'#2
-  +'`'#8'Position'#7#14'poScreenCenter'#18'HorzScrollBar.Page'#3#159#1#18'VertS'
-  +'crollBar.Page'#3'J'#1#4'Left'#3'7'#1#6'Height'#3'K'#1#3'Top'#3#170#1#5'Widt'
-  +'h'#3#160#1#0#6'TLabel'#15'TextToFindLabel'#9'Alignment'#7#14'taRightJustify'
-  +#20'BorderSpacing.Around'#2#6#7'Caption'#6#15'TextToFindLabel'#5'Color'#7#6
-  +'clNone'#12'FocusControl'#7#18'TextToFindComboBox'#11'ParentColor'#8#22'Anch'
-  +'orSideLeft.Control'#7#5'Owner'#4'Left'#2#6#6'Height'#2#14#3'Top'#2#16#5'Wid'
-  +'th'#2'P'#0#0#6'TLabel'#16'ReplaceWithLabel'#9'Alignment'#7#14'taRightJustif'
-  +'y'#20'BorderSpacing.Around'#2#6#7'Caption'#6#16'ReplaceWithLabel'#5'Color'#7
-  +#6'clNone'#12'FocusControl'#7#19'ReplaceTextComboBox'#11'ParentColor'#8#22'A'
-  +'nchorSideLeft.Control'#7#5'Owner'#4'Left'#2#6#6'Height'#2#14#3'Top'#2'('#5
-  +'Width'#2'V'#0#0#9'TComboBox'#18'TextToFindComboBox'#7'Anchors'#11#5'akTop'#6
-  +'akLeft'#7'akRight'#0#12'AutoComplete'#9#16'AutoCompleteText'#11#12'cbactEna'
-  +'bled'#22'cbactEndOfLineComplete'#21'cbactRetainPrefixCase'#20'cbactSearchAs'
-  +'cending'#0#18'BorderSpacing.Left'#2#6#20'BorderSpacing.Around'#2#6#9'MaxLen'
-  +'gth'#2#0#9'OnKeyDown'#7#25'TextToFindComboboxKeyDown'#8'TabOrder'#2#0#4'Tex'
-  +'t'#6#18'TextToFindComboBox'#22'AnchorSideLeft.Control'#7#15'TextToFindLabel'
-  +#19'AnchorSideLeft.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owne'
-  +'r'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2'b'#6'Height'#2#21#3'To'
-  +'p'#2#12#5'Width'#3'8'#1#0#0#9'TComboBox'#19'ReplaceTextComboBox'#7'Anchors'
-  +#11#5'akTop'#6'akLeft'#7'akRight'#0#12'AutoComplete'#9#16'AutoCompleteText'
-  +#11#12'cbactEnabled'#22'cbactEndOfLineComplete'#21'cbactRetainPrefixCase'#20
-  +'cbactSearchAscending'#0#18'BorderSpacing.Left'#2#6#20'BorderSpacing.Around'
-  +#2#6#9'MaxLength'#2#0#9'OnKeyDown'#7#25'TextToFindComboboxKeyDown'#8'TabOrde'
-  +'r'#2#1#4'Text'#6#19'ReplaceTextComboBox'#22'AnchorSideLeft.Control'#7#16'Re'
-  +'placeWithLabel'#19'AnchorSideLeft.Side'#7#9'asrBottom'#23'AnchorSideRight.C'
-  +'ontrol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2'h'#6'H'
-  +'eight'#2#21#3'Top'#2''''#5'Width'#3'2'#1#0#0#7'TBitBtn'#12'CancelButton'#7
-  +'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'
-  +#2#6#25'BorderSpacing.InnerBorder'#2#2#6'Cancel'#9#7'Caption'#6#6'Cancel'#21
-  +'Constraints.MaxHeight'#2'!'#4'Kind'#7#8'bkCancel'#11'ModalResult'#2#2#9'Num'
-  +'Glyphs'#2#0#7'OnClick'#7#17'CancelButtonClick'#8'TabOrder'#2#2#23'AnchorSid'
-  +'eRight.Control'#7#16'ReplaceAllButton'#24'AnchorSideBottom.Control'#7#5'Own'
-  +'er'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3#194#0#6'Height'#2'!'
-  +#3'Top'#3'$'#1#5'Width'#2'P'#0#0#7'TBitBtn'#8'OKButton'#7'Anchors'#11#7'akRi'
-  +'ght'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#25'BorderSpac'
-  +'ing.InnerBorder'#2#2#7'Caption'#6#3'&OK'#21'Constraints.MaxHeight'#2'!'#7'D'
-  +'efault'#9#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#7'OnClick'
-  +#7#13'OkButtonClick'#8'TabOrder'#2#3#23'AnchorSideRight.Control'#7#5'Owner'
-  +#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#5'Ow'
-  +'ner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3'\'#1#6'Height'#2'!'
-  +#3'Top'#3'$'#1#5'Width'#2'>'#0#0#9'TGroupBox'#15'OptionsGroupBox'#7'Anchors'
-  +#11#5'akTop'#6'akLeft'#8'akBottom'#0#18'BorderSpacing.Left'#2#6#17'BorderSpa'
-  +'cing.Top'#2#6#20'BorderSpacing.Bottom'#2#6#7'Caption'#6#15'OptionsGroupBox'
-  +#12'ClientHeight'#3#202#0#11'ClientWidth'#3#195#0#8'TabOrder'#2#4#22'AnchorS'
-  +'ideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#19'ReplaceTextCombo'
-  +'Box'#18'AnchorSideTop.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#12
-  +'CancelButton'#4'Left'#2#6#6'Height'#3#220#0#3'Top'#2'B'#5'Width'#3#199#0#0#9
-  +'TCheckBox'#23'PromptOnReplaceCheckBox'#5'Align'#7#5'alTop'#17'BorderSpacing'
-  +'.Top'#2#6#20'BorderSpacing.Around'#2#6#7'Caption'#6#23'PromptOnReplaceCheck'
-  +'Box'#7'Checked'#9#14'ParentShowHint'#8#8'ShowHint'#9#5'State'#7#9'cbChecked'
-  +#8'TabOrder'#2#0#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'
-  +#2#13#3'Top'#2'p'#5'Width'#3#183#0#0#0#9'TCheckBox'#17'MultiLineCheckBox'#5
-  +'Align'#7#5'alTop'#17'BorderSpacing.Top'#2#6#20'BorderSpacing.Around'#2#6#7
-  +'Caption'#6#17'MultiLineCheckBox'#7'Enabled'#8#14'ParentShowHint'#8#8'ShowHi'
-  +'nt'#9#8'TabOrder'#2#1#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'H'
-  +'eight'#2#13#3'Top'#2'W'#5'Width'#3#183#0#0#0#9'TCheckBox'#26'RegularExpress'
-  +'ionsCheckBox'#5'Align'#7#5'alTop'#17'BorderSpacing.Top'#2#6#20'BorderSpacin'
-  +'g.Around'#2#6#7'Caption'#6#26'RegularExpressionsCheckBox'#14'ParentShowHint'
-  +#8#8'ShowHint'#9#8'TabOrder'#2#2#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Lef'
-  +'t'#2#6#6'Height'#2#13#3'Top'#2'>'#5'Width'#3#183#0#0#0#9'TCheckBox'#22'Whol'
-  ,'eWordsOnlyCheckBox'#5'Align'#7#5'alTop'#17'BorderSpacing.Top'#2#6#20'Border'
-  +'Spacing.Around'#2#6#7'Caption'#6#22'WholeWordsOnlyCheckBox'#14'ParentShowHi'
-  +'nt'#8#8'ShowHint'#9#8'TabOrder'#2#3#18'AnchorSideTop.Side'#7#9'asrBottom'#4
-  +'Left'#2#6#6'Height'#2#13#3'Top'#2'%'#5'Width'#3#183#0#0#0#9'TCheckBox'#21'C'
-  +'aseSensitiveCheckBox'#5'Align'#7#5'alTop'#17'BorderSpacing.Top'#2#6#20'Bord'
-  +'erSpacing.Around'#2#6#7'Caption'#6#21'CaseSensitiveCheckBox'#14'ParentShowH'
-  +'int'#8#8'ShowHint'#9#8'TabOrder'#2#4#18'AnchorSideTop.Side'#7#9'asrBottom'#4
-  +'Left'#2#6#6'Height'#2#13#3'Top'#2#12#5'Width'#3#183#0#0#0#0#9'TGroupBox'#13
-  +'ScopeGroupBox'#20'BorderSpacing.Around'#2#6#7'Caption'#6#13'ScopeGroupBox'
-  +#12'ClientHeight'#2'3'#11'ClientWidth'#3#195#0#8'TabOrder'#2#5#22'AnchorSide'
-  +'Left.Control'#7#15'OptionsGroupBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'
-  +#21'AnchorSideTop.Control'#7#14'OriginGroupBox'#18'AnchorSideTop.Side'#7#9'a'
-  +'srBottom'#4'Left'#3#211#0#6'Height'#2'E'#3'Top'#3#141#0#5'Width'#3#199#0#0
-  +#12'TRadioButton'#19'SelectedRadioButton'#5'Align'#7#5'alTop'#17'BorderSpaci'
-  +'ng.Top'#2#6#20'BorderSpacing.Around'#2#6#7'Caption'#6#19'SelectedRadioButto'
-  +'n'#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2#13#3'Top'#2#31#5'Width'#3#183#0#0
-  +#0#12'TRadioButton'#17'GlobalRadioButton'#5'Align'#7#5'alTop'#20'BorderSpaci'
-  +'ng.Around'#2#6#7'Caption'#6#17'GlobalRadioButton'#8'TabOrder'#2#1#4'Left'#2
-  +#6#6'Height'#2#13#3'Top'#2#6#5'Width'#3#183#0#0#0#0#9'TGroupBox'#17'Directio'
-  +'nGroupBox'#20'BorderSpacing.Around'#2#6#7'Caption'#6#17'DirectionGroupBox'
-  +#12'ClientHeight'#2'3'#11'ClientWidth'#3#195#0#8'TabOrder'#2#6#22'AnchorSide'
-  +'Left.Control'#7#15'OptionsGroupBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'
-  +#21'AnchorSideTop.Control'#7#13'ScopeGroupBox'#18'AnchorSideTop.Side'#7#9'as'
-  +'rBottom'#4'Left'#3#211#0#6'Height'#2'E'#3'Top'#3#216#0#5'Width'#3#199#0#0#12
-  +'TRadioButton'#19'BackwardRadioButton'#5'Align'#7#5'alTop'#17'BorderSpacing.'
-  +'Top'#2#6#20'BorderSpacing.Around'#2#6#7'Caption'#6#19'BackwardRadioButton'#8
-  +'TabOrder'#2#0#4'Left'#2#6#6'Height'#2#13#3'Top'#2#31#5'Width'#3#183#0#0#0#12
-  +'TRadioButton'#18'ForwardRadioButton'#5'Align'#7#5'alTop'#20'BorderSpacing.A'
-  +'round'#2#6#7'Caption'#6#18'ForwardRadioButton'#8'TabOrder'#2#1#4'Left'#2#6#6
-  +'Height'#2#13#3'Top'#2#6#5'Width'#3#183#0#0#0#0#9'TGroupBox'#14'OriginGroupB'
-  +'ox'#20'BorderSpacing.Around'#2#6#7'Caption'#6#14'OriginGroupBox'#12'ClientH'
-  +'eight'#2'3'#11'ClientWidth'#3#195#0#8'TabOrder'#2#7#22'AnchorSideLeft.Contr'
-  +'ol'#7#15'OptionsGroupBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorS'
-  +'ideTop.Control'#7#19'ReplaceTextComboBox'#18'AnchorSideTop.Side'#7#9'asrBot'
-  +'tom'#4'Left'#3#211#0#6'Height'#2'E'#3'Top'#2'B'#5'Width'#3#199#0#0#12'TRadi'
-  +'oButton'#21'FromCursorRadioButton'#5'Align'#7#5'alTop'#20'BorderSpacing.Aro'
-  +'und'#2#6#7'Caption'#6#21'FromCursorRadioButton'#8'TabOrder'#2#0#4'Left'#2#6
-  +#6'Height'#2#13#3'Top'#2#6#5'Width'#3#183#0#0#0#12'TRadioButton'#22'EntireSc'
-  +'opeRadioButton'#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Caption'
-  +#6#22'EntireScopeRadioButton'#8'TabOrder'#2#1#4'Left'#2#6#6'Height'#2#13#3'T'
-  +'op'#2#25#5'Width'#3#183#0#0#0#0#7'TBitBtn'#16'ReplaceAllButton'#7'Anchors'
-  +#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Ca'
-  +'ption'#6#4'&All'#21'Constraints.MaxHeight'#2'!'#4'Kind'#7#5'bkAll'#11'Modal'
-  +'Result'#2#8#9'NumGlyphs'#2#0#8'TabOrder'#2#8#23'AnchorSideRight.Control'#7#8
-  +'OKButton'#24'AnchorSideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'
-  +#7#9'asrBottom'#4'Left'#3#24#1#6'Height'#2'!'#3'Top'#3'$'#1#5'Width'#2'>'#0#0
-  +#0
+  'TPF0'#21'TLazFindReplaceDialog'#20'LazFindReplaceDialog'#4'Left'#3'N'#1#6'He'
+  +'ight'#3'K'#1#3'Top'#3#185#0#5'Width'#3#160#1#18'HorzScrollBar.Page'#3#159#1
+  +#18'VertScrollBar.Page'#3'J'#1#13'ActiveControl'#7#18'TextToFindComboBox'#11
+  +'BorderIcons'#11#12'biSystemMenu'#0#7'Caption'#6#20'LazFindReplaceDialog'#21
+  +'Constraints.MinHeight'#3'8'#1#10'KeyPreview'#9#8'OnResize'#7#10'FormResize'
+  +#8'Position'#7#14'poScreenCenter'#0#6'TLabel'#15'TextToFindLabel'#22'AnchorS'
+  +'ideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#18'TextToFindComboB'
+  +'ox'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#13#3'Top'
+  +#2#16#5'Width'#2'^'#9'Alignment'#7#14'taRightJustify'#18'BorderSpacing.Left'
+  +#2#6#7'Caption'#6#15'TextToFindLabel'#5'Color'#7#6'clNone'#12'FocusControl'#7
+  +#18'TextToFindComboBox'#11'ParentColor'#8#0#0#6'TLabel'#16'ReplaceWithLabel'
+  +#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#19'Replac'
+  +'eTextComboBox'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2
+  +#13#3'Top'#2'+'#5'Width'#2'f'#9'Alignment'#7#14'taRightJustify'#18'BorderSpa'
+  +'cing.Left'#2#6#7'Caption'#6#16'ReplaceWithLabel'#5'Color'#7#6'clNone'#12'Fo'
+  +'cusControl'#7#19'ReplaceTextComboBox'#11'ParentColor'#8#0#0#9'TComboBox'#18
+  +'TextToFindComboBox'#22'AnchorSideLeft.Control'#7#15'TextToFindLabel'#19'Anc'
+  +'horSideLeft.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20
+  +'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2'p'#6'Height'#2#21#3'Top'#2#12
+  +#5'Width'#3'*'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#12'AutoComple'
+  +'te'#9#16'AutoCompleteText'#11#12'cbactEnabled'#22'cbactEndOfLineComplete'#21
+  +'cbactRetainPrefixCase'#20'cbactSearchAscending'#0#18'BorderSpacing.Left'#2#6
+  +#20'BorderSpacing.Around'#2#6#9'MaxLength'#2#0#9'OnKeyDown'#7#25'TextToFindC'
+  +'omboboxKeyDown'#8'TabOrder'#2#0#4'Text'#6#18'TextToFindComboBox'#0#0#9'TCom'
+  +'boBox'#19'ReplaceTextComboBox'#22'AnchorSideLeft.Control'#7#16'ReplaceWithL'
+  +'abel'#19'AnchorSideLeft.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5
+  +'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2'x'#6'Height'#2#21#3
+  +'Top'#2''''#5'Width'#3'"'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#12
+  +'AutoComplete'#9#16'AutoCompleteText'#11#12'cbactEnabled'#22'cbactEndOfLineC'
+  +'omplete'#21'cbactRetainPrefixCase'#20'cbactSearchAscending'#0#18'BorderSpac'
+  +'ing.Left'#2#6#20'BorderSpacing.Around'#2#6#9'MaxLength'#2#0#9'OnKeyDown'#7
+  +#25'TextToFindComboboxKeyDown'#8'TabOrder'#2#1#4'Text'#6#19'ReplaceTextCombo'
+  +'Box'#0#0#7'TBitBtn'#12'CancelButton'#23'AnchorSideRight.Control'#7#16'Repla'
+  +'ceAllButton'#24'AnchorSideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Si'
+  +'de'#7#9'asrBottom'#4'Left'#3#222#0#6'Height'#2#24#3'Top'#3'-'#1#5'Width'#2
+  +'I'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Ar'
+  +'ound'#2#6#25'BorderSpacing.InnerBorder'#2#2#6'Cancel'#9#7'Caption'#6#6'Canc'
+  +'el'#21'Constraints.MaxHeight'#2'!'#4'Kind'#7#8'bkCancel'#11'ModalResult'#2#2
+  +#9'NumGlyphs'#2#0#7'OnClick'#7#17'CancelButtonClick'#8'TabOrder'#2#2#0#0#7'T'
+  +'BitBtn'#8'OKButton'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRig'
+  +'ht.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#5'Owner'#21'AnchorSi'
+  +'deBottom.Side'#7#9'asrBottom'#4'Left'#3'g'#1#6'Height'#2#24#3'Top'#3'-'#1#5
+  +'Width'#2'3'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#20'BorderS'
+  +'pacing.Around'#2#6#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#3'&OK'#21
+  +'Constraints.MaxHeight'#2'!'#7'Default'#9#4'Kind'#7#4'bkOK'#11'ModalResult'#2
+  +#1#9'NumGlyphs'#2#0#7'OnClick'#7#13'OkButtonClick'#8'TabOrder'#2#3#0#0#9'TGr'
+  +'oupBox'#15'OptionsGroupBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'Anchor'
+  +'SideTop.Control'#7#19'ReplaceTextComboBox'#18'AnchorSideTop.Side'#7#9'asrBo'
+  +'ttom'#24'AnchorSideBottom.Control'#7#12'CancelButton'#4'Left'#2#6#6'Height'
+  +#3#229#0#3'Top'#2'B'#5'Width'#3#199#0#7'Anchors'#11#5'akTop'#6'akLeft'#8'akB'
+  +'ottom'#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#20'BorderSpac'
+  +'ing.Bottom'#2#6#7'Caption'#6#15'OptionsGroupBox'#8'TabOrder'#2#4#0#9'TCheck'
+  +'Box'#23'PromptOnReplaceCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Le'
+  +'ft'#2#6#6'Height'#2#20#3'Top'#3#140#0#5'Width'#3#183#0#5'Align'#7#5'alTop'
+  +#17'BorderSpacing.Top'#2#6#20'BorderSpacing.Around'#2#6#7'Caption'#6#23'Prom'
+  +'ptOnReplaceCheckBox'#7'Checked'#9#14'ParentShowHint'#8#8'ShowHint'#9#5'Stat'
+  +'e'#7#9'cbChecked'#8'TabOrder'#2#0#0#0#9'TCheckBox'#17'MultiLineCheckBox'#18
+  +'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#20#3'Top'#2'l'#5
+  +'Width'#3#183#0#5'Align'#7#5'alTop'#17'BorderSpacing.Top'#2#6#20'BorderSpaci'
+  +'ng.Around'#2#6#7'Caption'#6#17'MultiLineCheckBox'#7'Enabled'#8#14'ParentSho'
+  +'wHint'#8#8'ShowHint'#9#8'TabOrder'#2#1#0#0#9'TCheckBox'#26'RegularExpressio'
+  +'nsCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#20
+  +#3'Top'#2'L'#5'Width'#3#183#0#5'Align'#7#5'alTop'#17'BorderSpacing.Top'#2#6
+  +#20'BorderSpacing.Around'#2#6#7'Caption'#6#26'RegularExpressionsCheckBox'#14
+  ,'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#2#0#0#9'TCheckBox'#22'WholeWo'
+  +'rdsOnlyCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'
+  +#2#20#3'Top'#2','#5'Width'#3#183#0#5'Align'#7#5'alTop'#17'BorderSpacing.Top'
+  +#2#6#20'BorderSpacing.Around'#2#6#7'Caption'#6#22'WholeWordsOnlyCheckBox'#14
+  +'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#3#0#0#9'TCheckBox'#21'CaseSen'
+  +'sitiveCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'
+  +#2#20#3'Top'#2#12#5'Width'#3#183#0#5'Align'#7#5'alTop'#17'BorderSpacing.Top'
+  +#2#6#20'BorderSpacing.Around'#2#6#7'Caption'#6#21'CaseSensitiveCheckBox'#14
+  +'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#4#0#0#0#9'TGroupBox'#13'Scope'
+  +'GroupBox'#22'AnchorSideLeft.Control'#7#15'OptionsGroupBox'#19'AnchorSideLef'
+  +'t.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#14'OriginGroupBox'#18'An'
+  +'chorSideTop.Side'#7#9'asrBottom'#4'Left'#3#211#0#6'Height'#2'E'#3'Top'#3#141
+  +#0#5'Width'#3#199#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#13'ScopeGroupB'
+  +'ox'#8'TabOrder'#2#5#0#12'TRadioButton'#19'SelectedRadioButton'#4'Left'#2#3#6
+  +'Height'#2#20#3'Top'#2' '#5'Width'#3#189#0#5'Align'#7#5'alTop'#17'BorderSpac'
+  +'ing.Top'#2#6#20'BorderSpacing.Around'#2#3#7'Caption'#6#19'SelectedRadioButt'
+  +'on'#8'TabOrder'#2#0#0#0#12'TRadioButton'#17'GlobalRadioButton'#4'Left'#2#3#6
+  +'Height'#2#20#3'Top'#2#3#5'Width'#3#189#0#5'Align'#7#5'alTop'#20'BorderSpaci'
+  +'ng.Around'#2#3#7'Caption'#6#17'GlobalRadioButton'#7'Checked'#9#5'State'#7#9
+  +'cbChecked'#8'TabOrder'#2#1#0#0#0#9'TGroupBox'#17'DirectionGroupBox'#22'Anch'
+  +'orSideLeft.Control'#7#15'OptionsGroupBox'#19'AnchorSideLeft.Side'#7#9'asrBo'
+  +'ttom'#21'AnchorSideTop.Control'#7#13'ScopeGroupBox'#18'AnchorSideTop.Side'#7
+  +#9'asrBottom'#4'Left'#3#211#0#6'Height'#2'E'#3'Top'#3#216#0#5'Width'#3#199#0
+  +#20'BorderSpacing.Around'#2#6#7'Caption'#6#17'DirectionGroupBox'#8'TabOrder'
+  +#2#6#0#12'TRadioButton'#19'BackwardRadioButton'#4'Left'#2#3#6'Height'#2#20#3
+  +'Top'#2' '#5'Width'#3#189#0#5'Align'#7#5'alTop'#17'BorderSpacing.Top'#2#6#20
+  +'BorderSpacing.Around'#2#3#7'Caption'#6#19'BackwardRadioButton'#8'TabOrder'#2
+  +#0#0#0#12'TRadioButton'#18'ForwardRadioButton'#4'Left'#2#3#6'Height'#2#20#3
+  +'Top'#2#3#5'Width'#3#189#0#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#3#7
+  +'Caption'#6#18'ForwardRadioButton'#7'Checked'#9#5'State'#7#9'cbChecked'#8'Ta'
+  +'bOrder'#2#1#0#0#0#9'TGroupBox'#14'OriginGroupBox'#22'AnchorSideLeft.Control'
+  +#7#15'OptionsGroupBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideT'
+  +'op.Control'#7#19'ReplaceTextComboBox'#18'AnchorSideTop.Side'#7#9'asrBottom'
+  +#4'Left'#3#211#0#6'Height'#2'E'#3'Top'#2'B'#5'Width'#3#199#0#20'BorderSpacin'
+  +'g.Around'#2#6#7'Caption'#6#14'OriginGroupBox'#8'TabOrder'#2#7#0#12'TRadioBu'
+  +'tton'#21'FromCursorRadioButton'#4'Left'#2#3#6'Height'#2#20#3'Top'#2#3#5'Wid'
+  +'th'#3#189#0#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#3#7'Caption'#6#21
+  +'FromCursorRadioButton'#7'Checked'#9#5'State'#7#9'cbChecked'#8'TabOrder'#2#0
+  +#0#0#12'TRadioButton'#22'EntireScopeRadioButton'#4'Left'#2#3#6'Height'#2#20#3
+  +'Top'#2#26#5'Width'#3#189#0#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#3
+  +#7'Caption'#6#22'EntireScopeRadioButton'#8'TabOrder'#2#1#0#0#0#7'TBitBtn'#16
+  +'ReplaceAllButton'#23'AnchorSideRight.Control'#7#8'OKButton'#24'AnchorSideBo'
+  +'ttom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3
+  +'-'#1#6'Height'#2#28#3'Top'#3')'#1#5'Width'#2'4'#7'Anchors'#11#7'akRight'#8
+  +'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#4'&All'
+  +#21'Constraints.MaxHeight'#2'!'#4'Kind'#7#5'bkAll'#11'ModalResult'#2#8#9'Num'
+  +'Glyphs'#2#0#8'TabOrder'#2#8#0#0#0
 ]);
--- a/ide/findreplacedialog.pp
+++ b/ide/findreplacedialog.pp
@ -180,13 +180,7 @@ procedure TLazFindReplaceDialog.TextToFindComboBoxKeyDown(
 var Component: TFindDlgComponent;
 begin
  //debugln('TLazFindReplaceDialog.TextToFindComboBoxKeyDown Key=',Key,' RETURN=',VK_RETURN,' TAB=',VK_TAB,' DOWN=',VK_DOWN,' UP=',VK_UP);
-  if (Key=VK_RETURN) then begin
-    OkButtonClick(Sender);
-    Key:=VK_UNKNOWN;
-  end else if (Key=VK_ESCAPE) then begin
-    CancelButtonClick(Sender);
-    Key:=VK_UNKNOWN;
-  end else if Assigned(OnKey) then begin
+  if Assigned(OnKey) then begin
    if Sender=TextToFindComboBox then
      Component:=fdcText
    else
--- a/ide/main.pp
+++ b/ide/main.pp
@ -7740,10 +7740,10 @@ begin

  Result := mrCancel;

-{$IFNDEF DoNotUseProcessDebugger}
+  {$IFNDEF DoNotUseProcessDebugger}
  Result := DebugBoss.RunDebugger;
 //  if Result<>mrOk then exit;
-{$ELSE}
+  {$ELSE}
  if EnvironmentOptions.IsDebuggerClassDefined
  then begin
    Result := DebugBoss.RunDebugger;
@ -7771,7 +7771,7 @@ begin
      ToolStatus:=itNone;
    end;
  end;
-{$ENDIF}
+  {$ENDIF}

  DebugLn('[TMainIDE.DoRunProject] END');
 end;