paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-30 11:10:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: find in files window: hints

Browse Source
This commit is contained in:
mattias 2023-03-18 22:03:44 +01:00
parent bfde9bed13
commit 5807e56509
2 changed files with 57 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
ide/findinfileswnd.lfm
View File

@ -16,7 +16,7 @@ object LazFindInFilesWindow: TLazFindInFilesWindow
AnchorSideBottom.Control = TextToFindCombobox AnchorSideBottom.Control = TextToFindCombobox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 686 Left = 686
Height = 30 Height = 32
Top = 0 Top = 0
Width = 23 Width = 23
AllowAllUp = True AllowAllUp = True
@ -32,7 +32,7 @@ object LazFindInFilesWindow: TLazFindInFilesWindow
AnchorSideBottom.Control = TextToFindCombobox AnchorSideBottom.Control = TextToFindCombobox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 709 Left = 709
Height = 30 Height = 32
Top = 0 Top = 0
Width = 23 Width = 23
AllowAllUp = True AllowAllUp = True
@ -48,7 +48,7 @@ object LazFindInFilesWindow: TLazFindInFilesWindow
AnchorSideBottom.Control = TextToFindCombobox AnchorSideBottom.Control = TextToFindCombobox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 732 Left = 732
Height = 30 Height = 32
Top = 0 Top = 0
Width = 23 Width = 23
AllowAllUp = True AllowAllUp = True
@ -65,7 +65,7 @@ object LazFindInFilesWindow: TLazFindInFilesWindow
AnchorSideBottom.Control = TextToFindCombobox AnchorSideBottom.Control = TextToFindCombobox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 778 Left = 778
Height = 30 Height = 32
Top = 0 Top = 0
Width = 23 Width = 23
AllowAllUp = True AllowAllUp = True
@ -82,7 +82,7 @@ object LazFindInFilesWindow: TLazFindInFilesWindow
AnchorSideBottom.Control = TextToFindCombobox AnchorSideBottom.Control = TextToFindCombobox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 755 Left = 755
Height = 30 Height = 32
Top = 0 Top = 0
Width = 23 Width = 23
AllowAllUp = True AllowAllUp = True
@ -98,7 +98,7 @@ object LazFindInFilesWindow: TLazFindInFilesWindow
AnchorSideBottom.Control = TextToFindCombobox AnchorSideBottom.Control = TextToFindCombobox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 663 Left = 663
Height = 30 Height = 32
Top = 0 Top = 0
Width = 23 Width = 23
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
@ -112,7 +112,7 @@ object LazFindInFilesWindow: TLazFindInFilesWindow
AnchorSideBottom.Control = TextToFindCombobox AnchorSideBottom.Control = TextToFindCombobox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 0 Left = 0
Height = 30 Height = 32
Top = 0 Top = 0
Width = 23 Width = 23
AllowAllUp = True AllowAllUp = True
@ -120,6 +120,8 @@ object LazFindInFilesWindow: TLazFindInFilesWindow
Caption = '<>' Caption = '<>'
GroupIndex = 1 GroupIndex = 1
OnClick = ShowReplaceSpeedButtonClick OnClick = ShowReplaceSpeedButtonClick
ShowHint = True
ParentShowHint = False
end end
object TextToFindCombobox: TComboBox object TextToFindCombobox: TComboBox
AnchorSideLeft.Control = ShowReplaceSpeedButton AnchorSideLeft.Control = ShowReplaceSpeedButton
@ -127,7 +129,7 @@ object LazFindInFilesWindow: TLazFindInFilesWindow
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
AnchorSideRight.Control = StoreAndNewSpeedButton AnchorSideRight.Control = StoreAndNewSpeedButton
Left = 23 Left = 23
Height = 30 Height = 32
Top = 0 Top = 0
Width = 640 Width = 640
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -140,8 +142,8 @@ object LazFindInFilesWindow: TLazFindInFilesWindow
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ReplaceButton AnchorSideRight.Control = ReplaceButton
Left = 23 Left = 23
Height = 30 Height = 32
Top = 36 Top = 38
Width = 718 Width = 718
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -671,8 +673,8 @@ object LazFindInFilesWindow: TLazFindInFilesWindow
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = SrcDividerBevel AnchorSideBottom.Control = SrcDividerBevel
Left = 0 Left = 0
Height = 153 Height = 145
Top = 140 Top = 148
Width = 801 Width = 801
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -685,14 +687,14 @@ object LazFindInFilesWindow: TLazFindInFilesWindow
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 62 Height = 66
Top = 72 Top = 76
Width = 801 Width = 801
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 62 ClientHeight = 66
ClientWidth = 801 ClientWidth = 801
TabOrder = 4 TabOrder = 4
object DirectoriesComboBox: TComboBox object DirectoriesComboBox: TComboBox
@ -700,8 +702,8 @@ object LazFindInFilesWindow: TLazFindInFilesWindow
AnchorSideTop.Control = FileMaskComboBox AnchorSideTop.Control = FileMaskComboBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 30 Height = 32
Top = 32 Top = 34
Width = 778 Width = 778
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 2 BorderSpacing.Top = 2
@ -715,7 +717,7 @@ object LazFindInFilesWindow: TLazFindInFilesWindow
AnchorSideLeft.Control = WherePanel AnchorSideLeft.Control = WherePanel
AnchorSideTop.Control = WherePanel AnchorSideTop.Control = WherePanel
Left = 0 Left = 0
Height = 30 Height = 32
Top = 0 Top = 0
Width = 227 Width = 227
ItemHeight = 0 ItemHeight = 0
@ -729,7 +731,7 @@ object LazFindInFilesWindow: TLazFindInFilesWindow
AnchorSideBottom.Control = FileMaskComboBox AnchorSideBottom.Control = FileMaskComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 229 Left = 229
Height = 30 Height = 32
Top = 0 Top = 0
Width = 38 Width = 38
AllowAllUp = True AllowAllUp = True
@ -739,6 +741,8 @@ object LazFindInFilesWindow: TLazFindInFilesWindow
Caption = 'Editor' Caption = 'Editor'
Down = True Down = True
GroupIndex = 31 GroupIndex = 31
ShowHint = True
ParentShowHint = False
end end
object InProjectFilesSpeedButton1: TSpeedButton object InProjectFilesSpeedButton1: TSpeedButton
AnchorSideLeft.Control = InEditorFilesSpeedButton AnchorSideLeft.Control = InEditorFilesSpeedButton
@ -747,7 +751,7 @@ object LazFindInFilesWindow: TLazFindInFilesWindow
AnchorSideBottom.Control = FileMaskComboBox AnchorSideBottom.Control = FileMaskComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 269 Left = 269
Height = 30 Height = 32
Top = 0 Top = 0
Width = 44 Width = 44
AllowAllUp = True AllowAllUp = True
@ -758,6 +762,8 @@ object LazFindInFilesWindow: TLazFindInFilesWindow
Caption = 'Project' Caption = 'Project'
Down = True Down = True
GroupIndex = 32 GroupIndex = 32
ShowHint = True
ParentShowHint = False
end end
object PkgComboBox: TComboBox object PkgComboBox: TComboBox
AnchorSideLeft.Control = InProjectFilesSpeedButton1 AnchorSideLeft.Control = InProjectFilesSpeedButton1
@ -765,7 +771,7 @@ object LazFindInFilesWindow: TLazFindInFilesWindow
AnchorSideTop.Control = FileMaskComboBox AnchorSideTop.Control = FileMaskComboBox
AnchorSideRight.Control = PkgEditSpeedButton AnchorSideRight.Control = PkgEditSpeedButton
Left = 315 Left = 315
Height = 30 Height = 32
Top = 0 Top = 0
Width = 463 Width = 463
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -782,11 +788,12 @@ object LazFindInFilesWindow: TLazFindInFilesWindow
AnchorSideBottom.Control = PkgComboBox AnchorSideBottom.Control = PkgComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 778 Left = 778
Height = 30 Height = 32
Top = 0 Top = 0
Width = 23 Width = 23
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
Caption = '...' Caption = '...'
OnClick = PkgEditSpeedButtonClick
end end
end end
object ReplaceButton: TButton object ReplaceButton: TButton
@ -795,7 +802,7 @@ object LazFindInFilesWindow: TLazFindInFilesWindow
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 741 Left = 741
Height = 31 Height = 31
Top = 36 Top = 38
Width = 60 Width = 60
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True AutoSize = True

