mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-10 05:56:02 +02:00
improved layout of ide pkggraph explorer window
git-svn-id: trunk@9097 -
This commit is contained in:
mattias
parent
07be3924e1
commit
4e89cf5d8f
@ -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
|
||||
|
||||
@ -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
|
||||
]);
|
||||
|
||||
@ -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;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user