mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-12-06 07:27:43 +01:00
70cef5d805
- contains lnet sources for the time being - contains SVNClasses sources, implementing SVN package support git-svn-id: trunk@30863 -
81 lines
2.6 KiB
ObjectPascal
81 lines
2.6 KiB
ObjectPascal
{ Lazarus package manager - UI interface
|
|
|
|
Copyright (C) 2011 Darius Blaszyk
|
|
|
|
This library is free software; you can redistribute it and/or modify it
|
|
under the terms of the GNU Library General Public License as published by
|
|
the Free Software Foundation; either version 2 of the License, or (at your
|
|
option) any later version with the following modification:
|
|
|
|
As a special exception, the copyright holders of this library give you
|
|
permission to link this library with independent modules to produce an
|
|
executable, regardless of the license terms of these independent modules,and
|
|
to copy and distribute the resulting executable under terms of your choice,
|
|
provided that you also meet, for each linked independent module, the terms
|
|
and conditions of the license of that module. An independent module is a
|
|
module which is not derived from or based on this library. If you modify
|
|
this library, you may extend this exception to your version of the library,
|
|
but you are not obligated to do so. If you do not wish to do so, delete this
|
|
exception statement from your version.
|
|
|
|
This program is distributed in the hope that it will be useful, but WITHOUT
|
|
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
|
FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License
|
|
for more details.
|
|
|
|
You should have received a copy of the GNU Library General Public License
|
|
along with this library; if not, write to the Free Software Foundation,
|
|
Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
}
|
|
unit LazPackageManagerIntf;
|
|
|
|
interface
|
|
|
|
uses
|
|
LCLtype, LResources, LCLProc,
|
|
fppkg_mainfrm, fppkg_const;
|
|
|
|
procedure Register;
|
|
|
|
implementation
|
|
|
|
uses
|
|
MenuIntf, IDECommands, Controls, Forms, Dialogs;
|
|
|
|
var
|
|
CmdFppkgFrm : TIDECommand;
|
|
|
|
procedure ProcFppkgForm(Sender: TObject);
|
|
var
|
|
frm: TFppkgForm;
|
|
begin
|
|
try
|
|
frm := TFppkgForm.Create(nil);
|
|
frm.ShowModal;
|
|
finally
|
|
frm.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure Register;
|
|
var
|
|
Key: TIDEShortCut;
|
|
Cat: TIDECommandCategory;
|
|
mnuFppkgSection : TIDEMenuSection;
|
|
begin
|
|
Key:=IDEShortCut(VK_UNKNOWN,[],VK_UNKNOWN,[]);
|
|
|
|
{$ifndef USECustomCategory}
|
|
Cat:=IDECommandList.CreateCategory(nil, 'lazfppkg', 'Lazarus pkg manager', IDECmdScopeSrcEditOnly);
|
|
{$else}
|
|
Cat:=nil;
|
|
{$endif}
|
|
|
|
CmdFppkgFrm:=RegisterIDECommand(Cat, 'Lazarus package manager', rsShowLazarusPackageManager, Key, nil, @ProcFppkgForm);
|
|
|
|
mnuFppkgSection:=RegisterIDESubMenu(itmPkgGraphSection, 'lazfppkg', 'Lazarus package manager', nil, nil);
|
|
RegisterIDEMenuCommand(mnuFppkgSection, 'Lazarus package manager', rsShowLazarusPackageManager, nil, nil, CmdFppkgFrm);
|
|
end;
|
|
|
|
end.
|