paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 19:00:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

Opkman: Shortcut keys for different commands.

Browse Source 
git-svn-id: trunk@58714 -
This commit is contained in:
balazs 2018-08-15 13:33:58 +00:00
parent a574baf772
commit 238230207e
1 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
components/onlinepackagemanager/opkman_mainfrm.pas
View File

@ -112,6 +112,7 @@ type
tbCreate: TToolButton;
tbUpdate: TToolButton;
tbOpenRepo: TToolButton;
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure miCopyToClpBrdClick(Sender: TObject);
procedure miCreateJSONForUpdatesClick(Sender: TObject);
procedure miCreateRepositoryClick(Sender: TObject);
@ -1093,6 +1094,34 @@ begin
end;
end;
procedure TMainFrm.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ssCtrl in Shift then
begin
if (Key = 82) and (tbRefresh.Enabled) then
tbRefreshClick(tbRefresh)
else if (Key = 68) and (tbDownload.Enabled) then
tbDownloadClick(tbDownload)
else if (Key = 73) and (tbInstall.Enabled) then
tbInstallClick(tbInstall)
else if (Key = 69) and (tbUpdate.Enabled) then
tbUpdateClick(tbUpdate)
else if (Key = 85) and (tbUninstall.Enabled) then
tbUninstallClick(tbUninstall)
else if (Key = 76) and (tbOpenRepo.Enabled) then
tbOpenRepoClick(tbOpenRepo)
else if (Key = 67) and (tbCleanUp.Enabled) then
tbCleanUpClick(tbCleanUp)
else if (Key = 80) and (tbInstall.Enabled) then
miCreateRepositoryPackageClick(miCreateRepositoryPackage)
else if (Key = 79) and (tbOptions.Enabled) then
tbOptionsClick(tbOptions)
else if (Key = 72) and (tbHelp.Enabled) then
tbHelpClick(tbHelp);
end;
end;
procedure TMainFrm.miResetRatingClick(Sender: TObject);
var
Data: PData;