paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 09:07:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: install pkg dlg: update buttons at start

Browse Source 
git-svn-id: trunk@38445 -
This commit is contained in:
mattias 2012-08-31 01:57:15 +00:00
parent d602e69411
commit 5f862a412a
2 changed files with 47 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

97
packager/installpkgsetdlg.lfm
View File

@ -21,8 +21,8 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
AnchorSideRight.Control = lblMiddle AnchorSideRight.Control = lblMiddle
AnchorSideBottom.Control = PkgInfoGroupBox AnchorSideBottom.Control = PkgInfoGroupBox
Left = 6 Left = 6
Height = 393 Height = 401
Top = 26 Top = 28
Width = 284 Width = 284
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -30,14 +30,14 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
BorderSpacing.Right = 3 BorderSpacing.Right = 3
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
Caption = 'InstallPkgGroupBox' Caption = 'InstallPkgGroupBox'
ClientHeight = 376 ClientHeight = 379
ClientWidth = 280 ClientWidth = 276
TabOrder = 0 TabOrder = 0
object ImportButton: TButton object ImportButton: TButton
Left = 6 Left = 6
Height = 25 Height = 25
Top = 314 Top = 317
Width = 268 Width = 264
Align = alBottom Align = alBottom
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'ImportButton' Caption = 'ImportButton'
@ -47,8 +47,8 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
object ExportButton: TButton object ExportButton: TButton
Left = 6 Left = 6
Height = 25 Height = 25
Top = 345 Top = 348
Width = 268 Width = 264
Align = alBottom Align = alBottom
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'ExportButton' Caption = 'ExportButton'
@ -57,12 +57,12 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
end end
object InstallTreeView: TTreeView object InstallTreeView: TTreeView
Left = 6 Left = 6
Height = 271 Height = 274
Top = 6 Top = 6
Width = 268 Width = 264
Align = alClient Align = alClient
BorderSpacing.Around = 6 BorderSpacing.Around = 6
DefaultItemHeight = 16 DefaultItemHeight = 18
MultiSelect = True MultiSelect = True
ReadOnly = True ReadOnly = True
ShowButtons = False ShowButtons = False
@ -76,8 +76,8 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
object UninstallButton: TBitBtn object UninstallButton: TBitBtn
Left = 6 Left = 6
Height = 25 Height = 25
Top = 283 Top = 286
Width = 268 Width = 264
Align = alBottom Align = alBottom
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'UninstallButton' Caption = 'UninstallButton'
@ -93,8 +93,8 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = PkgInfoGroupBox AnchorSideBottom.Control = PkgInfoGroupBox
Left = 296 Left = 296
Height = 393 Height = 401
Top = 26 Top = 28
Width = 285 Width = 285
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 3 BorderSpacing.Left = 3
@ -102,19 +102,19 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
BorderSpacing.Right = 6 BorderSpacing.Right = 6
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
Caption = 'AvailablePkgGroupBox' Caption = 'AvailablePkgGroupBox'
ClientHeight = 376 ClientHeight = 379
ClientWidth = 281 ClientWidth = 277
TabOrder = 1 TabOrder = 1
object AvailableTreeView: TTreeView object AvailableTreeView: TTreeView
Left = 6 Left = 6
Height = 308 Height = 311
Top = 31 Top = 31
Width = 269 Width = 265
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Right = 6 BorderSpacing.Right = 6
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
DefaultItemHeight = 15 DefaultItemHeight = 18
MultiSelect = True MultiSelect = True
ReadOnly = True ReadOnly = True
ShowButtons = False ShowButtons = False
@ -129,8 +129,8 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
object AddToInstallButton: TBitBtn object AddToInstallButton: TBitBtn
Left = 6 Left = 6
Height = 25 Height = 25
Top = 345 Top = 348
Width = 269 Width = 265
Align = alBottom Align = alBottom
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'AddToInstallButton' Caption = 'AddToInstallButton'
@ -139,12 +139,12 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
end end
object AvailableFilterEdit: TTreeFilterEdit object AvailableFilterEdit: TTreeFilterEdit
Left = 6 Left = 6
Height = 20 Height = 22
Top = 7 Top = 7
Width = 247 Width = 243
UseFormActivate = True UseFormActivate = True
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 0 NumGlyphs = 1
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
Font.Color = clBtnShadow Font.Color = clBtnShadow
MaxLength = 0 MaxLength = 0
@ -157,23 +157,20 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
AnchorSideBottom.Control = BtnPanel AnchorSideBottom.Control = BtnPanel
Left = 0 Left = 0
Height = 93 Height = 93
Top = 425 Top = 435
Width = 587 Width = 587
Align = alBottom Align = alBottom
Caption = 'PkgInfoGroupBox' Caption = 'PkgInfoGroupBox'
ClientHeight = 76 ClientHeight = 71
ClientWidth = 583 ClientWidth = 579
TabOrder = 2 TabOrder = 2
object PkgInfoMemo: TMemo object PkgInfoMemo: TMemo
Left = 6 Left = 6
Height = 64 Height = 59
Top = 6 Top = 6
Width = 571 Width = 567
Align = alClient Align = alClient
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Lines.Strings = (
''
)
ReadOnly = True ReadOnly = True
ScrollBars = ssAutoVertical ScrollBars = ssAutoVertical
TabOrder = 0 TabOrder = 0
@ -181,35 +178,34 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
end end
object BtnPanel: TPanel object BtnPanel: TPanel
Left = 0 Left = 0
Height = 44 Height = 34
Top = 518 Top = 528
Width = 587 Width = 587
Align = alBottom Align = alBottom
AutoSize = True AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 44 ClientHeight = 34
ClientWidth = 587 ClientWidth = 587
TabOrder = 3 TabOrder = 3
object HelpButton: TBitBtn object HelpButton: TBitBtn
Left = 6 Left = 6
Height = 32 Height = 22
Top = 6 Top = 6
Width = 75 Width = 78
Align = alLeft Align = alLeft
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = '&Help' Caption = '&Help'
Constraints.MinWidth = 75 Constraints.MinWidth = 75
Kind = bkHelp Kind = bkHelp
NumGlyphs = 0
OnClick = HelpButtonClick OnClick = HelpButtonClick
TabOrder = 0 TabOrder = 0
end end
object CancelButton: TBitBtn object CancelButton: TBitBtn
Left = 201 Left = 118
Height = 32 Height = 22
Top = 6 Top = 6
Width = 75 Width = 91
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -218,14 +214,13 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
Constraints.MinWidth = 75 Constraints.MinWidth = 75
Kind = bkCancel Kind = bkCancel
ModalResult = 2 ModalResult = 2
NumGlyphs = 0
TabOrder = 1 TabOrder = 1
end end
object SaveAndExitButton: TBitBtn object SaveAndExitButton: TBitBtn
Left = 445 Left = 413
Height = 32 Height = 22
Top = 6 Top = 6
Width = 136 Width = 168
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -267,15 +262,14 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF006D9CD4896A9AD2FB6697CFEE FF00FFFFFF00FFFFFF00FFFFFF006D9CD4896A9AD2FB6697CFEE
} }
NumGlyphs = 0
OnClick = SaveAndExitButtonClick OnClick = SaveAndExitButtonClick
TabOrder = 2 TabOrder = 2
end end
object SaveAndRebuildButton: TBitBtn object SaveAndRebuildButton: TBitBtn
Left = 282 Left = 215
Height = 32 Height = 22
Top = 6 Top = 6
Width = 157 Width = 192
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -317,14 +311,13 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000
} }
NumGlyphs = 0
OnClick = InstallButtonClick OnClick = InstallButtonClick
TabOrder = 3 TabOrder = 3
end end
end end
object NoteLabel: TLabel object NoteLabel: TLabel
Left = 6 Left = 6
Height = 14 Height = 16
Top = 6 Top = 6
Width = 575 Width = 575
Align = alTop Align = alTop

2
packager/installpkgsetdlg.pas
View File

@ -196,6 +196,8 @@ begin
FNewInstalledPackages:=TObjectList.Create(true); FNewInstalledPackages:=TObjectList.Create(true);
ActiveControl:=AvailableFilterEdit; ActiveControl:=AvailableFilterEdit;
PkgInfoMemo.Clear; PkgInfoMemo.Clear;
UpdateButtonStates;
end; end;
procedure TInstallPkgSetDialog.InstallButtonClick(Sender: TObject); procedure TInstallPkgSetDialog.InstallButtonClick(Sender: TObject);