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

IDE: install packages: set ttreenode imageindex

Browse Source 
git-svn-id: trunk@41988 -
This commit is contained in:
mattias 2013-07-03 22:37:07 +00:00
parent 36349a5eaa
commit 0244e3f874
2 changed files with 42 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
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 = 359 Height = 362
Top = 29 Top = 27
Width = 284 Width = 284
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -30,13 +30,13 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
BorderSpacing.Right = 3 BorderSpacing.Right = 3
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
Caption = 'InstallPkgGroupBox' Caption = 'InstallPkgGroupBox'
ClientHeight = 340 ClientHeight = 345
ClientWidth = 280 ClientWidth = 280
TabOrder = 0 TabOrder = 0
object ImportButton: TButton object ImportButton: TButton
Left = 6 Left = 6
Height = 25 Height = 25
Top = 278 Top = 283
Width = 268 Width = 268
Align = alBottom Align = alBottom
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -47,7 +47,7 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
object ExportButton: TButton object ExportButton: TButton
Left = 6 Left = 6
Height = 25 Height = 25
Top = 309 Top = 314
Width = 268 Width = 268
Align = alBottom Align = alBottom
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -57,11 +57,12 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
end end
object InstallTreeView: TTreeView object InstallTreeView: TTreeView
Left = 6 Left = 6
Height = 235 Height = 240
Top = 6 Top = 6
Width = 268 Width = 268
Align = alClient Align = alClient
BorderSpacing.Around = 6 BorderSpacing.Around = 6
DefaultItemHeight = 18
MultiSelect = True MultiSelect = True
ReadOnly = True ReadOnly = True
ShowButtons = False ShowButtons = False
@ -76,7 +77,7 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
object UninstallButton: TBitBtn object UninstallButton: TBitBtn
Left = 6 Left = 6
Height = 25 Height = 25
Top = 247 Top = 252
Width = 268 Width = 268
Align = alBottom Align = alBottom
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -93,8 +94,8 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = PkgInfoGroupBox AnchorSideBottom.Control = PkgInfoGroupBox
Left = 296 Left = 296
Height = 359 Height = 362
Top = 29 Top = 27
Width = 285 Width = 285
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 3 BorderSpacing.Left = 3
@ -102,20 +103,21 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
BorderSpacing.Right = 6 BorderSpacing.Right = 6
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
Caption = 'AvailablePkgGroupBox' Caption = 'AvailablePkgGroupBox'
ClientHeight = 340 ClientHeight = 345
ClientWidth = 281 ClientWidth = 281
TabOrder = 1 TabOrder = 1
object AvailableTreeView: TTreeView object AvailableTreeView: TTreeView
AnchorSideTop.Control = AvailableFilterEdit AnchorSideTop.Control = AvailableFilterEdit
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 269 Height = 276
Top = 34 Top = 32
Width = 269 Width = 269
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 = 18
MultiSelect = True MultiSelect = True
ReadOnly = True ReadOnly = True
ShowButtons = False ShowButtons = False
@ -131,7 +133,7 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
object AddToInstallButton: TBitBtn object AddToInstallButton: TBitBtn
Left = 6 Left = 6
Height = 25 Height = 25
Top = 309 Top = 314
Width = 269 Width = 269
Align = alBottom Align = alBottom
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -141,7 +143,7 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
end end
object AvailableFilterEdit: TTreeFilterEdit object AvailableFilterEdit: TTreeFilterEdit
Left = 6 Left = 6
Height = 27 Height = 25
Top = 7 Top = 7
Width = 247 Width = 247
UseFormActivate = True UseFormActivate = True
@ -153,22 +155,23 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
FilteredTreeview = AvailableTreeView FilteredTreeview = AvailableTreeView
OnGetImageIndex = AvailableFilterEditGetImageIndex
end end
end end
object PkgInfoGroupBox: TGroupBox object PkgInfoGroupBox: TGroupBox
AnchorSideBottom.Control = BtnPanel AnchorSideBottom.Control = BtnPanel
Left = 0 Left = 0
Height = 127 Height = 127
Top = 394 Top = 395
Width = 587 Width = 587
Align = alBottom Align = alBottom
Caption = 'PkgInfoGroupBox' Caption = 'PkgInfoGroupBox'
ClientHeight = 108 ClientHeight = 110
ClientWidth = 583 ClientWidth = 583
TabOrder = 2 TabOrder = 2
object PkgInfoMemo: TMemo object PkgInfoMemo: TMemo
Left = 6 Left = 6
Height = 96 Height = 98
Top = 6 Top = 6
Width = 571 Width = 571
Align = alClient Align = alClient
@ -180,18 +183,18 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
end end
object BtnPanel: TPanel object BtnPanel: TPanel
Left = 0 Left = 0
Height = 41 Height = 40
Top = 521 Top = 522
Width = 587 Width = 587
Align = alBottom Align = alBottom
AutoSize = True AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 41 ClientHeight = 40
ClientWidth = 587 ClientWidth = 587
TabOrder = 3 TabOrder = 3
object HelpButton: TBitBtn object HelpButton: TBitBtn
Left = 6 Left = 6
Height = 29 Height = 28
Top = 6 Top = 6
Width = 75 Width = 75
Align = alLeft Align = alLeft
@ -204,8 +207,8 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
TabOrder = 0 TabOrder = 0
end end
object CancelButton: TBitBtn object CancelButton: TBitBtn
Left = 147 Left = 196
Height = 29 Height = 28
Top = 6 Top = 6
Width = 75 Width = 75
Align = alRight Align = alRight
@ -219,10 +222,10 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
TabOrder = 1 TabOrder = 1
end end
object SaveAndExitButton: TBitBtn object SaveAndExitButton: TBitBtn
Left = 420 Left = 442
Height = 29 Height = 28
Top = 6 Top = 6
Width = 161 Width = 139
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -268,10 +271,10 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
TabOrder = 2 TabOrder = 2
end end
object SaveAndRebuildButton: TBitBtn object SaveAndRebuildButton: TBitBtn
Left = 228 Left = 277
Height = 29 Height = 28
Top = 6 Top = 6
Width = 186 Width = 159
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -319,7 +322,7 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
end end
object NoteLabel: TLabel object NoteLabel: TLabel
Left = 6 Left = 6
Height = 17 Height = 15
Top = 6 Top = 6
Width = 575 Width = 575
Align = alTop Align = alTop

