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

IDE: find in files: do not show every filename

Browse Source 
git-svn-id: trunk@34784 -
This commit is contained in:
mattias 2012-01-18 18:40:31 +00:00
parent 9f937ae7dd
commit dab1d7db29
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/searchfrm.pas
View File

@ -32,7 +32,7 @@ interface
uses
// LCL
Classes, SysUtils, LCLProc, LCLType, LCLIntf, Forms, Controls,
Classes, SysUtils, types, LCLProc, LCLType, LCLIntf, Forms, Controls,
Graphics, Dialogs, ExtCtrls, StdCtrls, Buttons, FileProcs, FileUtil, ComCtrls,
// synedit, codetools
SynEditSearch, SynRegExpr, SourceLog, KeywordFuncLists, BasicCodeTools,
@ -79,6 +79,7 @@ type
fSearchProject: boolean;
fTheDirectory: string;
fAborting: boolean;
fLastUpdateProgress: DWORD;
procedure DoFindInFiles(ADirectory: string);
procedure DoFindInSearchList;
procedure SetResultsList(const AValue: TStrings);
@ -847,10 +848,18 @@ begin
end;
procedure TSearchProgressForm.UpdateProgress(FileName: string);
const
UpdateAfterTicks = 200; // update not more than 5 times per second
var
DisplayFileName: string;
ShorterFileName: String;
CurTick: DWORD;
begin
CurTick:=GetTickCount;
if Abs(int64(CurTick)-int64(fLastUpdateProgress))<UpdateAfterTicks then
exit;
fLastUpdateProgress:=CurTick;
DisplayFileName := FileName;
//DebugLn(['TSearchForm.UpdateProgress DisplayFileName="',dbgstr(DisplayFileName),'"']);
lblProgress.Caption:= DisplayFileName;
@ -897,7 +906,7 @@ begin
SearchMask, SearchOptions);
try
(* BeginUpdate prevents ListPage from being closed,
other pages can stil be closed or inserted, so PageIndex can change *)
other pages can still be closed or inserted, so PageIndex can change *)
SearchResultsView.BeginUpdate(ListPage.PageIndex);
ResultsList:= SearchResultsView.Items[ListPage.PageIndex];
ResultsList.Clear;