paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 21:49:33 +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

5
components/codetools/definetemplates.pas
View File

@ -3232,6 +3232,11 @@ begin
DirTempl:=TDefineTemplate.Create('Examples',
Format(ctsNamedDirectory,['Examples']),
'','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',
Format(ctsAddsDirToSourcePath,['lcl']),
ExternalMacroStart+'SrcPath',

5
debugger/debugger.pp
View File

@ -800,7 +800,7 @@ type
FExceptions: TDBGExceptions;
FExitCode: Integer;
FExternalDebugger: String;
FExceptionss: TDBGExceptions;
//FExceptionss: TDBGExceptions;
FFileName: String;
FLocals: TDBGLocals;
FSignals: TDBGSignals;
@ -3014,6 +3014,9 @@ end;
end.
{ =============================================================================
$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
moved debugger type to the debugger options

1
ide/environmentopts.pp
View File

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

20
ide/main.pp
View File

@ -149,6 +149,7 @@ type
procedure mnuEditInsertChangeLogEntryClick(Sender: TObject);
// search menu
procedure mnuSearchFindInFiles(Sender: TObject);
procedure mnuSearchFindBlockOtherEnd(Sender: TObject);
procedure mnuSearchFindBlockStart(Sender: TObject);
procedure mnuSearchFindDeclaration(Sender: TObject);
@ -608,6 +609,7 @@ type
procedure SaveIncludeLinks;
function DoMakeResourceString: TModalResult;
function DoDiff: TModalResult;
function DoFindInFiles: TModalResult;
// methods for debugging, compiling and external tools
function DoJumpToCompilerMessage(Index:integer;
@ -910,7 +912,6 @@ procedure TMainIDE.CreateOftenUsedForms;
begin
Application.CreateForm(TMessagesView, MessagesView);
Application.CreateForm(TLazFindReplaceDialog, FindReplaceDlg);
Application.CreateForm(TLazFindInFilesDialog, FindInFilesDialog);
end;
procedure TMainIDE.OIOnSelectComponent(AComponent:TComponent);
@ -1200,7 +1201,7 @@ begin
itmSearchFind.OnClick := @SourceNotebook.FindClicked;
itmSearchFindNext.OnClick := @SourceNotebook.FindNextClicked;
itmSearchFindPrevious.OnClick := @SourceNotebook.FindPreviousClicked;
itmSearchFindInFiles.OnClick := @SourceNotebook.FindInFilesClicked;
itmSearchFindInFiles.OnClick := @mnuSearchFindInFiles;
itmSearchReplace.OnClick := @SourceNotebook.ReplaceClicked;
itmIncrementalFind.OnClick := @SourceNotebook.IncrementalFindClicked;
itmGotoLine.OnClick := @SourceNotebook.GotoLineClicked;
@ -8323,6 +8324,13 @@ begin
end;
end;
function TMainIDE.DoFindInFiles: TModalResult;
begin
Result:=mrOk;
DoArrangeSourceEditorAndMessageView(true);
SourceNotebook.FindInFiles(Project1);
end;
procedure TMainIDE.DoCompleteCodeAtCursor;
var
ActiveSrcEdit: TSourceEditor;
@ -9210,6 +9218,11 @@ begin
DoEditMenuCommand(ecInsertChangeLogEntry);
end;
procedure TMainIDE.mnuSearchFindInFiles(Sender: TObject);
begin
DoFindInFiles;
end;
procedure TMainIDE.mnuEditCompleteCodeClicked(Sender: TObject);
begin
DoCompleteCodeAtCursor;
@ -9354,6 +9367,9 @@ end.
{ =============================================================================
$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
+ Added SSHGDB debugger