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

added findinfiles strat implementation from Bob Wingard

Browse Source 
git-svn-id: trunk@4431 -
This commit is contained in:
mattias 2003-07-28 18:02:06 +00:00
parent 4c6b973475
commit 726f0b2afa
4 changed files with 27 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/definetemplates.pas
View File

@ -3232,6 +3232,11 @@ begin
DirTempl:=TDefineTemplate.Create('Examples', DirTempl:=TDefineTemplate.Create('Examples',
Format(ctsNamedDirectory,['Examples']), Format(ctsNamedDirectory,['Examples']),
'','examples',da_Directory); '','examples',da_Directory);
DirTempl.AddChild(TDefineTemplate.Create('Unit path addition',
Format(ctsAddsDirToSourcePath,['components']),
ExternalMacroStart+'SrcPath',
'..;..'+ds+'components'+ds+'units;'+SrcPath
,da_Define));
DirTempl.AddChild(TDefineTemplate.Create('LCL path addition', DirTempl.AddChild(TDefineTemplate.Create('LCL path addition',
Format(ctsAddsDirToSourcePath,['lcl']), Format(ctsAddsDirToSourcePath,['lcl']),
ExternalMacroStart+'SrcPath', ExternalMacroStart+'SrcPath',

5
debugger/debugger.pp
View File

@ -800,7 +800,7 @@ type
FExceptions: TDBGExceptions; FExceptions: TDBGExceptions;
FExitCode: Integer; FExitCode: Integer;
FExternalDebugger: String; FExternalDebugger: String;
FExceptionss: TDBGExceptions; //FExceptionss: TDBGExceptions;
FFileName: String; FFileName: String;
FLocals: TDBGLocals; FLocals: TDBGLocals;
FSignals: TDBGSignals; FSignals: TDBGSignals;
@ -3014,6 +3014,9 @@ end;
end. end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.47 2003/07/28 18:02:06 mattias
added findinfiles strat implementation from Bob Wingard
Revision 1.46 2003/07/25 17:05:58 mattias Revision 1.46 2003/07/25 17:05:58 mattias
moved debugger type to the debugger options moved debugger type to the debugger options

1
ide/environmentopts.pp
View File

@ -533,7 +533,6 @@ type
FOldLazarusDir: string; FOldLazarusDir: string;
FOldCompilerFilename: string; FOldCompilerFilename: string;
FOldFPCSourceDir: string; FOldFPCSourceDir: string;
FOldDebuggerFilename: string;
FOldTestDir: string; FOldTestDir: string;
procedure SetCategoryPage(const AValue: TEnvOptsDialogPage); procedure SetCategoryPage(const AValue: TEnvOptsDialogPage);
procedure SetupFilesPage(Page: integer); procedure SetupFilesPage(Page: integer);

20
ide/main.pp
View File

@ -149,6 +149,7 @@ type
procedure mnuEditInsertChangeLogEntryClick(Sender: TObject); procedure mnuEditInsertChangeLogEntryClick(Sender: TObject);
// search menu // search menu
procedure mnuSearchFindInFiles(Sender: TObject);
procedure mnuSearchFindBlockOtherEnd(Sender: TObject); procedure mnuSearchFindBlockOtherEnd(Sender: TObject);
procedure mnuSearchFindBlockStart(Sender: TObject); procedure mnuSearchFindBlockStart(Sender: TObject);
procedure mnuSearchFindDeclaration(Sender: TObject); procedure mnuSearchFindDeclaration(Sender: TObject);
@ -608,6 +609,7 @@ type
procedure SaveIncludeLinks; procedure SaveIncludeLinks;
function DoMakeResourceString: TModalResult; function DoMakeResourceString: TModalResult;
function DoDiff: TModalResult; function DoDiff: TModalResult;
function DoFindInFiles: TModalResult;
// methods for debugging, compiling and external tools // methods for debugging, compiling and external tools
function DoJumpToCompilerMessage(Index:integer; function DoJumpToCompilerMessage(Index:integer;
@ -910,7 +912,6 @@ procedure TMainIDE.CreateOftenUsedForms;
begin begin
Application.CreateForm(TMessagesView, MessagesView); Application.CreateForm(TMessagesView, MessagesView);
Application.CreateForm(TLazFindReplaceDialog, FindReplaceDlg); Application.CreateForm(TLazFindReplaceDialog, FindReplaceDlg);
Application.CreateForm(TLazFindInFilesDialog, FindInFilesDialog);
end; end;
procedure TMainIDE.OIOnSelectComponent(AComponent:TComponent); procedure TMainIDE.OIOnSelectComponent(AComponent:TComponent);
@ -1200,7 +1201,7 @@ begin
itmSearchFind.OnClick := @SourceNotebook.FindClicked; itmSearchFind.OnClick := @SourceNotebook.FindClicked;
itmSearchFindNext.OnClick := @SourceNotebook.FindNextClicked; itmSearchFindNext.OnClick := @SourceNotebook.FindNextClicked;
itmSearchFindPrevious.OnClick := @SourceNotebook.FindPreviousClicked; itmSearchFindPrevious.OnClick := @SourceNotebook.FindPreviousClicked;
itmSearchFindInFiles.OnClick := @SourceNotebook.FindInFilesClicked; itmSearchFindInFiles.OnClick := @mnuSearchFindInFiles;
itmSearchReplace.OnClick := @SourceNotebook.ReplaceClicked; itmSearchReplace.OnClick := @SourceNotebook.ReplaceClicked;
itmIncrementalFind.OnClick := @SourceNotebook.IncrementalFindClicked; itmIncrementalFind.OnClick := @SourceNotebook.IncrementalFindClicked;
itmGotoLine.OnClick := @SourceNotebook.GotoLineClicked; itmGotoLine.OnClick := @SourceNotebook.GotoLineClicked;
@ -8323,6 +8324,13 @@ begin
end; end;
end; end;
function TMainIDE.DoFindInFiles: TModalResult;
begin
Result:=mrOk;
DoArrangeSourceEditorAndMessageView(true);
SourceNotebook.FindInFiles(Project1);
end;
procedure TMainIDE.DoCompleteCodeAtCursor; procedure TMainIDE.DoCompleteCodeAtCursor;
var var
ActiveSrcEdit: TSourceEditor; ActiveSrcEdit: TSourceEditor;
@ -9210,6 +9218,11 @@ begin
DoEditMenuCommand(ecInsertChangeLogEntry); DoEditMenuCommand(ecInsertChangeLogEntry);
end; end;
procedure TMainIDE.mnuSearchFindInFiles(Sender: TObject);
begin
DoFindInFiles;
end;
procedure TMainIDE.mnuEditCompleteCodeClicked(Sender: TObject); procedure TMainIDE.mnuEditCompleteCodeClicked(Sender: TObject);
begin begin
DoCompleteCodeAtCursor; DoCompleteCodeAtCursor;
@ -9354,6 +9367,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.626 2003/07/28 18:02:05 mattias
added findinfiles strat implementation from Bob Wingard
Revision 1.625 2003/07/24 08:47:36 marc Revision 1.625 2003/07/24 08:47:36 marc
+ Added SSHGDB debugger + Added SSHGDB debugger