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

2
packager/installpkgsetdlg.pas
View File

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