paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-24 03:59:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: started find in files window

Browse Source
This commit is contained in:
mattias 2022-10-16 11:40:57 +02:00
parent 4d25e57184
commit 9c350fa102
4 changed files with 18 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/findinfilesdlg.pas
View File

@ -7,7 +7,7 @@
Author: Mattias Gaertner
Abstract:
Find in files dialog form.
Find in files modal dialog form.
}
unit FindInFilesDlg;

5
ide/lazarus.lpi
View File

@ -1461,6 +1461,11 @@
<ResourceBaseClass Value="Frame"/>
<UnitName Value="IdeStartup_Options"/>
</Unit>
<Unit>
<Filename Value="findinfileswnd.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="FindInFilesWnd"/>
</Unit>
</Units>
</ProjectOptions>
<CompilerOptions>

15
ide/main.pp
View File

@ -153,13 +153,14 @@ uses
InputhistoryWithSearchOpt, UnitDependencies, IDEFPCInfo, IDEInfoDlg,
IDEInfoNeedBuild, ProcessList, IdeDebuggerOpts, IdeDebuggerWatchResPrinter,
IdeDebuggerWatchResult, InitialSetupDlgs, InitialSetupProc, NewDialog,
MakeResStrDlg, DialogProcs, FindReplaceDialog, FindInFilesDlg, CodeExplorer,
BuildFileDlg, ProcedureList, ExtractProcDlg, FindRenameIdentifier,
AbstractsMethodsDlg, EmptyMethodsDlg, UnusedUnitsDlg, UseUnitDlg,
FindOverloadsDlg, EditorFileManager, CleanDirDlg, CodeContextForm, AboutFrm,
CompatibilityRestrictions, RestrictionBrowser, ProjectWizardDlg, IDECmdLine,
IDEGuiCmdLine, CodeExplOpts, EditorMacroListViewer, SourceFileManager,
EditorToolbarStatic, IDEInstances, NotifyProcessEnd, WordCompletion,
MakeResStrDlg, DialogProcs, FindReplaceDialog, FindInFilesDlg, FindInFilesWnd,
CodeExplorer, BuildFileDlg, ProcedureList, ExtractProcDlg,
FindRenameIdentifier, AbstractsMethodsDlg, EmptyMethodsDlg, UnusedUnitsDlg,
UseUnitDlg, FindOverloadsDlg, EditorFileManager, CleanDirDlg, CodeContextForm,
AboutFrm, CompatibilityRestrictions, RestrictionBrowser, ProjectWizardDlg,
IDECmdLine, IDEGuiCmdLine, CodeExplOpts, EditorMacroListViewer,
SourceFileManager, EditorToolbarStatic, IDEInstances, NotifyProcessEnd,
WordCompletion,
// main ide
MainBar, MainIntf, MainBase;

6
ide/mainbase.pas
View File

@ -72,7 +72,7 @@ uses
// IDE
LazConf, LazarusIDEStrConsts, Project, EnvironmentOpts,
EditorOptions, CompilerOptions, SourceEditor, SourceSynEditor, FindInFilesDlg,
Splash, MainBar, MainIntf, Designer, Debugger, RunParamsOpts;
Splash, MainBar, MainIntf, Designer, Debugger, RunParamsOpts, FindInFilesWnd;
type
TResetToolFlag = (
@ -144,7 +144,6 @@ type
procedure mnuCenterWindowItemClick(Sender: TObject); virtual;
procedure mnuWindowSourceItemClick(Sender: TObject); virtual;
procedure mnuBuildModeClicked(Sender: TObject); virtual; abstract;
public
function DoResetToolStatus(AFlags: TResetToolFlags): boolean; virtual; abstract;
@ -1037,6 +1036,9 @@ begin
CreateMenuItem(ParentMI,itmSearchFindNext,'itmSearchFindNext',lisMenuFindNext, 'menu_search_find_next');
CreateMenuItem(ParentMI,itmSearchFindPrevious,'itmSearchFindPrevious',lisMenuFindPrevious, 'menu_search_find_previous');
CreateMenuItem(ParentMI,itmSearchFindInFiles,'itmSearchFindInFiles',lisMenuFindInFiles, 'menu_search_files');
{$IFDEF EnableFindInFilesWnd}
RegisterFindInFilesWnd;
{$ENDIF}
CreateMenuItem(ParentMI,itmSearchReplace, 'itmSearchReplace', lisBtnDlgReplace, 'menu_search_replace');
CreateMenuItem(ParentMI,itmIncrementalFind,'itmIncrementalFind',lisMenuIncrementalFind, 'menu_search_incremental');