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

IDE: Open wiki page for help in PkgLinks window. Issue #28696, patch from Alexey Torgashin.

Browse Source 
git-svn-id: trunk@49848 -
This commit is contained in:
juha 2015-09-18 22:47:54 +00:00
parent 743cd8460f
commit e8704af162
2 changed files with 18 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
packager/pkggraphexplorer.lfm
View File

@ -13,7 +13,7 @@ object PkgGraphExplorerDlg: TPkgGraphExplorerDlg
object InfoMemo: TMemo object InfoMemo: TMemo
Left = 0 Left = 0
Height = 144 Height = 144
Top = 332 Top = 329
Width = 675 Width = 675
Align = alBottom Align = alBottom
Lines.Strings = ( Lines.Strings = (
@ -27,25 +27,25 @@ object PkgGraphExplorerDlg: TPkgGraphExplorerDlg
Cursor = crVSplit Cursor = crVSplit
Left = 0 Left = 0
Height = 5 Height = 5
Top = 327 Top = 324
Width = 675 Width = 675
Align = alBottom Align = alBottom
ResizeAnchor = akBottom ResizeAnchor = akBottom
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 327 Height = 324
Top = 0 Top = 0
Width = 675 Width = 675
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
Caption = 'Panel1' Caption = 'Panel1'
ClientHeight = 327 ClientHeight = 324
ClientWidth = 675 ClientWidth = 675
TabOrder = 0 TabOrder = 0
object LvlGraphControl1: TLvlGraphControl object LvlGraphControl1: TLvlGraphControl
Left = 199 Left = 199
Height = 327 Height = 324
Top = 0 Top = 0
Width = 476 Width = 476
Align = alClient Align = alClient
@ -64,11 +64,10 @@ object PkgGraphExplorerDlg: TPkgGraphExplorerDlg
end end
object PkgTreeView: TTreeView object PkgTreeView: TTreeView
Left = 0 Left = 0
Height = 327 Height = 324
Top = 0 Top = 0
Width = 194 Width = 194
Align = alLeft Align = alLeft
DefaultItemHeight = 18
PopupMenu = PkgPopupMenu PopupMenu = PkgPopupMenu
ReadOnly = True ReadOnly = True
TabOrder = 0 TabOrder = 0
@ -79,27 +78,28 @@ object PkgGraphExplorerDlg: TPkgGraphExplorerDlg
end end
object Splitter1: TSplitter object Splitter1: TSplitter
Left = 194 Left = 194
Height = 327 Height = 324
Top = 0 Top = 0
Width = 5 Width = 5
end end
end end
object ButtonPanel1: TButtonPanel object ButtonPanel1: TButtonPanel
Left = 6 Left = 6
Height = 26 Height = 29
Top = 482 Top = 479
Width = 663 Width = 663
OKButton.Name = 'OKButton' OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True OKButton.DefaultCaption = True
OKButton.OnClick = OKButtonClick OKButton.OnClick = OKButtonClick
HelpButton.Name = 'HelpButton' HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True HelpButton.DefaultCaption = True
HelpButton.OnClick = HelpButtonClick
CloseButton.Name = 'CloseButton' CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton' CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True CancelButton.DefaultCaption = True
TabOrder = 3 TabOrder = 3
ShowButtons = [pbOK] ShowButtons = [pbOK, pbHelp]
ShowBevel = False ShowBevel = False
end end
object PkgPopupMenu: TPopupMenu object PkgPopupMenu: TPopupMenu

8
packager/pkggraphexplorer.pas
View File

@ -39,7 +39,7 @@ interface
uses uses
Classes, SysUtils, LCLProc, Forms, Controls, Buttons, ComCtrls, Classes, SysUtils, LCLProc, Forms, Controls, Buttons, ComCtrls,
StdCtrls, Menus, Dialogs, Graphics, LCLType, ExtCtrls, ButtonPanel, StdCtrls, Menus, Dialogs, Graphics, LCLType, ExtCtrls, ButtonPanel,
AVL_Tree, contnrs, AVL_Tree, contnrs, LCLIntf,
IDECommands, PackageIntf, IDEImagesIntf, LazIDEIntf, IDECommands, PackageIntf, IDEImagesIntf, LazIDEIntf,
LvlGraphCtrl, LvlGraphCtrl,
LazConf, LazarusIDEStrConsts, IDEProcs, IDEOptionDefs, EnvironmentOpts, LazConf, LazarusIDEStrConsts, IDEProcs, IDEOptionDefs, EnvironmentOpts,
@ -67,6 +67,7 @@ type
UninstallMenuItem: TMenuItem; UninstallMenuItem: TMenuItem;
procedure CleanPkgDepsMenuItemClick(Sender: TObject); procedure CleanPkgDepsMenuItemClick(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure HelpButtonClick(Sender: TObject);
procedure LvlGraphControl1DblClick(Sender: TObject); procedure LvlGraphControl1DblClick(Sender: TObject);
procedure LvlGraphControl1SelectionChanged(Sender: TObject); procedure LvlGraphControl1SelectionChanged(Sender: TObject);
procedure OKButtonClick(Sender: TObject); procedure OKButtonClick(Sender: TObject);
@ -209,6 +210,11 @@ begin
ButtonPanel1.OKButton.Caption:= lisClose; ButtonPanel1.OKButton.Caption:= lisClose;
end; end;
procedure TPkgGraphExplorerDlg.HelpButtonClick(Sender: TObject);
begin
OpenUrl('http://wiki.freepascal.org/IDE_Window:_Package_Graph');
end;
procedure TPkgGraphExplorerDlg.LvlGraphControl1SelectionChanged(Sender: TObject procedure TPkgGraphExplorerDlg.LvlGraphControl1SelectionChanged(Sender: TObject
); );
var var