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

IDE: View Package Links: progressbar while scanning

Browse Source 
git-svn-id: trunk@39993 -
This commit is contained in:
mattias 2013-01-28 08:30:14 +00:00
parent 0f0194cc50
commit 25b0b771eb
2 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packager/pkglinksdlg.lfm
View File

@ -135,6 +135,15 @@ object PackageLinksDialog: TPackageLinksDialog
TabOrder = 1
end
end
object ProgressBar1: TProgressBar
Left = 0
Height = 20
Top = 389
Width = 659
Align = alBottom
Style = pbstMarquee
TabOrder = 3
end
object LPKParsingTimer: TTimer
OnTimer = LPKParsingTimerTimer
left = 355

5
packager/pkglinksdlg.pas
View File

@ -38,7 +38,7 @@ interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
Buttons, Grids, ExtCtrls, AvgLvlTree,
Buttons, Grids, ExtCtrls, ComCtrls, AvgLvlTree,
FileProcs, PackageIntf,
LazarusIDEStrConsts, PackageDefs, PackageLinks, LPKCache;
@ -69,6 +69,7 @@ type
LPKFileValidCheckBox: TCheckBox;
LPKFileInvalidCheckBox: TCheckBox;
LPKParsingTimer: TTimer;
ProgressBar1: TProgressBar;
ShowUserLinksCheckBox: TCheckBox;
ShowGlobalLinksCheckBox: TCheckBox;
ScopeGroupBox: TGroupBox;
@ -155,6 +156,8 @@ end;
procedure TPackageLinksDialog.OnAllLPKParsed(Sender: TObject);
begin
LPKParsingTimer.Enabled:=false;
ProgressBar1.Visible:=false;
ProgressBar1.Style:=pbstNormal;
UpdatePackageList;
end;