paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 10:18:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Improve layout of "Rescan FPC Source" window. Issue #32063, patch from AlexeyT.

Browse Source 
git-svn-id: trunk@55397 -
This commit is contained in:
juha 2017-06-26 11:18:17 +00:00
parent edd4943a4f
commit 23e1fd443a
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/progresswnd.pas
View File

@ -328,12 +328,15 @@ begin
Result.Panel.AutoSize:=true;
Result.Panel.Constraints.MinWidth:=100;
Result.Panel.Constraints.MinHeight:=30;
Result.Panel.BevelInner:=bvNone;
Result.Panel.BevelOuter:=bvNone;
// add a label into the panel
Result.CaptionLabel:=TLabel.Create(Result.Panel);
Result.CaptionLabel.Align:=alTop;
Result.CaptionLabel.AutoSize:=true;
Result.CaptionLabel.Parent:=Result.Panel;
Result.CaptionLabel.ShowHint:=true;
Result.CaptionLabel.BorderSpacing.Around:=6;
// add a progressbar below the label
Result.ProgressBar:=TProgressBar.Create(Result.Panel);
Result.ProgressBar.Align:=alTop;
@ -341,6 +344,7 @@ begin
Result.ProgressBar.Parent:=Result.Panel;
Result.ProgressBar.ShowHint:=true;
Result.ProgressBar.Top:=10;
Result.ProgressBar.BorderSpacing.Around:=6;
// show panel
DisableAutoSizing{$IFDEF DebugDisableAutoSizing}('TIDEProgressWindow.AddItem'){$ENDIF};