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

IDE: progress window: show hint

Browse Source 
git-svn-id: trunk@27604 -
This commit is contained in:
mattias 2010-10-07 11:45:23 +00:00
parent b643681b2b
commit b25b8e2a2a
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/compileroptions.pp
View File

@ -115,7 +115,7 @@
- the default build mode should be stored in the old xml path, so that - the default build mode should be stored in the old xml path, so that
old IDEs can open newer projects. old IDEs can open newer projects.
- store sets in lps - store sets in lps
- store active build mdoe in session - store active build mode in session
- make lazbuild lcl independent, independent of packages except one - make lazbuild lcl independent, independent of packages except one
- license gpl2 - license gpl2
- create package lazbuildsystem with some units - create package lazbuildsystem with some units

2
ide/progresswnd.pas
View File

@ -331,11 +331,13 @@ begin
Result.CaptionLabel.Align:=alTop; Result.CaptionLabel.Align:=alTop;
Result.CaptionLabel.AutoSize:=true; Result.CaptionLabel.AutoSize:=true;
Result.CaptionLabel.Parent:=Result.Panel; Result.CaptionLabel.Parent:=Result.Panel;
Result.CaptionLabel.ShowHint:=true;
// add a progressbar below the label // add a progressbar below the label
Result.ProgressBar:=TProgressBar.Create(Result.Panel); Result.ProgressBar:=TProgressBar.Create(Result.Panel);
Result.ProgressBar.Align:=alTop; Result.ProgressBar.Align:=alTop;
Result.ProgressBar.AutoSize:=true; Result.ProgressBar.AutoSize:=true;
Result.ProgressBar.Parent:=Result.Panel; Result.ProgressBar.Parent:=Result.Panel;
Result.ProgressBar.ShowHint:=true;
Result.ProgressBar.Top:=10; Result.ProgressBar.Top:=10;
// show panel // show panel