diff --git a/packager/pkggraphexplorer.lfm b/packager/pkggraphexplorer.lfm index d2bb86cc38..b01359dd0a 100644 --- a/packager/pkggraphexplorer.lfm +++ b/packager/pkggraphexplorer.lfm @@ -13,7 +13,7 @@ object PkgGraphExplorerDlg: TPkgGraphExplorerDlg object InfoMemo: TMemo Left = 0 Height = 144 - Top = 332 + Top = 329 Width = 675 Align = alBottom Lines.Strings = ( @@ -27,25 +27,25 @@ object PkgGraphExplorerDlg: TPkgGraphExplorerDlg Cursor = crVSplit Left = 0 Height = 5 - Top = 327 + Top = 324 Width = 675 Align = alBottom ResizeAnchor = akBottom end object Panel1: TPanel Left = 0 - Height = 327 + Height = 324 Top = 0 Width = 675 Align = alClient BevelOuter = bvNone Caption = 'Panel1' - ClientHeight = 327 + ClientHeight = 324 ClientWidth = 675 TabOrder = 0 object LvlGraphControl1: TLvlGraphControl Left = 199 - Height = 327 + Height = 324 Top = 0 Width = 476 Align = alClient @@ -64,11 +64,10 @@ object PkgGraphExplorerDlg: TPkgGraphExplorerDlg end object PkgTreeView: TTreeView Left = 0 - Height = 327 + Height = 324 Top = 0 Width = 194 Align = alLeft - DefaultItemHeight = 18 PopupMenu = PkgPopupMenu ReadOnly = True TabOrder = 0 @@ -79,27 +78,28 @@ object PkgGraphExplorerDlg: TPkgGraphExplorerDlg end object Splitter1: TSplitter Left = 194 - Height = 327 + Height = 324 Top = 0 Width = 5 end end object ButtonPanel1: TButtonPanel Left = 6 - Height = 26 - Top = 482 + Height = 29 + Top = 479 Width = 663 OKButton.Name = 'OKButton' OKButton.DefaultCaption = True OKButton.OnClick = OKButtonClick HelpButton.Name = 'HelpButton' HelpButton.DefaultCaption = True + HelpButton.OnClick = HelpButtonClick CloseButton.Name = 'CloseButton' CloseButton.DefaultCaption = True CancelButton.Name = 'CancelButton' CancelButton.DefaultCaption = True TabOrder = 3 - ShowButtons = [pbOK] + ShowButtons = [pbOK, pbHelp] ShowBevel = False end object PkgPopupMenu: TPopupMenu diff --git a/packager/pkggraphexplorer.pas b/packager/pkggraphexplorer.pas index 26bdc995df..be592b3709 100644 --- a/packager/pkggraphexplorer.pas +++ b/packager/pkggraphexplorer.pas @@ -39,7 +39,7 @@ interface uses Classes, SysUtils, LCLProc, Forms, Controls, Buttons, ComCtrls, StdCtrls, Menus, Dialogs, Graphics, LCLType, ExtCtrls, ButtonPanel, - AVL_Tree, contnrs, + AVL_Tree, contnrs, LCLIntf, IDECommands, PackageIntf, IDEImagesIntf, LazIDEIntf, LvlGraphCtrl, LazConf, LazarusIDEStrConsts, IDEProcs, IDEOptionDefs, EnvironmentOpts, @@ -67,6 +67,7 @@ type UninstallMenuItem: TMenuItem; procedure CleanPkgDepsMenuItemClick(Sender: TObject); procedure FormCreate(Sender: TObject); + procedure HelpButtonClick(Sender: TObject); procedure LvlGraphControl1DblClick(Sender: TObject); procedure LvlGraphControl1SelectionChanged(Sender: TObject); procedure OKButtonClick(Sender: TObject); @@ -209,6 +210,11 @@ begin ButtonPanel1.OKButton.Caption:= lisClose; end; +procedure TPkgGraphExplorerDlg.HelpButtonClick(Sender: TObject); +begin + OpenUrl('http://wiki.freepascal.org/IDE_Window:_Package_Graph'); +end; + procedure TPkgGraphExplorerDlg.LvlGraphControl1SelectionChanged(Sender: TObject ); var