diff --git a/packager/pkggraphexplorer.lfm b/packager/pkggraphexplorer.lfm index e1039cb441..c7e139c59a 100644 --- a/packager/pkggraphexplorer.lfm +++ b/packager/pkggraphexplorer.lfm @@ -18,9 +18,10 @@ object PkgGraphExplorerDlg: TPkgGraphExplorerDlg Lines.Strings = ( 'InfoMemo' ) + OnKeyDown = InfoMemoKeyDown TabOrder = 0 - Height = 79 - Top = 334 + Height = 144 + Top = 269 Width = 462 end object VerticalSplitter: TSplitter @@ -31,17 +32,17 @@ object PkgGraphExplorerDlg: TPkgGraphExplorerDlg ResizeAnchor = akBottom Cursor = crVSplit Height = 5 - Top = 329 + Top = 264 Width = 462 end object PkgListPanel: TPanel Align = alRight BevelOuter = bvNone - ClientHeight = 329 + ClientHeight = 264 ClientWidth = 229 TabOrder = 1 Left = 233 - Height = 329 + Height = 264 Width = 229 object PkgListLabel: TLabel Align = alTop @@ -59,30 +60,31 @@ object PkgGraphExplorerDlg: TPkgGraphExplorerDlg ClickOnSelChange = False OnClick = PkgListBoxClick OnDblClick = PkgListBoxDblClick + OnKeyDown = InfoMemoKeyDown TabOrder = 0 TopIndex = -1 - Height = 304 + Height = 239 Top = 25 Width = 229 end end object HorizontalSplitter: TSplitter Align = alRight - Height = 329 + Height = 264 Width = 4 ResizeAnchor = akRight Cursor = crHSplit Left = 229 - Height = 329 + Height = 264 Width = 4 end object PkgTreePanel: TPanel Align = alClient BevelOuter = bvNone - ClientHeight = 329 + ClientHeight = 264 ClientWidth = 229 TabOrder = 2 - Height = 329 + Height = 264 Width = 229 object PkgTreeLabel: TLabel Align = alTop @@ -104,9 +106,10 @@ object PkgGraphExplorerDlg: TPkgGraphExplorerDlg TabOrder = 0 OnDblClick = PkgTreeViewDblClick OnExpanding = PkgTreeViewExpanding + OnKeyDown = InfoMemoKeyDown OnSelectionChanged = PkgTreeViewSelectionChanged Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips] - Height = 304 + Height = 239 Top = 25 Width = 229 end diff --git a/packager/pkggraphexplorer.lrs b/packager/pkggraphexplorer.lrs index 50c28d4313..dd35837c29 100644 --- a/packager/pkggraphexplorer.lrs +++ b/packager/pkggraphexplorer.lrs @@ -7,36 +7,37 @@ LazarusResources.Add('TPkgGraphExplorerDlg','FORMDATA',[ +#13'PixelsPerInch'#2'p'#8'Position'#7#14'poScreenCenter'#18'HorzScrollBar.Pa' +'ge'#3#205#1#18'VertScrollBar.Page'#3#156#1#4'Left'#3'q'#1#6'Height'#3#157#1 +#3'Top'#3#239#0#5'Width'#3#206#1#0#5'TMemo'#8'InfoMemo'#5'Align'#7#8'alBotto' - +'m'#13'Lines.Strings'#1#6#8'InfoMemo'#0#8'TabOrder'#2#0#6'Height'#2'O'#3'Top' - +#3'N'#1#5'Width'#3#206#1#0#0#9'TSplitter'#16'VerticalSplitter'#5'Align'#7#8 - +'alBottom'#6'Cursor'#7#8'crVSplit'#6'Height'#2#5#5'Width'#3#206#1#12'ResizeA' - +'nchor'#7#8'akBottom'#6'Cursor'#7#8'crVSplit'#6'Height'#2#5#3'Top'#3'I'#1#5 - +'Width'#3#206#1#0#0#6'TPanel'#12'PkgListPanel'#5'Align'#7#7'alRight'#10'Beve' - +'lOuter'#7#6'bvNone'#12'ClientHeight'#3'I'#1#11'ClientWidth'#3#229#0#8'TabOr' - +'der'#2#1#4'Left'#3#233#0#6'Height'#3'I'#1#5'Width'#3#229#0#0#6'TLabel'#12'P' - +'kgListLabel'#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Caption'#6 - +#12'PkgListLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2#6#6'Heigh' - +'t'#2#13#3'Top'#2#6#5'Width'#3#217#0#0#0#8'TListBox'#10'PkgListBox'#5'Align' - +#7#8'alClient'#16'ClickOnSelChange'#8#7'OnClick'#7#15'PkgListBoxClick'#10'On' - +'DblClick'#7#18'PkgListBoxDblClick'#8'TabOrder'#2#0#8'TopIndex'#2#255#6'Heig' - +'ht'#3'0'#1#3'Top'#2#25#5'Width'#3#229#0#0#0#0#9'TSplitter'#18'HorizontalSpl' - +'itter'#5'Align'#7#7'alRight'#6'Height'#3'I'#1#5'Width'#2#4#12'ResizeAnchor' - +#7#7'akRight'#6'Cursor'#7#8'crHSplit'#4'Left'#3#229#0#6'Height'#3'I'#1#5'Wid' - +'th'#2#4#0#0#6'TPanel'#12'PkgTreePanel'#5'Align'#7#8'alClient'#10'BevelOuter' - +#7#6'bvNone'#12'ClientHeight'#3'I'#1#11'ClientWidth'#3#229#0#8'TabOrder'#2#2 - +#6'Height'#3'I'#1#5'Width'#3#229#0#0#6'TLabel'#12'PkgTreeLabel'#5'Align'#7#5 - +'alTop'#20'BorderSpacing.Around'#2#6#7'Caption'#6#12'PkgTreeLabel'#5'Color'#7 - +#6'clNone'#11'ParentColor'#8#4'Left'#2#6#6'Height'#2#13#3'Top'#2#6#5'Width'#3 - +#217#0#0#0#9'TTreeView'#11'PkgTreeView'#5'Align'#7#8'alClient'#17'DefaultIte' - +'mHeight'#2#17#6'Images'#7#9'ImageList'#9'PopupMenu'#7#12'PkgPopupMenu'#16'R' - +'ightClickSelect'#9#8'TabOrder'#2#0#10'OnDblClick'#7#19'PkgTreeViewDblClick' - +#11'OnExpanding'#7#20'PkgTreeViewExpanding'#18'OnSelectionChanged'#7#27'PkgT' - +'reeViewSelectionChanged'#7'Options'#11#17'tvoAutoItemHeight'#16'tvoHideSele' - +'ction'#21'tvoKeepCollapsedNodes'#19'tvoRightClickSelect'#14'tvoShowButtons' - +#12'tvoShowLines'#11'tvoShowRoot'#11'tvoToolTips'#0#6'Height'#3'0'#1#3'Top'#2 - +#25#5'Width'#3#229#0#0#0#0#10'TImageList'#9'ImageList'#6'Height'#2#17#5'Widt' - +'h'#2#17#4'left'#2' '#3'top'#2#8#0#0#10'TPopupMenu'#12'PkgPopupMenu'#7'OnPop' - +'up'#7#17'PkgPopupMenuPopup'#4'left'#2' '#3'top'#2'('#0#9'TMenuItem'#17'Unin' - +'stallMenuItem'#7'Caption'#6#9'New Item1'#7'OnClick'#7#22'UninstallMenuItemC' - +'lick'#0#0#0#0 + +'m'#13'Lines.Strings'#1#6#8'InfoMemo'#0#9'OnKeyDown'#7#15'InfoMemoKeyDown'#8 + +'TabOrder'#2#0#6'Height'#3#144#0#3'Top'#3#13#1#5'Width'#3#206#1#0#0#9'TSplit' + +'ter'#16'VerticalSplitter'#5'Align'#7#8'alBottom'#6'Cursor'#7#8'crVSplit'#6 + +'Height'#2#5#5'Width'#3#206#1#12'ResizeAnchor'#7#8'akBottom'#6'Cursor'#7#8'c' + +'rVSplit'#6'Height'#2#5#3'Top'#3#8#1#5'Width'#3#206#1#0#0#6'TPanel'#12'PkgLi' + +'stPanel'#5'Align'#7#7'alRight'#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#3 + +#8#1#11'ClientWidth'#3#229#0#8'TabOrder'#2#1#4'Left'#3#233#0#6'Height'#3#8#1 + +#5'Width'#3#229#0#0#6'TLabel'#12'PkgListLabel'#5'Align'#7#5'alTop'#20'Border' + +'Spacing.Around'#2#6#7'Caption'#6#12'PkgListLabel'#5'Color'#7#6'clNone'#11'P' + +'arentColor'#8#4'Left'#2#6#6'Height'#2#13#3'Top'#2#6#5'Width'#3#217#0#0#0#8 + +'TListBox'#10'PkgListBox'#5'Align'#7#8'alClient'#16'ClickOnSelChange'#8#7'On' + +'Click'#7#15'PkgListBoxClick'#10'OnDblClick'#7#18'PkgListBoxDblClick'#9'OnKe' + +'yDown'#7#15'InfoMemoKeyDown'#8'TabOrder'#2#0#8'TopIndex'#2#255#6'Height'#3 + +#239#0#3'Top'#2#25#5'Width'#3#229#0#0#0#0#9'TSplitter'#18'HorizontalSplitter' + +#5'Align'#7#7'alRight'#6'Height'#3#8#1#5'Width'#2#4#12'ResizeAnchor'#7#7'akR' + +'ight'#6'Cursor'#7#8'crHSplit'#4'Left'#3#229#0#6'Height'#3#8#1#5'Width'#2#4#0 + +#0#6'TPanel'#12'PkgTreePanel'#5'Align'#7#8'alClient'#10'BevelOuter'#7#6'bvNo' + +'ne'#12'ClientHeight'#3#8#1#11'ClientWidth'#3#229#0#8'TabOrder'#2#2#6'Height' + +#3#8#1#5'Width'#3#229#0#0#6'TLabel'#12'PkgTreeLabel'#5'Align'#7#5'alTop'#20 + +'BorderSpacing.Around'#2#6#7'Caption'#6#12'PkgTreeLabel'#5'Color'#7#6'clNone' + +#11'ParentColor'#8#4'Left'#2#6#6'Height'#2#13#3'Top'#2#6#5'Width'#3#217#0#0#0 + +#9'TTreeView'#11'PkgTreeView'#5'Align'#7#8'alClient'#17'DefaultItemHeight'#2 + +#17#6'Images'#7#9'ImageList'#9'PopupMenu'#7#12'PkgPopupMenu'#16'RightClickSe' + +'lect'#9#8'TabOrder'#2#0#10'OnDblClick'#7#19'PkgTreeViewDblClick'#11'OnExpan' + +'ding'#7#20'PkgTreeViewExpanding'#9'OnKeyDown'#7#15'InfoMemoKeyDown'#18'OnSe' + +'lectionChanged'#7#27'PkgTreeViewSelectionChanged'#7'Options'#11#17'tvoAutoI' + +'temHeight'#16'tvoHideSelection'#21'tvoKeepCollapsedNodes'#19'tvoRightClickS' + +'elect'#14'tvoShowButtons'#12'tvoShowLines'#11'tvoShowRoot'#11'tvoToolTips'#0 + +#6'Height'#3#239#0#3'Top'#2#25#5'Width'#3#229#0#0#0#0#10'TImageList'#9'Image' + +'List'#6'Height'#2#17#5'Width'#2#17#4'left'#2' '#3'top'#2#8#0#0#10'TPopupMen' + +'u'#12'PkgPopupMenu'#7'OnPopup'#7#17'PkgPopupMenuPopup'#4'left'#2' '#3'top'#2 + +'('#0#9'TMenuItem'#17'UninstallMenuItem'#7'Caption'#6#9'New Item1'#7'OnClick' + +#7#22'UninstallMenuItemClick'#0#0#0#0 ]); diff --git a/packager/pkggraphexplorer.pas b/packager/pkggraphexplorer.pas index c0b744de26..dd668e63b5 100644 --- a/packager/pkggraphexplorer.pas +++ b/packager/pkggraphexplorer.pas @@ -71,6 +71,8 @@ type procedure PkgTreeViewDblClick(Sender: TObject); procedure PkgTreeViewExpanding(Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean); + procedure InfoMemoKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); procedure PkgTreeViewSelectionChanged(Sender: TObject); procedure UninstallMenuItemClick(Sender: TObject); private @@ -240,6 +242,13 @@ begin end; end; +procedure TPkgGraphExplorerDlg.InfoMemoKeyDown(Sender: TObject; + var Key: Word; Shift: TShiftState); +begin + if Key = 27 then + Close; +end; + procedure TPkgGraphExplorerDlg.PkgTreeViewSelectionChanged(Sender: TObject); begin UpdateInfo;