paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 17:59:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed find replace dialog

Browse Source 
git-svn-id: trunk@9560 -
This commit is contained in:
mattias 2006-07-04 21:06:22 +00:00
parent 1e133648c8
commit 99cc3bcf19
5 changed files with 252 additions and 258 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/debugmanager.pas
View File

@ -1822,7 +1822,7 @@ end;
function TDebugManager.RunDebugger: TModalResult; function TDebugManager.RunDebugger: TModalResult;
begin begin
//writeln('TDebugManager.RunDebugger A ',FDebugger<>nil,' Destroying=',Destroying); writeln('TDebugManager.RunDebugger A ',FDebugger<>nil,' Destroying=',Destroying);
Result:=mrCancel; Result:=mrCancel;
if Destroying then exit; if Destroying then exit;
if (FDebugger <> nil) then begin if (FDebugger <> nil) then begin

272
ide/findreplacedialog.lfm
View File

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

222
ide/findreplacedialog.lrs
View File

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

8
ide/findreplacedialog.pp
View File

@ -180,13 +180,7 @@ procedure TLazFindReplaceDialog.TextToFindComboBoxKeyDown(
var Component: TFindDlgComponent; var Component: TFindDlgComponent;
begin begin
//debugln('TLazFindReplaceDialog.TextToFindComboBoxKeyDown Key=',Key,' RETURN=',VK_RETURN,' TAB=',VK_TAB,' DOWN=',VK_DOWN,' UP=',VK_UP); //debugln('TLazFindReplaceDialog.TextToFindComboBoxKeyDown Key=',Key,' RETURN=',VK_RETURN,' TAB=',VK_TAB,' DOWN=',VK_DOWN,' UP=',VK_UP);
if (Key=VK_RETURN) then begin if Assigned(OnKey) 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 Sender=TextToFindComboBox then if Sender=TextToFindComboBox then
Component:=fdcText Component:=fdcText
else else

6
ide/main.pp
View File

@ -7740,10 +7740,10 @@ begin
Result := mrCancel; Result := mrCancel;
{$IFNDEF DoNotUseProcessDebugger} {$IFNDEF DoNotUseProcessDebugger}
Result := DebugBoss.RunDebugger; Result := DebugBoss.RunDebugger;
// if Result<>mrOk then exit; // if Result<>mrOk then exit;
{$ELSE} {$ELSE}
if EnvironmentOptions.IsDebuggerClassDefined if EnvironmentOptions.IsDebuggerClassDefined
then begin then begin
Result := DebugBoss.RunDebugger; Result := DebugBoss.RunDebugger;
@ -7771,7 +7771,7 @@ begin
ToolStatus:=itNone; ToolStatus:=itNone;
end; end;
end; end;
{$ENDIF} {$ENDIF}
DebugLn('[TMainIDE.DoRunProject] END'); DebugLn('[TMainIDE.DoRunProject] END');
end; end;