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

wiki test: progress label

Browse Source 
git-svn-id: trunk@35742 -
This commit is contained in:
mattias 2012-03-05 16:53:33 +00:00
parent dbab7ecefd
commit d26eae6e92
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/wiki/test/wikihelpmanager.pas
View File

@ -1086,7 +1086,11 @@ begin
end; end;
procedure TWiki2HelpConverter.LoadPages; procedure TWiki2HelpConverter.LoadPages;
var
s: TDateTime;
e: TDateTime;
begin begin
s:=Now;
Help.EnterCritSect; Help.EnterCritSect;
try try
Help.fProgressStep:=whpsWikiLoadPages; Help.fProgressStep:=whpsWikiLoadPages;
@ -1096,6 +1100,8 @@ begin
Help.LeaveCritSect; Help.LeaveCritSect;
end; end;
ProcThreadPool.DoParallel(@ParallelLoadPage,0,(Count-1) div PagesPerThread); ProcThreadPool.DoParallel(@ParallelLoadPage,0,(Count-1) div PagesPerThread);
e:=Now;
debugln(['TWiki2HelpConverter.LoadPages ',round((e-s)*86400000)]);
end; end;
constructor TWiki2HelpConverter.Create; constructor TWiki2HelpConverter.Create;
@ -1140,6 +1146,7 @@ begin
try try
Help.Converter.OnLog:=@ConverterLog; Help.Converter.OnLog:=@ConverterLog;
// get all wiki xml files // get all wiki xml files
Log('TWikiHelpThread.Execute AAA1');
if FindFirstUTF8(Help.XMLDirectory+AllFilesMask,faAnyFile,FileInfo)=0 then begin if FindFirstUTF8(Help.XMLDirectory+AllFilesMask,faAnyFile,FileInfo)=0 then begin
repeat repeat
if CompareFileExt(FileInfo.Name,'.xml',false)<>0 then continue; if CompareFileExt(FileInfo.Name,'.xml',false)<>0 then continue;
@ -1150,6 +1157,7 @@ begin
until FindNextUTF8(FileInfo)<>0; until FindNextUTF8(FileInfo)<>0;
end; end;
FindCloseUTF8(FileInfo); FindCloseUTF8(FileInfo);
Log('TWikiHelpThread.Execute AAA2');
// add file names to converter // add file names to converter
for i:=0 to Files.Count-1 do begin for i:=0 to Files.Count-1 do begin
@ -1157,6 +1165,7 @@ begin
Help.Converter.AddWikiPage(Filename,false); Help.Converter.AddWikiPage(Filename,false);
end; end;
if Help.Aborting then exit; if Help.Aborting then exit;
Log('TWikiHelpThread.Execute AAA3');
// load xml files // load xml files
Help.Converter.LoadPages; Help.Converter.LoadPages;

3
components/wiki/test/wikisearchmain.pas
View File

@ -71,6 +71,8 @@ begin
WikiHelp.OnSearched:=@WikiHelpSearched; WikiHelp.OnSearched:=@WikiHelpSearched;
WikiHelp.StartLoading; WikiHelp.StartLoading;
UpdateProgress;
Timer1.Enabled:=true;
end; end;
procedure TWikiSearchDemoForm.FormDestroy(Sender: TObject); procedure TWikiSearchDemoForm.FormDestroy(Sender: TObject);
@ -97,6 +99,7 @@ end;
procedure TWikiSearchDemoForm.Timer1Timer(Sender: TObject); procedure TWikiSearchDemoForm.Timer1Timer(Sender: TObject);
begin begin
ProgressLabel.Caption:=WikiHelp.GetProgressCaption; ProgressLabel.Caption:=WikiHelp.GetProgressCaption;
debugln(['TWikiSearchDemoForm.Timer1Timer ',ProgressLabel.Caption]);
Timer1.Enabled:=WikiHelp.Busy; Timer1.Enabled:=WikiHelp.Busy;
end; end;