9
packager/installpkgsetdlg.pas
View File

@ -71,6 +71,8 @@ type
SaveAndRebuildButton: TBitBtn; SaveAndRebuildButton: TBitBtn;
UninstallButton: TBitBtn; UninstallButton: TBitBtn;
procedure AddToInstallButtonClick(Sender: TObject); procedure AddToInstallButtonClick(Sender: TObject);
function AvailableFilterEditGetImageIndex(Str: String; Data: TObject;
var AIsEnabled: Boolean): Integer;
procedure LPKParsingTimerTimer(Sender: TObject); procedure LPKParsingTimerTimer(Sender: TObject);
procedure OnAllLPKParsed(Sender: TObject); procedure OnAllLPKParsed(Sender: TObject);
procedure TreeViewAdvancedCustomDrawItem(Sender: TCustomTreeView; procedure TreeViewAdvancedCustomDrawItem(Sender: TCustomTreeView;
@ -290,6 +292,12 @@ begin
AddToInstall; AddToInstall;
end; end;
function TInstallPkgSetDialog.AvailableFilterEditGetImageIndex(Str: String;
Data: TObject; var AIsEnabled: Boolean): Integer;
begin
Result:=0;
end;
procedure TInstallPkgSetDialog.LPKParsingTimerTimer(Sender: TObject); procedure TInstallPkgSetDialog.LPKParsingTimerTimer(Sender: TObject);
begin begin
UpdateAvailablePackages(false); UpdateAvailablePackages(false);
@ -358,6 +366,7 @@ begin
if Unknown then if Unknown then
Images.Draw(CurCanvas,x,y,ImgIndexOverlayUnknown); Images.Draw(CurCanvas,x,y,ImgIndexOverlayUnknown);
end; end;
PaintImages:=false;
end; end;
procedure TInstallPkgSetDialog.AvailableTreeViewDblClick(Sender: TObject); procedure TInstallPkgSetDialog.AvailableTreeViewDblClick(Sender: TObject);