From bfba06a2d8f25e778eb1a30eda03890582353c4a Mon Sep 17 00:00:00 2001 From: mattias Date: Sun, 3 Aug 2008 20:00:49 +0000 Subject: [PATCH] fixed macro description ExeExt, fixed abort on lfm repair during project loading, fixed uninitialized result for HasUnitRegisterProc, find/replace dialog now can enable/disable replace by user - needed for apple human interface guide lines git-svn-id: trunk@15941 - --- ide/customformeditor.pp | 1 + ide/environmentopts.pp | 2 +- ide/findreplacedialog.lfm | 147 ++++++++-------- ide/findreplacedialog.lrs | 340 ++++++++++++------------------------ ide/findreplacedialog.pp | 39 +++-- ide/keymapping.pp | 30 +++- ide/lazarusidestrconsts.pas | 1 + ide/main.pp | 4 +- ide/sourceeditor.pp | 4 +- 9 files changed, 242 insertions(+), 326 deletions(-) diff --git a/ide/customformeditor.pp b/ide/customformeditor.pp index 1fed79fc84..6f894fe45f 100644 --- a/ide/customformeditor.pp +++ b/ide/customformeditor.pp @@ -2392,6 +2392,7 @@ end; function TCustomFormEditor.TranslateKeyToDesignerCommand(Key: word; Shift: TShiftState): word; begin + //debugln(['TCustomFormEditor.TranslateKeyToDesignerCommand ',DbgSName(TDesignerIDECommandForm),' ',Key,' ',dbgs(Shift)]); Result:=EditorOpts.KeyMap.TranslateKey(Key,Shift,TDesignerIDECommandForm); end; diff --git a/ide/environmentopts.pp b/ide/environmentopts.pp index 79ecb7623d..5bd27f7628 100644 --- a/ide/environmentopts.pp +++ b/ide/environmentopts.pp @@ -1531,7 +1531,7 @@ begin AMacroList.Add(TTransferMacro.Create('LazarusDir','', lisLazarusDirectory,@MacroFuncLazarusDir,[])); AMacroList.Add(TTransferMacro.Create('ExeExt','', - lisLazarusDirectory,@MacroFuncExeExt,[])); + lisFileExtensionOfPrograms, @MacroFuncExeExt, [])); AMacroList.Add(TTransferMacro.Create('LanguageID','', lisLazarusLanguageID,@MacroFuncLanguageID,[])); AMacroList.Add(TTransferMacro.Create('LanguageName','', diff --git a/ide/findreplacedialog.lfm b/ide/findreplacedialog.lfm index f7999f84fa..fed1f7c637 100644 --- a/ide/findreplacedialog.lfm +++ b/ide/findreplacedialog.lfm @@ -19,38 +19,37 @@ object LazFindReplaceDialog: TLazFindReplaceDialog AnchorSideTop.Control = TextToFindComboBox AnchorSideTop.Side = asrCenter Left = 6 - Height = 24 - Top = 14 - Width = 119 + Height = 18 + Top = 13 + Width = 105 Alignment = taRightJustify BorderSpacing.Left = 6 Caption = 'TextToFindLabel' FocusControl = TextToFindComboBox ParentColor = False end - object ReplaceWithLabel: TLabel + object ReplaceWithCheckbox: TCheckBox AnchorSideLeft.Control = Owner AnchorSideTop.Control = ReplaceTextComboBox AnchorSideTop.Side = asrCenter Left = 6 - Height = 24 - Top = 49 - Width = 136 - Alignment = taRightJustify + Height = 18 + Top = 40 + Width = 159 BorderSpacing.Left = 6 - Caption = 'ReplaceWithLabel' - FocusControl = ReplaceTextComboBox - ParentColor = False + Caption = 'ReplaceWithCheckbox' + OnChange = ReplaceWithCheckboxChange + TabOrder = 7 end object TextToFindComboBox: TComboBox AnchorSideLeft.Control = TextToFindLabel AnchorSideLeft.Side = asrBottom AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom - Left = 137 - Height = 29 + Left = 123 + Height = 21 Top = 12 - Width = 277 + Width = 291 Anchors = [akTop, akLeft, akRight] AutoComplete = True AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactRetainPrefixCase, cbactSearchAscending] @@ -62,16 +61,16 @@ object LazFindReplaceDialog: TLazFindReplaceDialog Text = 'TextToFindComboBox' end object ReplaceTextComboBox: TComboBox - AnchorSideLeft.Control = ReplaceWithLabel + AnchorSideLeft.Control = ReplaceWithCheckbox AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = TextToFindComboBox AnchorSideTop.Side = asrBottom AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom - Left = 154 - Height = 29 - Top = 47 - Width = 260 + Left = 177 + Height = 21 + Top = 39 + Width = 237 Anchors = [akTop, akLeft, akRight] AutoComplete = True AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactRetainPrefixCase, cbactSearchAscending] @@ -88,24 +87,24 @@ object LazFindReplaceDialog: TLazFindReplaceDialog AnchorSideTop.Side = asrBottom AnchorSideBottom.Control = BtnPanel Left = 6 - Height = 243 - Top = 82 + Height = 259 + Top = 66 Width = 199 Anchors = [akTop, akLeft, akBottom] BorderSpacing.Left = 6 BorderSpacing.Top = 6 BorderSpacing.Bottom = 6 Caption = 'OptionsGroupBox' - ClientHeight = 222 - ClientWidth = 195 + ClientHeight = 237 + ClientWidth = 191 TabOrder = 2 OnResize = OptionsGroupBoxResize object PromptOnReplaceCheckBox: TCheckBox AnchorSideTop.Side = asrBottom Left = 6 - Height = 23 - Top = 152 - Width = 183 + Height = 18 + Top = 132 + Width = 179 Align = alTop BorderSpacing.Top = 6 BorderSpacing.Around = 6 @@ -119,9 +118,9 @@ object LazFindReplaceDialog: TLazFindReplaceDialog object MultiLineCheckBox: TCheckBox AnchorSideTop.Side = asrBottom Left = 6 - Height = 23 - Top = 117 - Width = 183 + Height = 18 + Top = 102 + Width = 179 Align = alTop BorderSpacing.Top = 6 BorderSpacing.Around = 6 @@ -133,9 +132,9 @@ object LazFindReplaceDialog: TLazFindReplaceDialog object RegularExpressionsCheckBox: TCheckBox AnchorSideTop.Side = asrBottom Left = 6 - Height = 23 - Top = 82 - Width = 183 + Height = 18 + Top = 72 + Width = 179 Align = alTop BorderSpacing.Top = 6 BorderSpacing.Around = 6 @@ -147,9 +146,9 @@ object LazFindReplaceDialog: TLazFindReplaceDialog object WholeWordsOnlyCheckBox: TCheckBox AnchorSideTop.Side = asrBottom Left = 6 - Height = 23 - Top = 47 - Width = 183 + Height = 18 + Top = 42 + Width = 179 Align = alTop BorderSpacing.Top = 6 BorderSpacing.Around = 6 @@ -161,9 +160,9 @@ object LazFindReplaceDialog: TLazFindReplaceDialog object CaseSensitiveCheckBox: TCheckBox AnchorSideTop.Side = asrBottom Left = 6 - Height = 23 + Height = 18 Top = 12 - Width = 183 + Width = 179 Align = alTop BorderSpacing.Top = 6 BorderSpacing.Around = 6 @@ -180,7 +179,7 @@ object LazFindReplaceDialog: TLazFindReplaceDialog AnchorSideTop.Side = asrBottom Left = 211 Height = 74 - Top = 162 + Top = 146 Width = 199 BorderSpacing.Around = 6 Caption = 'ScopeGroupBox' @@ -191,22 +190,22 @@ object LazFindReplaceDialog: TLazFindReplaceDialog ChildSizing.ShrinkVertical = crsHomogenousSpaceResize ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 53 - ClientWidth = 195 + ClientHeight = 52 + ClientWidth = 191 TabOrder = 4 object SelectedRadioButton: TRadioButton - Left = 5 - Height = 23 - Top = 3 - Width = 184 + Left = 6 + Height = 18 + Top = 6 + Width = 179 Caption = 'SelectedRadioButton' TabOrder = 0 end object GlobalRadioButton: TRadioButton - Left = 5 - Height = 23 - Top = 29 - Width = 184 + Left = 6 + Height = 18 + Top = 30 + Width = 179 Caption = 'GlobalRadioButton' Checked = True State = cbChecked @@ -220,7 +219,7 @@ object LazFindReplaceDialog: TLazFindReplaceDialog AnchorSideTop.Side = asrBottom Left = 211 Height = 74 - Top = 242 + Top = 226 Width = 199 BorderSpacing.Around = 6 Caption = 'DirectionGroupBox' @@ -231,20 +230,22 @@ object LazFindReplaceDialog: TLazFindReplaceDialog ChildSizing.ShrinkVertical = crsHomogenousSpaceResize ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 53 - ClientWidth = 195 + ClientHeight = 52 + ClientWidth = 191 TabOrder = 5 object BackwardRadioButton: TRadioButton - Height = 23 - Top = 3 - Width = 196 + Left = 6 + Height = 18 + Top = 6 + Width = 179 Caption = 'BackwardRadioButton' TabOrder = 0 end object ForwardRadioButton: TRadioButton - Height = 23 - Top = 29 - Width = 196 + Left = 6 + Height = 18 + Top = 30 + Width = 179 Caption = 'ForwardRadioButton' Checked = True State = cbChecked @@ -258,7 +259,7 @@ object LazFindReplaceDialog: TLazFindReplaceDialog AnchorSideTop.Side = asrBottom Left = 211 Height = 74 - Top = 82 + Top = 66 Width = 199 BorderSpacing.Around = 6 Caption = 'OriginGroupBox' @@ -269,13 +270,14 @@ object LazFindReplaceDialog: TLazFindReplaceDialog ChildSizing.ShrinkVertical = crsHomogenousSpaceResize ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 53 - ClientWidth = 195 + ClientHeight = 52 + ClientWidth = 191 TabOrder = 3 object FromCursorRadioButton: TRadioButton - Height = 23 - Top = 3 - Width = 213 + Left = 6 + Height = 18 + Top = 6 + Width = 179 AutoSize = False Caption = 'FromCursorRadioButton' Checked = True @@ -283,9 +285,10 @@ object LazFindReplaceDialog: TLazFindReplaceDialog TabOrder = 0 end object EntireScopeRadioButton: TRadioButton - Height = 23 - Top = 29 - Width = 213 + Left = 6 + Height = 18 + Top = 30 + Width = 179 AutoSize = False Caption = 'EntireScopeRadioButton' TabOrder = 1 @@ -303,10 +306,10 @@ object LazFindReplaceDialog: TLazFindReplaceDialog TabOrder = 6 object ReplaceAllButton: TBitBtn AnchorSideBottom.Side = asrBottom - Left = 216 + Left = 221 Height = 30 Top = 6 - Width = 46 + Width = 53 Align = alRight AutoSize = True BorderSpacing.Around = 6 @@ -318,10 +321,10 @@ object LazFindReplaceDialog: TLazFindReplaceDialog end object OKButton: TBitBtn AnchorSideBottom.Side = asrBottom - Left = 268 + Left = 280 Height = 30 Top = 6 - Width = 56 + Width = 55 Align = alRight AutoSize = True BorderSpacing.Around = 6 @@ -335,10 +338,10 @@ object LazFindReplaceDialog: TLazFindReplaceDialog object CancelButton: TBitBtn AnchorSideRight.Side = asrBottom AnchorSideBottom.Side = asrBottom - Left = 330 + Left = 341 Height = 30 Top = 6 - Width = 84 + Width = 73 Align = alRight AutoSize = True BorderSpacing.Around = 6 diff --git a/ide/findreplacedialog.lrs b/ide/findreplacedialog.lrs index 470000c6a5..e1ea660805 100644 --- a/ide/findreplacedialog.lrs +++ b/ide/findreplacedialog.lrs @@ -9,240 +9,118 @@ LazarusResources.Add('TLazFindReplaceDialog','FORMDATA',[ +'hangeBounds'#7#16'FormChangeBounds'#7'OnClose'#7#9'FormClose'#10'LCLVersion' +#6#6'0.9.25'#0#6'TLabel'#15'TextToFindLabel'#22'AnchorSideLeft.Control'#7#5 +'Owner'#21'AnchorSideTop.Control'#7#18'TextToFindComboBox'#18'AnchorSideTop.' - +'Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#24#3'Top'#2#14#5'Width'#2'w'#9 + +'Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#18#3'Top'#2#13#5'Width'#2'i'#9 +'Alignment'#7#14'taRightJustify'#18'BorderSpacing.Left'#2#6#7'Caption'#6#15 +'TextToFindLabel'#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'ReplaceTextComboBox'#18'AnchorSideTop.Side'#7#9 - +'asrCenter'#4'Left'#2#6#6'Height'#2#24#3'Top'#2'1'#5'Width'#3#136#0#9'Alignm' - +'ent'#7#14'taRightJustify'#18'BorderSpacing.Left'#2#6#7'Caption'#6#16'Replac' - +'eWithLabel'#12'FocusControl'#7#19'ReplaceTextComboBox'#11'ParentColor'#8#0#0 - +#9'TComboBox'#18'TextToFindComboBox'#22'AnchorSideLeft.Control'#7#15'TextToF' - +'indLabel'#19'AnchorSideLeft.Side'#7#9'asrBottom'#23'AnchorSideRight.Control' - +#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#137#0#6'Height' - +#2#29#3'Top'#2#12#5'Width'#3#21#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight' - +#0#12'AutoComplete'#9#16'AutoCompleteText'#11#12'cbactEnabled'#22'cbactEndOf' - +'LineComplete'#21'cbactRetainPrefixCase'#20'cbactSearchAscending'#0#18'Borde' - +'rSpacing.Left'#2#6#20'BorderSpacing.Around'#2#6#9'MaxLength'#2#0#9'OnKeyDow' - +'n'#7#25'TextToFindComboboxKeyDown'#8'TabOrder'#2#0#4'Text'#6#18'TextToFindC' - +'omboBox'#0#0#9'TComboBox'#19'ReplaceTextComboBox'#22'AnchorSideLeft.Control' - +#7#16'ReplaceWithLabel'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSide' - +'Top.Control'#7#18'TextToFindComboBox'#18'AnchorSideTop.Side'#7#9'asrBottom' - +#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBott' - +'om'#4'Left'#3#154#0#6'Height'#2#29#3'Top'#2'/'#5'Width'#3#4#1#7'Anchors'#11 - +#5'akTop'#6'akLeft'#7'akRight'#0#12'AutoComplete'#9#16'AutoCompleteText'#11 - +#12'cbactEnabled'#22'cbactEndOfLineComplete'#21'cbactRetainPrefixCase'#20'cb' - +'actSearchAscending'#0#18'BorderSpacing.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'ReplaceTextComboBox'#0#0#9'TGroupBox'#15'OptionsGroupBox' - +#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#19'Replac' - +'eTextComboBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#24'AnchorSideBottom.Co' - +'ntrol'#7#8'BtnPanel'#4'Left'#2#6#6'Height'#3#243#0#3'Top'#2'R'#5'Width'#3 - +#199#0#7'Anchors'#11#5'akTop'#6'akLeft'#8'akBottom'#0#18'BorderSpacing.Left' - +#2#6#17'BorderSpacing.Top'#2#6#20'BorderSpacing.Bottom'#2#6#7'Caption'#6#15 - +'OptionsGroupBox'#12'ClientHeight'#3#222#0#11'ClientWidth'#3#195#0#8'TabOrde' - +'r'#2#2#8'OnResize'#7#21'OptionsGroupBoxResize'#0#9'TCheckBox'#23'PromptOnRe' - +'placeCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2 - +#23#3'Top'#3#152#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'PromptOnReplaceCheckBox'#7 - +'Checked'#9#14'ParentShowHint'#8#8'ShowHint'#9#5'State'#7#9'cbChecked'#8'Tab' - +'Order'#2#4#0#0#9'TCheckBox'#17'MultiLineCheckBox'#18'AnchorSideTop.Side'#7#9 - +'asrBottom'#4'Left'#2#6#6'Height'#2#23#3'Top'#2'u'#5'Width'#3#183#0#5'Align' - +#7#5'alTop'#17'BorderSpacing.Top'#2#6#20'BorderSpacing.Around'#2#6#7'Caption' - +#6#17'MultiLineCheckBox'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#3#0 - +#0#9'TCheckBox'#26'RegularExpressionsCheckBox'#18'AnchorSideTop.Side'#7#9'as' - +'rBottom'#4'Left'#2#6#6'Height'#2#23#3'Top'#2'R'#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'TabOrde' - +'r'#2#2#0#0#9'TCheckBox'#22'WholeWordsOnlyCheckBox'#18'AnchorSideTop.Side'#7 - +#9'asrBottom'#4'Left'#2#6#6'Height'#2#23#3'Top'#2'/'#5'Width'#3#183#0#5'Alig' - +'n'#7#5'alTop'#17'BorderSpacing.Top'#2#6#20'BorderSpacing.Around'#2#6#7'Capt' - +'ion'#6#22'WholeWordsOnlyCheckBox'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabO' - +'rder'#2#1#0#0#9'TCheckBox'#21'CaseSensitiveCheckBox'#18'AnchorSideTop.Side' - +#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#23#3'Top'#2#12#5'Width'#3#183#0#5'Al' - +'ign'#7#5'alTop'#17'BorderSpacing.Top'#2#6#20'BorderSpacing.Around'#2#6#7'Ca' - +'ption'#6#21'CaseSensitiveCheckBox'#14'ParentShowHint'#8#8'ShowHint'#9#8'Tab' - +'Order'#2#0#0#0#0#9'TGroupBox'#13'ScopeGroupBox'#22'AnchorSideLeft.Control'#7 - +#15'OptionsGroupBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop' - +'.Control'#7#14'OriginGroupBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left' - ,#3#211#0#6'Height'#2'J'#3'Top'#3#162#0#5'Width'#3#199#0#20'BorderSpacing.Aro' - +'und'#2#6#7'Caption'#6#13'ScopeGroupBox'#28'ChildSizing.LeftRightSpacing'#2#6 - +#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSi' - +'zing.EnlargeVertical'#7#24'crsHomogenousSpaceResize'#28'ChildSizing.ShrinkH' - +'orizontal'#7#24'crsHomogenousSpaceResize'#26'ChildSizing.ShrinkVertical'#7 - +#24'crsHomogenousSpaceResize'#18'ChildSizing.Layout'#7#29'cclLeftToRightThen' - +'TopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHeight'#2'5'#11'C' - +'lientWidth'#3#195#0#8'TabOrder'#2#4#0#12'TRadioButton'#19'SelectedRadioButt' - +'on'#4'Left'#2#5#6'Height'#2#23#3'Top'#2#3#5'Width'#3#184#0#7'Caption'#6#19 - +'SelectedRadioButton'#8'TabOrder'#2#0#0#0#12'TRadioButton'#17'GlobalRadioBut' - +'ton'#4'Left'#2#5#6'Height'#2#23#3'Top'#2#29#5'Width'#3#184#0#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'AnchorSideLeft.Control'#7#15'Option' - +'sGroupBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control' - +#7#13'ScopeGroupBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#3#211#0#6 - +'Height'#2'J'#3'Top'#3#242#0#5'Width'#3#199#0#20'BorderSpacing.Around'#2#6#7 - +'Caption'#6#17'DirectionGroupBox'#28'ChildSizing.LeftRightSpacing'#2#6#29'Ch' - +'ildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.' - +'EnlargeVertical'#7#24'crsHomogenousSpaceResize'#28'ChildSizing.ShrinkHorizo' - +'ntal'#7#24'crsHomogenousSpaceResize'#26'ChildSizing.ShrinkVertical'#7#24'cr' - +'sHomogenousSpaceResize'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopTo' - +'Bottom'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHeight'#2'5'#11'Client' - +'Width'#3#195#0#8'TabOrder'#2#5#0#12'TRadioButton'#19'BackwardRadioButton'#6 - +'Height'#2#23#3'Top'#2#3#5'Width'#3#196#0#7'Caption'#6#19'BackwardRadioButto' - +'n'#8'TabOrder'#2#0#0#0#12'TRadioButton'#18'ForwardRadioButton'#6'Height'#2 - +#23#3'Top'#2#29#5'Width'#3#196#0#7'Caption'#6#18'ForwardRadioButton'#7'Check' - +'ed'#9#5'State'#7#9'cbChecked'#8'TabOrder'#2#1#0#0#0#9'TGroupBox'#14'OriginG' - +'roupBox'#22'AnchorSideLeft.Control'#7#15'OptionsGroupBox'#19'AnchorSideLeft' - +'.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#19'ReplaceTextComboBox'#18 - +'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#3#211#0#6'Height'#2'J'#3'Top'#2 - +'R'#5'Width'#3#199#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#14'OriginGrou' - +'pBox'#28'ChildSizing.LeftRightSpacing'#2#6#29'ChildSizing.EnlargeHorizontal' - +#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomo' - +'genousSpaceResize'#28'ChildSizing.ShrinkHorizontal'#7#24'crsHomogenousSpace' - +'Resize'#26'ChildSizing.ShrinkVertical'#7#24'crsHomogenousSpaceResize'#18'Ch' - +'ildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.Contro' - +'lsPerLine'#2#1#12'ClientHeight'#2'5'#11'ClientWidth'#3#195#0#8'TabOrder'#2#3 - +#0#12'TRadioButton'#21'FromCursorRadioButton'#6'Height'#2#23#3'Top'#2#3#5'Wi' - +'dth'#3#213#0#8'AutoSize'#8#7'Caption'#6#21'FromCursorRadioButton'#7'Checked' - +#9#5'State'#7#9'cbChecked'#8'TabOrder'#2#0#0#0#12'TRadioButton'#22'EntireSco' - +'peRadioButton'#6'Height'#2#23#3'Top'#2#29#5'Width'#3#213#0#8'AutoSize'#8#7 - +'Caption'#6#22'EntireScopeRadioButton'#8'TabOrder'#2#1#0#0#0#6'TPanel'#8'Btn' - +'Panel'#6'Height'#2'*'#3'Top'#3'K'#1#5'Width'#3#164#1#5'Align'#7#8'alBottom' - +#8'AutoSize'#9#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2'*'#11'ClientWid' - +'th'#3#164#1#8'TabOrder'#2#6#0#7'TBitBtn'#16'ReplaceAllButton'#21'AnchorSide' - +'Bottom.Side'#7#9'asrBottom'#4'Left'#3#216#0#6'Height'#2#30#3'Top'#2#6#5'Wid' - +'th'#2'.'#5'Align'#7#7'alRight'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7 - +'Caption'#6#4'&All'#4'Kind'#7#5'bkAll'#9'NumGlyphs'#2#0#7'OnClick'#7#21'Repl' - +'aceAllButtonClick'#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'OKButton'#21'AnchorSide' - +'Bottom.Side'#7#9'asrBottom'#4'Left'#3#12#1#6'Height'#2#30#3'Top'#2#6#5'Widt' - +'h'#2'8'#5'Align'#7#7'alRight'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7 - +'Caption'#6#3'&OK'#7'Default'#9#4'Kind'#7#4'bkOK'#9'NumGlyphs'#2#0#7'OnClick' - +#7#13'OkButtonClick'#8'TabOrder'#2#1#0#0#7'TBitBtn'#12'CancelButton'#20'Anch' - +'orSideRight.Side'#7#9'asrBottom'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4 - +'Left'#3'J'#1#6'Height'#2#30#3'Top'#2#6#5'Width'#2'T'#5'Align'#7#7'alRight'#8 - +'AutoSize'#9#20'BorderSpacing.Around'#2#6#6'Cancel'#9#7'Caption'#6#6'Cancel' - +#4'Kind'#7#8'bkCancel'#11'ModalResult'#2#2#9'NumGlyphs'#2#0#7'OnClick'#7#17 - +'CancelButtonClick'#8'TabOrder'#2#2#0#0#0#0#21'TLazFindReplaceDialog'#20'Laz' - +'FindReplaceDialog'#4'Left'#3'F'#1#6'Height'#3'u'#1#3'Top'#3#184#0#5'Width'#3 - +#164#1#13'ActiveControl'#7#18'TextToFindComboBox'#11'BorderIcons'#11#12'biSy' - +'stemMenu'#0#7'Caption'#6#20'LazFindReplaceDialog'#12'ClientHeight'#3'u'#1#11 - +'ClientWidth'#3#164#1#21'Constraints.MinHeight'#3'8'#1#20'Constraints.MinWid' - +'th'#3','#1#10'KeyPreview'#9#14'OnChangeBounds'#7#16'FormChangeBounds'#7'OnC' - +'lose'#7#9'FormClose'#10'LCLVersion'#6#6'0.9.25'#0#6'TLabel'#15'TextToFindLa' - ,'bel'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#18'T' - +'extToFindComboBox'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Heig' - +'ht'#2#24#3'Top'#2#14#5'Width'#2'w'#9'Alignment'#7#14'taRightJustify'#18'Bor' - +'derSpacing.Left'#2#6#7'Caption'#6#15'TextToFindLabel'#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'ReplaceTe' - +'xtComboBox'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#24 - +#3'Top'#2'1'#5'Width'#3#136#0#9'Alignment'#7#14'taRightJustify'#18'BorderSpa' - +'cing.Left'#2#6#7'Caption'#6#16'ReplaceWithLabel'#12'FocusControl'#7#19'Repl' - +'aceTextComboBox'#11'ParentColor'#8#0#0#9'TComboBox'#18'TextToFindComboBox' - +#22'AnchorSideLeft.Control'#7#15'TextToFindLabel'#19'AnchorSideLeft.Side'#7#9 - +'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7 - +#9'asrBottom'#4'Left'#3#137#0#6'Height'#2#29#3'Top'#2#12#5'Width'#3#21#1#7'A' - +'nchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#12'AutoComplete'#9#16'AutoComple' - +'teText'#11#12'cbactEnabled'#22'cbactEndOfLineComplete'#21'cbactRetainPrefix' - +'Case'#20'cbactSearchAscending'#0#18'BorderSpacing.Left'#2#6#20'BorderSpacin' - +'g.Around'#2#6#9'MaxLength'#2#0#9'OnKeyDown'#7#25'TextToFindComboboxKeyDown' - +#8'TabOrder'#2#0#4'Text'#6#18'TextToFindComboBox'#0#0#9'TComboBox'#19'Replac' - +'eTextComboBox'#22'AnchorSideLeft.Control'#7#16'ReplaceWithLabel'#19'AnchorS' - +'ideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#18'TextToFindCombo' - +'Box'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5 - +'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#154#0#6'Height'#2 - +#29#3'Top'#2'/'#5'Width'#3#4#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0 - +#12'AutoComplete'#9#16'AutoCompleteText'#11#12'cbactEnabled'#22'cbactEndOfLi' - +'neComplete'#21'cbactRetainPrefixCase'#20'cbactSearchAscending'#0#18'BorderS' - +'pacing.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'ReplaceTextCom' - +'boBox'#0#0#9'TGroupBox'#15'OptionsGroupBox'#22'AnchorSideLeft.Control'#7#5 - +'Owner'#21'AnchorSideTop.Control'#7#19'ReplaceTextComboBox'#18'AnchorSideTop' - +'.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#8'BtnPanel'#4'Left'#2#6 - +#6'Height'#3#243#0#3'Top'#2'R'#5'Width'#3#199#0#7'Anchors'#11#5'akTop'#6'akL' - +'eft'#8'akBottom'#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#20 - +'BorderSpacing.Bottom'#2#6#7'Caption'#6#15'OptionsGroupBox'#12'ClientHeight' - +#3#222#0#11'ClientWidth'#3#195#0#8'TabOrder'#2#2#8'OnResize'#7#21'OptionsGro' - +'upBoxResize'#0#9'TCheckBox'#23'PromptOnReplaceCheckBox'#18'AnchorSideTop.Si' - +'de'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#23#3'Top'#3#152#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'PromptOnReplaceCheckBox'#7'Checked'#9#14'ParentShowHint'#8#8 - +'ShowHint'#9#5'State'#7#9'cbChecked'#8'TabOrder'#2#4#0#0#9'TCheckBox'#17'Mul' - +'tiLineCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height' - +#2#23#3'Top'#2'u'#5'Width'#3#183#0#5'Align'#7#5'alTop'#17'BorderSpacing.Top' - +#2#6#20'BorderSpacing.Around'#2#6#7'Caption'#6#17'MultiLineCheckBox'#14'Pare' - +'ntShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#3#0#0#9'TCheckBox'#26'RegularExpr' - +'essionsCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height' - +#2#23#3'Top'#2'R'#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'Whol' - +'eWordsOnlyCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Hei' - +'ght'#2#23#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'WholeWordsOnlyCheckB' - +'ox'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#1#0#0#9'TCheckBox'#21 - +'CaseSensitiveCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6 - +'Height'#2#23#3'Top'#2#12#5'Width'#3#183#0#5'Align'#7#5'alTop'#17'BorderSpac' - +'ing.Top'#2#6#20'BorderSpacing.Around'#2#6#7'Caption'#6#21'CaseSensitiveChec' - +'kBox'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#0#0#0#0#9'TGroupBox' - +#13'ScopeGroupBox'#22'AnchorSideLeft.Control'#7#15'OptionsGroupBox'#19'Ancho' - +'rSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#14'OriginGroupBo' - +'x'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#3#211#0#6'Height'#2'J'#3'T' - +'op'#3#162#0#5'Width'#3#199#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#13'S' - +'copeGroupBox'#28'ChildSizing.LeftRightSpacing'#2#6#29'ChildSizing.EnlargeHo' - +'rizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7 - +#24'crsHomogenousSpaceResize'#28'ChildSizing.ShrinkHorizontal'#7#24'crsHomog' - +'enousSpaceResize'#26'ChildSizing.ShrinkVertical'#7#24'crsHomogenousSpaceRes' - +'ize'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSiz' - ,'ing.ControlsPerLine'#2#1#12'ClientHeight'#2'5'#11'ClientWidth'#3#195#0#8'Ta' - +'bOrder'#2#4#0#12'TRadioButton'#19'SelectedRadioButton'#4'Left'#2#5#6'Height' - +#2#23#3'Top'#2#3#5'Width'#3#184#0#7'Caption'#6#19'SelectedRadioButton'#8'Tab' - +'Order'#2#0#0#0#12'TRadioButton'#17'GlobalRadioButton'#4'Left'#2#5#6'Height' - +#2#23#3'Top'#2#29#5'Width'#3#184#0#7'Caption'#6#17'GlobalRadioButton'#7'Chec' - +'ked'#9#5'State'#7#9'cbChecked'#8'TabOrder'#2#1#0#0#0#9'TGroupBox'#17'Direct' - +'ionGroupBox'#22'AnchorSideLeft.Control'#7#15'OptionsGroupBox'#19'AnchorSide' - +'Left.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#13'ScopeGroupBox'#18 - +'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#3#211#0#6'Height'#2'J'#3'Top'#3 - +#242#0#5'Width'#3#199#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#17'Directi' - +'onGroupBox'#28'ChildSizing.LeftRightSpacing'#2#6#29'ChildSizing.EnlargeHori' - +'zontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24 + +#0#0#9'TCheckBox'#19'ReplaceWithCheckbox'#22'AnchorSideLeft.Control'#7#5'Own' + +'er'#21'AnchorSideTop.Control'#7#19'ReplaceTextComboBox'#18'AnchorSideTop.Si' + +'de'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#18#3'Top'#2'('#5'Width'#3#159#0 + +#18'BorderSpacing.Left'#2#6#7'Caption'#6#19'ReplaceWithCheckbox'#8'OnChange' + +#7#25'ReplaceWithCheckboxChange'#8'TabOrder'#2#7#0#0#9'TComboBox'#18'TextToF' + +'indComboBox'#22'AnchorSideLeft.Control'#7#15'TextToFindLabel'#19'AnchorSide' + +'Left.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorS' + +'ideRight.Side'#7#9'asrBottom'#4'Left'#2'{'#6'Height'#2#21#3'Top'#2#12#5'Wid' + +'th'#3'#'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#12'AutoComplete'#9 + +#16'AutoCompleteText'#11#12'cbactEnabled'#22'cbactEndOfLineComplete'#21'cbac' + +'tRetainPrefixCase'#20'cbactSearchAscending'#0#18'BorderSpacing.Left'#2#6#20 + +'BorderSpacing.Around'#2#6#9'MaxLength'#2#0#9'OnKeyDown'#7#25'TextToFindComb' + +'oboxKeyDown'#8'TabOrder'#2#0#4'Text'#6#18'TextToFindComboBox'#0#0#9'TComboB' + +'ox'#19'ReplaceTextComboBox'#22'AnchorSideLeft.Control'#7#19'ReplaceWithChec' + +'kbox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#18 + +'TextToFindComboBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRigh' + +'t.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#177 + +#0#6'Height'#2#21#3'Top'#2''''#5'Width'#3#237#0#7'Anchors'#11#5'akTop'#6'akL' + +'eft'#7'akRight'#0#12'AutoComplete'#9#16'AutoCompleteText'#11#12'cbactEnable' + +'d'#22'cbactEndOfLineComplete'#21'cbactRetainPrefixCase'#20'cbactSearchAscen' + +'ding'#0#18'BorderSpacing.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'ReplaceTextComboBox'#0#0#9'TGroupBox'#15'OptionsGroupBox'#22'AnchorSideL' + +'eft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#19'ReplaceTextComboBox' + +#18'AnchorSideTop.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#8'BtnP' + +'anel'#4'Left'#2#6#6'Height'#3#3#1#3'Top'#2'B'#5'Width'#3#199#0#7'Anchors'#11 + +#5'akTop'#6'akLeft'#8'akBottom'#0#18'BorderSpacing.Left'#2#6#17'BorderSpacin' + +'g.Top'#2#6#20'BorderSpacing.Bottom'#2#6#7'Caption'#6#15'OptionsGroupBox'#12 + +'ClientHeight'#3#237#0#11'ClientWidth'#3#191#0#8'TabOrder'#2#2#8'OnResize'#7 + +#21'OptionsGroupBoxResize'#0#9'TCheckBox'#23'PromptOnReplaceCheckBox'#18'Anc' + +'horSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#18#3'Top'#3#132#0#5 + +'Width'#3#179#0#5'Align'#7#5'alTop'#17'BorderSpacing.Top'#2#6#20'BorderSpaci' + +'ng.Around'#2#6#7'Caption'#6#23'PromptOnReplaceCheckBox'#7'Checked'#9#14'Par' + +'entShowHint'#8#8'ShowHint'#9#5'State'#7#9'cbChecked'#8'TabOrder'#2#4#0#0#9 + +'TCheckBox'#17'MultiLineCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Le' + +'ft'#2#6#6'Height'#2#18#3'Top'#2'f'#5'Width'#3#179#0#5'Align'#7#5'alTop'#17 + +'BorderSpacing.Top'#2#6#20'BorderSpacing.Around'#2#6#7'Caption'#6#17'MultiLi' + +'neCheckBox'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#3#0#0#9'TCheck' + +'Box'#26'RegularExpressionsCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4 + +'Left'#2#6#6'Height'#2#18#3'Top'#2'H'#5'Width'#3#179#0#5'Align'#7#5'alTop'#17 + +'BorderSpacing.Top'#2#6#20'BorderSpacing.Around'#2#6#7'Caption'#6#26'Regular' + +'ExpressionsCheckBox'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#2#0#0 + +#9'TCheckBox'#22'WholeWordsOnlyCheckBox'#18'AnchorSideTop.Side'#7#9'asrBotto' + +'m'#4'Left'#2#6#6'Height'#2#18#3'Top'#2'*'#5'Width'#3#179#0#5'Align'#7#5'alT' + +'op'#17'BorderSpacing.Top'#2#6#20'BorderSpacing.Around'#2#6#7'Caption'#6#22 + +'WholeWordsOnlyCheckBox'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#1#0 + +#0#9'TCheckBox'#21'CaseSensitiveCheckBox'#18'AnchorSideTop.Side'#7#9'asrBott' + +'om'#4'Left'#2#6#6'Height'#2#18#3'Top'#2#12#5'Width'#3#179#0#5'Align'#7#5'al' + +'Top'#17'BorderSpacing.Top'#2#6#20'BorderSpacing.Around'#2#6#7'Caption'#6#21 + +'CaseSensitiveCheckBox'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#0#0 + +#0#0#9'TGroupBox'#13'ScopeGroupBox'#22'AnchorSideLeft.Control'#7#15'OptionsG' + +'roupBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7 + +#14'OriginGroupBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#3#211#0#6 + ,'Height'#2'J'#3'Top'#3#146#0#5'Width'#3#199#0#20'BorderSpacing.Around'#2#6#7 + +'Caption'#6#13'ScopeGroupBox'#28'ChildSizing.LeftRightSpacing'#2#6#29'ChildS' + +'izing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.Enla' + +'rgeVertical'#7#24'crsHomogenousSpaceResize'#28'ChildSizing.ShrinkHorizontal' + +#7#24'crsHomogenousSpaceResize'#26'ChildSizing.ShrinkVertical'#7#24'crsHomog' + +'enousSpaceResize'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom' + +#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHeight'#2'4'#11'ClientWidth'#3 + +#191#0#8'TabOrder'#2#4#0#12'TRadioButton'#19'SelectedRadioButton'#4'Left'#2#6 + +#6'Height'#2#18#3'Top'#2#6#5'Width'#3#179#0#7'Caption'#6#19'SelectedRadioBut' + +'ton'#8'TabOrder'#2#0#0#0#12'TRadioButton'#17'GlobalRadioButton'#4'Left'#2#6 + +#6'Height'#2#18#3'Top'#2#30#5'Width'#3#179#0#7'Caption'#6#17'GlobalRadioButt' + +'on'#7'Checked'#9#5'State'#7#9'cbChecked'#8'TabOrder'#2#1#0#0#0#9'TGroupBox' + +#17'DirectionGroupBox'#22'AnchorSideLeft.Control'#7#15'OptionsGroupBox'#19'A' + +'nchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#13'ScopeGrou' + +'pBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#3#211#0#6'Height'#2'J'#3 + +'Top'#3#226#0#5'Width'#3#199#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#17 + +'DirectionGroupBox'#28'ChildSizing.LeftRightSpacing'#2#6#29'ChildSizing.Enla' + +'rgeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertica' + +'l'#7#24'crsHomogenousSpaceResize'#28'ChildSizing.ShrinkHorizontal'#7#24'crs' + +'HomogenousSpaceResize'#26'ChildSizing.ShrinkVertical'#7#24'crsHomogenousSpa' + +'ceResize'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'Chi' + +'ldSizing.ControlsPerLine'#2#1#12'ClientHeight'#2'4'#11'ClientWidth'#3#191#0 + +#8'TabOrder'#2#5#0#12'TRadioButton'#19'BackwardRadioButton'#4'Left'#2#6#6'He' + +'ight'#2#18#3'Top'#2#6#5'Width'#3#179#0#7'Caption'#6#19'BackwardRadioButton' + +#8'TabOrder'#2#0#0#0#12'TRadioButton'#18'ForwardRadioButton'#4'Left'#2#6#6'H' + +'eight'#2#18#3'Top'#2#30#5'Width'#3#179#0#7'Caption'#6#18'ForwardRadioButton' + +#7'Checked'#9#5'State'#7#9'cbChecked'#8'TabOrder'#2#1#0#0#0#9'TGroupBox'#14 + +'OriginGroupBox'#22'AnchorSideLeft.Control'#7#15'OptionsGroupBox'#19'AnchorS' + +'ideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#19'ReplaceTextComb' + +'oBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#3#211#0#6'Height'#2'J'#3 + +'Top'#2'B'#5'Width'#3#199#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#14'Ori' + +'ginGroupBox'#28'ChildSizing.LeftRightSpacing'#2#6#29'ChildSizing.EnlargeHor' + +'izontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24 +'crsHomogenousSpaceResize'#28'ChildSizing.ShrinkHorizontal'#7#24'crsHomogeno' +'usSpaceResize'#26'ChildSizing.ShrinkVertical'#7#24'crsHomogenousSpaceResize' +#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.C' - +'ontrolsPerLine'#2#1#12'ClientHeight'#2'5'#11'ClientWidth'#3#195#0#8'TabOrde' - +'r'#2#5#0#12'TRadioButton'#19'BackwardRadioButton'#6'Height'#2#23#3'Top'#2#3 - +#5'Width'#3#196#0#7'Caption'#6#19'BackwardRadioButton'#8'TabOrder'#2#0#0#0#12 - +'TRadioButton'#18'ForwardRadioButton'#6'Height'#2#23#3'Top'#2#29#5'Width'#3 - +#196#0#7'Caption'#6#18'ForwardRadioButton'#7'Checked'#9#5'State'#7#9'cbCheck' - +'ed'#8'TabOrder'#2#1#0#0#0#9'TGroupBox'#14'OriginGroupBox'#22'AnchorSideLeft' - +'.Control'#7#15'OptionsGroupBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'A' - +'nchorSideTop.Control'#7#19'ReplaceTextComboBox'#18'AnchorSideTop.Side'#7#9 - +'asrBottom'#4'Left'#3#211#0#6'Height'#2'J'#3'Top'#2'R'#5'Width'#3#199#0#20'B' - +'orderSpacing.Around'#2#6#7'Caption'#6#14'OriginGroupBox'#28'ChildSizing.Lef' - +'tRightSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChil' - +'dResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousSpaceResize'#28 - +'ChildSizing.ShrinkHorizontal'#7#24'crsHomogenousSpaceResize'#26'ChildSizing' - +'.ShrinkVertical'#7#24'crsHomogenousSpaceResize'#18'ChildSizing.Layout'#7#29 - +'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'Clien' - +'tHeight'#2'5'#11'ClientWidth'#3#195#0#8'TabOrder'#2#3#0#12'TRadioButton'#21 - +'FromCursorRadioButton'#6'Height'#2#23#3'Top'#2#3#5'Width'#3#213#0#8'AutoSiz' - +'e'#8#7'Caption'#6#21'FromCursorRadioButton'#7'Checked'#9#5'State'#7#9'cbChe' - +'cked'#8'TabOrder'#2#0#0#0#12'TRadioButton'#22'EntireScopeRadioButton'#6'Hei' - +'ght'#2#23#3'Top'#2#29#5'Width'#3#213#0#8'AutoSize'#8#7'Caption'#6#22'Entire' - +'ScopeRadioButton'#8'TabOrder'#2#1#0#0#0#6'TPanel'#8'BtnPanel'#6'Height'#2'*' - +#3'Top'#3'K'#1#5'Width'#3#164#1#5'Align'#7#8'alBottom'#8'AutoSize'#9#10'Beve' - +'lOuter'#7#6'bvNone'#12'ClientHeight'#2'*'#11'ClientWidth'#3#164#1#8'TabOrde' - +'r'#2#6#0#7'TBitBtn'#16'ReplaceAllButton'#21'AnchorSideBottom.Side'#7#9'asrB' - +'ottom'#4'Left'#3#216#0#6'Height'#2#30#3'Top'#2#6#5'Width'#2'.'#5'Align'#7#7 - +'alRight'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#4'&All'#4 - +'Kind'#7#5'bkAll'#9'NumGlyphs'#2#0#7'OnClick'#7#21'ReplaceAllButtonClick'#8 - +'TabOrder'#2#0#0#0#7'TBitBtn'#8'OKButton'#21'AnchorSideBottom.Side'#7#9'asrB' - +'ottom'#4'Left'#3#12#1#6'Height'#2#30#3'Top'#2#6#5'Width'#2'8'#5'Align'#7#7 - +'alRight'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#3'&OK'#7'D' - +'efault'#9#4'Kind'#7#4'bkOK'#9'NumGlyphs'#2#0#7'OnClick'#7#13'OkButtonClick' - +#8'TabOrder'#2#1#0#0#7'TBitBtn'#12'CancelButton'#20'AnchorSideRight.Side'#7#9 - +'asrBottom'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3'J'#1#6'Height' - +#2#30#3'Top'#2#6#5'Width'#2'T'#5'Align'#7#7'alRight'#8'AutoSize'#9#20'Border' - +'Spacing.Around'#2#6#6'Cancel'#9#7'Caption'#6#6'Cancel'#4'Kind'#7#8'bkCancel' - +#11'ModalResult'#2#2#9'NumGlyphs'#2#0#7'OnClick'#7#17'CancelButtonClick'#8'T' - +'abOrder'#2#2#0#0#0#0 + +'ontrolsPerLine'#2#1#12'ClientHeight'#2'4'#11'ClientWidth'#3#191#0#8'TabOrde' + +'r'#2#3#0#12'TRadioButton'#21'FromCursorRadioButton'#4'Left'#2#6#6'Height'#2 + +#18#3'Top'#2#6#5'Width'#3#179#0#8'AutoSize'#8#7'Caption'#6#21'FromCursorRadi' + +'oButton'#7'Checked'#9#5'State'#7#9'cbChecked'#8'TabOrder'#2#0#0#0#12'TRadio' + +'Button'#22'EntireScopeRadioButton'#4'Left'#2#6#6'Height'#2#18#3'Top'#2#30#5 + +'Width'#3#179#0#8'AutoSize'#8#7'Caption'#6#22'EntireScopeRadioButton'#8'TabO' + +'rder'#2#1#0#0#0#6'TPanel'#8'BtnPanel'#6'Height'#2'*'#3'Top'#3'K'#1#5'Width' + +#3#164#1#5'Align'#7#8'alBottom'#8'AutoSize'#9#10'BevelOuter'#7#6'bvNone'#12 + +'ClientHeight'#2'*'#11'ClientWidth'#3#164#1#8'TabOrder'#2#6#0#7'TBitBtn'#16 + +'ReplaceAllButton'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3#221#0#6 + +'Height'#2#30#3'Top'#2#6#5'Width'#2'5'#5'Align'#7#7'alRight'#8'AutoSize'#9#20 + +'BorderSpacing.Around'#2#6#7'Caption'#6#4'&All'#4'Kind'#7#5'bkAll'#9'NumGlyp' + +'hs'#2#0#7'OnClick'#7#21'ReplaceAllButtonClick'#8'TabOrder'#2#0#0#0#7'TBitBt' + +'n'#8'OKButton'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3#24#1#6'He' + +'ight'#2#30#3'Top'#2#6#5'Width'#2'7'#5'Align'#7#7'alRight'#8'AutoSize'#9#20 + +'BorderSpacing.Around'#2#6#7'Caption'#6#3'&OK'#7'Default'#9#4'Kind'#7#4'bkOK' + +#9'NumGlyphs'#2#0#7'OnClick'#7#13'OkButtonClick'#8'TabOrder'#2#1#0#0#7'TBitB' + +'tn'#12'CancelButton'#20'AnchorSideRight.Side'#7#9'asrBottom'#21'AnchorSideB' + +'ottom.Side'#7#9'asrBottom'#4'Left'#3'U'#1#6'Height'#2#30#3'Top'#2#6#5'Width' + +#2'I'#5'Align'#7#7'alRight'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#6'Can' + +'cel'#9#7'Caption'#6#6'Cancel'#4'Kind'#7#8'bkCancel'#11'ModalResult'#2#2#9'N' + +'umGlyphs'#2#0#7'OnClick'#7#17'CancelButtonClick'#8'TabOrder'#2#2#0#0#0#0 ]); diff --git a/ide/findreplacedialog.pp b/ide/findreplacedialog.pp index 355f6ed238..2265b5446a 100644 --- a/ide/findreplacedialog.pp +++ b/ide/findreplacedialog.pp @@ -52,30 +52,31 @@ type TLazFindReplaceDialog = class(TForm) BackwardRadioButton: TRadioButton; BtnPanel: TPanel; - ReplaceAllButton: TBitBtn; + CancelButton: TBitBtn; CaseSensitiveCheckBox: TCheckBox; + DirectionGroupBox: TGroupBox; EntireScopeRadioButton: TRadioButton; ForwardRadioButton: TRadioButton; FromCursorRadioButton: TRadioButton; GlobalRadioButton: TRadioButton; - DirectionGroupBox: TGroupBox; - OriginGroupBox: TGroupBox; - ScopeGroupBox: TGroupBox; - OptionsGroupBox: TGroupBox; MultiLineCheckBox: TCheckBox; OKButton: TBitBtn; + OptionsGroupBox: TGroupBox; + OriginGroupBox: TGroupBox; PromptOnReplaceCheckBox: TCheckBox; RegularExpressionsCheckBox: TCheckBox; - SelectedRadioButton: TRadioButton; - TextToFindLabel: TLabel; - ReplaceWithLabel: TLabel; - TextToFindComboBox: TComboBox; + ReplaceAllButton: TBitBtn; ReplaceTextComboBox: TComboBox; - CancelButton: TBitBtn; + ReplaceWithCheckbox: TCheckBox; + ScopeGroupBox: TGroupBox; + SelectedRadioButton: TRadioButton; + TextToFindComboBox: TComboBox; + TextToFindLabel: TLabel; WholeWordsOnlyCheckBox: TCheckBox; procedure FormChangeBounds(Sender: TObject); procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); procedure OptionsGroupBoxResize(Sender: TObject); + procedure ReplaceWithCheckboxChange(Sender: TObject); procedure TextToFindComboboxKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure OkButtonClick(Sender: TObject); @@ -128,7 +129,7 @@ begin TextToFindComboBox.Text:=''; TextToFindLabel.Caption:=dlgTextToFing; ReplaceTextComboBox.Text:=''; - ReplaceWithLabel.Caption:=dlgReplaceWith; + ReplaceWithCheckbox.Caption:=dlgReplaceWith; OptionsGroupBox.Caption:=dlgFROpts; @@ -215,6 +216,20 @@ begin EnableAlign; end; +procedure TLazFindReplaceDialog.ReplaceWithCheckboxChange(Sender: TObject); +begin + ReplaceAllButton.Visible:=ReplaceWithCheckbox.Checked; + ReplaceTextComboBox.Enabled:=ReplaceAllButton.Visible; + PromptOnReplaceCheckBox.Enabled:=ReplaceAllButton.Visible; + if ReplaceAllButton.Visible then begin + Caption:=lisMenuReplace; + OkButton.Caption:=lisMenuReplace; + end else begin + Caption:=lisMenuFind; + OkButton.Caption:=lisMenuFind; + end; +end; + procedure TLazFindReplaceDialog.FormChangeBounds(Sender: TObject); var w: integer; @@ -322,8 +337,8 @@ begin else ForwardRadioButton.Checked:=True; ReplaceAllButton.Visible:=ssoReplace in NewOptions; + ReplaceWithCheckbox.Checked:=ssoReplace in NewOptions; ReplaceTextComboBox.Enabled:=ReplaceAllButton.Visible; - ReplaceWithLabel.Enabled:=ReplaceAllButton.Visible; PromptOnReplaceCheckBox.Enabled:=ReplaceAllButton.Visible; if ssoReplace in NewOptions then begin diff --git a/ide/keymapping.pp b/ide/keymapping.pp index b746054d26..392eb6f5bb 100644 --- a/ide/keymapping.pp +++ b/ide/keymapping.pp @@ -1071,8 +1071,8 @@ begin ecPageRight: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]); ecPageTop: SetResult(VK_PRIOR, [ssAlt],VK_UNKNOWN,[]); ecPageBottom: SetResult(VK_END, [ssAlt],VK_UNKNOWN,[]); - ecEditorTop: SetResult(VK_HOME,[],VK_UNKNOWN,[]); - ecEditorBottom: SetResult(VK_END,[],VK_UNKNOWN,[]); + ecEditorTop: SetResult(VK_HOME,[],VK_UP,[ssMeta]); + ecEditorBottom: SetResult(VK_END,[],VK_DOWN,[ssMeta]); ecScrollUp: SetResult(VK_UP, [ssCtrl],VK_UNKNOWN,[]); ecScrollDown: SetResult(VK_DOWN, [ssCtrl],VK_UNKNOWN,[]); ecScrollLeft: SetResult(VK_UNKNOWN, [],VK_UNKNOWN,[]); @@ -2338,7 +2338,7 @@ begin ecEditContextHelp); AddDefault(C, 'Reporting a bug', lisMenuReportingBug, ecReportingBug); - // designer - without menu items in the IDE bar (at least no direct) + // designer - without menu items in the IDE bar (at least not directly) C:=Categories[AddCategory('Designer',lisKeyCatDesigner,IDECmdScopeDesignerOnly)]; AddDefault(C, 'Copy selected Components to clipboard', lisKMCopySelectedComponentsToClipboard, ecDesignerCopy); @@ -2591,11 +2591,17 @@ var a:integer; begin Result:=nil; + //debugln(['TKeyCommandRelationList.Find START ',DbgSName(IDEWindowClass)]); + //if IDEWindowClass=nil then RaiseGDBException(''); if Key.Key1=VK_UNKNOWN then exit; for a:=0 to FRelations.Count-1 do with Relations[a] do begin //if Command=ecDesignerSelectParent then // debugln('TKeyCommandRelationList.Find A ',Category.Scope.Name,' ',dbgsName(IDEWindowClass),' ',dbgs(IDECmdScopeDesignerOnly.IDEWindowClassCount),' ',dbgsName(IDECmdScopeDesignerOnly.IDEWindowClasses[0])); + //debugln(['TKeyCommandRelationList.Find ',Name,' HasScope=',Category.Scope<>nil,' ',KeyAndShiftStateToEditorKeyString(ShortcutA),' ',KeyAndShiftStateToEditorKeyString(Key),' ',(Category.Scope<>nil) and (not Category.Scope.HasIDEWindowClass(IDEWindowClass))]); + //if (Category.Scope<>nil) and (Category.Scope.IDEWindowClassCount>0) then + // debugln(['TKeyCommandRelationList.Find ',DbgSName(Category.Scope.IDEWindowClasses[0]),' ',DbgSName(IDEWindowClass)]); + if (Category.Scope<>nil) and (not Category.Scope.HasIDEWindowClass(IDEWindowClass)) then continue; if ((ShortcutA.Key1=Key.Key1) and (ShortcutA.Shift1=Key.Shift1) and @@ -2889,6 +2895,20 @@ function TKeyCommandRelationList.TranslateKey(Key: word; Shift: TShiftState; var ARelation: TKeyCommandRelation; begin + //debugln(['TKeyCommandRelationList.TranslateKey ',DbgSName(IDEWindowClass)]); + //if IDEWindowClass=nil then DumpStack; + Result:=ecNone; + case Key of + VK_UNDEFINED,VK_UNKNOWN, + VK_CONTROL,VK_LCONTROL,VK_RCONTROL, + VK_SHIFT,VK_LSHIFT,VK_RSHIFT, + VK_LBUTTON,VK_MBUTTON,VK_RBUTTON, + VK_LWIN,VK_RWIN: + begin + //debugln(['TKeyCommandRelationList.TranslateKey ignoring ',dbgs(Key)]); + exit; + end; + end; if UseLastKey and (fLastKey.Key1<>VK_UNKNOWN) then begin // the last key had no command // => try a two key combination command @@ -2915,9 +2935,7 @@ begin fLastKey.Key2 := VK_UNKNOWN; fLastKey.Shift2 := []; Result:=ARelation.Command - end - else - Result:=ecNone; + end; end; function TKeyCommandRelationList.IndexOf(ARelation: TKeyCommandRelation diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas index 5e82f142bc..6e7a98ed9b 100644 --- a/ide/lazarusidestrconsts.pas +++ b/ide/lazarusidestrconsts.pas @@ -3825,6 +3825,7 @@ resourcestring +'a clean copy of the project/package, all files in the following ' +'directory will be deleted and all its content will be lost.%s%sDelete ' +'all files in %s%s%s?'; + lisFileExtensionOfPrograms = 'File extension of programs'; implementation diff --git a/ide/main.pp b/ide/main.pp index 1838afec1d..28ba1b39d7 100644 --- a/ide/main.pp +++ b/ide/main.pp @@ -5478,8 +5478,6 @@ begin end; if ([ofProjectLoading,ofLoadHiddenResource]*OpenFlags=[]) then FormEditor1.ClearSelection; - - // create JIT component NewUnitName:=AnUnitInfo.UnitName; @@ -10082,6 +10080,8 @@ begin true,true)<>mrOk then begin DoJumpToCompilerMessage(-1,true); + Result:=mrAbort; + exit; end; Result:=mrOk; diff --git a/ide/sourceeditor.pp b/ide/sourceeditor.pp index 5fde947a73..e335ded550 100644 --- a/ide/sourceeditor.pp +++ b/ide/sourceeditor.pp @@ -1158,8 +1158,7 @@ begin // Fill in history items LazFindReplaceDialog.TextToFindComboBox.Items.Assign(InputHistories.FindHistory); - if Replace then - LazFindReplaceDialog.ReplaceTextComboBox.Items.Assign( + LazFindReplaceDialog.ReplaceTextComboBox.Items.Assign( InputHistories.ReplaceHistory); with EditorComponent do begin @@ -1196,6 +1195,7 @@ begin end; //debugln('TSourceEditor.StartFindAndReplace B LazFindReplaceDialog.FindText="',dbgstr(LazFindReplaceDialog.FindText),'"'); + Replace:=ssoReplace in LazFindReplaceDialog.Options; if Replace then InputHistories.AddToReplaceHistory(LazFindReplaceDialog.ReplaceText); InputHistories.AddToFindHistory(LazFindReplaceDialog.FindText);