paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 18:58:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: View Package Links: popup menu item to copy selection to clipboard

Browse Source 
git-svn-id: trunk@39999 -
This commit is contained in:
mattias 2013-01-28 10:35:52 +00:00
parent 647c1b3b87
commit fdc85b3e79
2 changed files with 19 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packager/pkglinksdlg.lfm
View File

@ -137,10 +137,8 @@ object PackageLinksDialog: TPackageLinksDialog
end>
FixedCols = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goEditing, goTabs, goColSpanning, goDblClickAutoSize, goSmoothScroll]
PopupMenu = GridPopupMenu
TabOrder = 1
OnCheckboxToggled = PkgStringGridCheckboxToggled
OnSelection = PkgStringGridSelection
OnValidateEntry = PkgStringGridValidateEntry
end
object BtnPanel: TPanel
Left = 0
@ -194,4 +192,12 @@ object PackageLinksDialog: TPackageLinksDialog
left = 355
top = 190
end
object GridPopupMenu: TPopupMenu
left = 206
top = 288
object CopyCellToClipboardMenuItem: TMenuItem
Caption = 'CopyCellToClipboard'
OnClick = CopyCellToClipboardMenuItemClick
end
end
end

35
packager/pkglinksdlg.pas
View File

@ -38,7 +38,7 @@ interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
Buttons, Grids, ExtCtrls, ComCtrls, AvgLvlTree, LazUTF8,
Buttons, Grids, ExtCtrls, ComCtrls, Menus, AvgLvlTree, LazUTF8,
FileProcs, PackageIntf,
LazarusIDEStrConsts, PackageDefs, PackageLinks, LPKCache;
@ -72,12 +72,15 @@ type
LPKFileValidCheckBox: TCheckBox;
LPKFileInvalidCheckBox: TCheckBox;
LPKParsingTimer: TTimer;
CopyCellToClipboardMenuItem: TMenuItem;
GridPopupMenu: TPopupMenu;
ProgressBar1: TProgressBar;
ShowUserLinksCheckBox: TCheckBox;
ShowGlobalLinksCheckBox: TCheckBox;
ScopeGroupBox: TGroupBox;
PkgStringGrid: TStringGrid;
UpdateGlobalLinksButton: TButton;
procedure CopyCellToClipboardMenuItemClick(Sender: TObject);
procedure FilterEditChange(Sender: TObject);
procedure FilterEditEnter(Sender: TObject);
procedure FilterEditExit(Sender: TObject);
@ -87,11 +90,6 @@ type
procedure LPKFileInvalidCheckBoxChange(Sender: TObject);
procedure LPKParsingTimerTimer(Sender: TObject);
procedure OnAllLPKParsed(Sender: TObject);
procedure PkgStringGridCheckboxToggled(sender: TObject; aCol,
aRow: Integer; aState: TCheckboxState);
procedure PkgStringGridSelection(Sender: TObject; aCol, aRow: Integer);
procedure PkgStringGridValidateEntry(sender: TObject; aCol, aRow: Integer;
const OldValue: string; var NewValue: String);
procedure ShowGlobalLinksCheckBoxChange(Sender: TObject);
procedure ShowUserLinksCheckBoxChange(Sender: TObject);
procedure UpdateGlobalLinksButtonClick(Sender: TObject);
@ -137,7 +135,7 @@ procedure TPackageLinksDialog.FormCreate(Sender: TObject);
begin
Caption:=lisPLDPackageLinks;
ScopeGroupBox.Caption:=dlgScope;
UpdateFacets;
CopyCellToClipboardMenuItem.Caption:=srkmecCopy;
UpdateGlobalLinksButton.Caption:=lrsRescanLplFiles;
CloseBitBtn.Caption:=lisClose;
FilterEdit.Text:=lisCEFilter;
@ -155,6 +153,11 @@ begin
UpdatePackageList;
end;
procedure TPackageLinksDialog.CopyCellToClipboardMenuItemClick(Sender: TObject);
begin
PkgStringGrid.CopyToClipboard(true);
end;
procedure TPackageLinksDialog.FilterEditEnter(Sender: TObject);
begin
if FilterEdit.Text=lisCEFilter then
@ -196,24 +199,6 @@ begin
UpdatePackageList;
end;
procedure TPackageLinksDialog.PkgStringGridCheckboxToggled(sender: TObject;
aCol, aRow: Integer; aState: TCheckboxState);
begin
end;
procedure TPackageLinksDialog.PkgStringGridSelection(Sender: TObject; aCol,
aRow: Integer);
begin
end;
procedure TPackageLinksDialog.PkgStringGridValidateEntry(sender: TObject; aCol,
aRow: Integer; const OldValue: string; var NewValue: String);
begin
end;
procedure TPackageLinksDialog.ShowGlobalLinksCheckBoxChange(Sender: TObject);
begin
UpdatePackageList;