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

Change TToolButton style from tbsDropDown to tbsButtonDrop, plus a small bugfix.

Browse Source 
git-svn-id: trunk@53420 -
This commit is contained in:
balazs 2016-11-22 21:59:33 +00:00
parent e419a0c56c
commit c1f8cade3c
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/onlinepackagemanager/opkman_mainfrm.lfm
View File

@ -407,7 +407,7 @@ object MainFrm: TMainFrm
TabOrder = 0
Transparent = True
object tbOptions: TToolButton
Left = 433
Left = 431
Top = 0
AutoSize = True
Caption = 'Options'
@ -465,7 +465,7 @@ object MainFrm: TMainFrm
ImageIndex = 5
ParentShowHint = False
ShowHint = True
Style = tbsDropDown
Style = tbsButtonDrop
end
object tbUpdate: TToolButton
Left = 211

4
components/onlinepackagemanager/opkman_mainfrm.pas
View File

@ -690,10 +690,10 @@ begin
NeedToRebuild := False;
if Install(InstallStatus, NeedToRebuild) = mrOk then
begin
SerializablePackages.MarkRuntimePackages;
VisualTree.UpdatePackageStates;
if (InstallStatus = isSuccess) or (InstallStatus = isPartiallyFailed) then
begin
SerializablePackages.MarkRuntimePackages;
VisualTree.UpdatePackageStates;
if NeedToRebuild then
begin
EnableDisableControls(False);