31
ide/findinfileswnd.pas
View File

@ -1,8 +1,24 @@
{ {
***************************************************************************** ***************************************************************************/
See the file COPYING.modifiedLGPL.txt, included in this distribution,
for details about the license. ***************************************************************************
***************************************************************************** * *
* This source is free software; you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation; either version 2 of the License, or *
* (at your option) any later version. *
* *
* This code is distributed in the hope that it will be useful, but *
* WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *
* General Public License for more details. *
* *
* A copy of the GNU General Public License is available on the World *
* Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also *
* obtain it by writing to the Free Software Foundation, *
* Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1335, USA. *
* *
***************************************************************************
Author: Mattias Gaertner Author: Mattias Gaertner
@ -54,6 +70,7 @@ type
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure PkgEditSpeedButtonClick(Sender: TObject);
procedure ShowReplaceSpeedButtonClick(Sender: TObject); procedure ShowReplaceSpeedButtonClick(Sender: TObject);
private private
DirectoriesPathEditBtn: TPathEditorButton; DirectoriesPathEditBtn: TPathEditorButton;
@ -121,6 +138,7 @@ end;
procedure TLazFindInFilesWindow.FormCreate(Sender: TObject); procedure TLazFindInFilesWindow.FormCreate(Sender: TObject);
begin begin
ShowReplaceSpeedButton.Caption:=''; ShowReplaceSpeedButton.Caption:='';
ShowReplaceSpeedButton.Hint:='Show replace';
TextToFindCombobox.TextHint:='Find text'; TextToFindCombobox.TextHint:='Find text';
StoreAndNewSpeedButton.Hint:='Store results in search results window and start a new search'; StoreAndNewSpeedButton.Hint:='Store results in search results window and start a new search';
CaseSensitiveSpeedButton.Hint:='Case Sensitive'; CaseSensitiveSpeedButton.Hint:='Case Sensitive';
@ -203,6 +221,11 @@ begin
end; end;
procedure TLazFindInFilesWindow.PkgEditSpeedButtonClick(Sender: TObject);
begin
end;
procedure TLazFindInFilesWindow.ShowReplaceSpeedButtonClick(Sender: TObject); procedure TLazFindInFilesWindow.ShowReplaceSpeedButtonClick(Sender: TObject);
begin begin
DisableAlign; DisableAlign;