From 624484eefb684146b7f5402dc5fb9f0c1361af6b Mon Sep 17 00:00:00 2001
From: April Ayres-Griffiths <aag6581@gmail.com>
Date: Wed, 17 Apr 2019 21:30:23 +1000
Subject: [PATCH] help menu

---
 backup/main.lfm |  4 ++++
 backup/main.pas | 10 +++++++++-
 main.lfm        |  4 ++++
 main.pas        |  9 ++++++++-
 4 files changed, 25 insertions(+), 2 deletions(-)

diff --git a/backup/main.lfm b/backup/main.lfm
index c81e7de..0f074ff 100644
--- a/backup/main.lfm
+++ b/backup/main.lfm
@@ -6593,6 +6593,10 @@ object GUIForm: TGUIForm
         ShortCut = 24648
         OnClick = miMMHelpClick
       end
+      object miIssue: TMenuItem
+        Caption = 'Report an Issue...'
+        OnClick = miIssueClick
+      end
     end
   end
   object ToolbarIcons: TImageList
diff --git a/backup/main.pas b/backup/main.pas
index 2e261b2..8474161 100644
--- a/backup/main.pas
+++ b/backup/main.pas
@@ -25,6 +25,7 @@ type
     btnRead: TButton;
     btnWrite: TButton;
     btnHide: TButton;
+    miIssue: TMenuItem;
     SPMenu: TPopupMenu;
     Label1: TLabel;
     Label2: TLabel;
@@ -434,6 +435,7 @@ type
     procedure miIntFPClick(Sender: TObject);
     procedure miIntINTClick(Sender: TObject);
     procedure miIntLOGOClick(Sender: TObject);
+    procedure miIssueClick(Sender: TObject);
     procedure miJSAxisSwapClick(Sender: TObject);
     procedure miJSXRevClick(Sender: TObject);
     procedure miJSYRevClick(Sender: TObject);
@@ -1261,6 +1263,11 @@ begin
     SimpleGet(baseUrl + '/api/control/interpreter/logo');
 end;
 
+procedure TGUIForm.miIssueClick(Sender: TObject);
+begin
+  openurl( 'https://github.com/paleotronic/microm8-gui/issues' );
+end;
+
 procedure TGUIForm.miJSAxisSwapClick(Sender: TObject);
 var
   p0, p1: string;
@@ -2731,7 +2738,8 @@ begin
      lastShowTime := Now();
 
      lastFocusLostTime:=Now();
-     SimpleGet( baseUrl + '/api/control/mouse/buttonclick' );
+     //SimpleGet( baseUrl + '/api/control/mouse/buttonclick' );
+     SendKey( $e05d, 0, 1, 0 );
    end;
   ReposWindow;
 end;
diff --git a/main.lfm b/main.lfm
index c81e7de..0f074ff 100644
--- a/main.lfm
+++ b/main.lfm
@@ -6593,6 +6593,10 @@ object GUIForm: TGUIForm
         ShortCut = 24648
         OnClick = miMMHelpClick
       end
+      object miIssue: TMenuItem
+        Caption = 'Report an Issue...'
+        OnClick = miIssueClick
+      end
     end
   end
   object ToolbarIcons: TImageList
diff --git a/main.pas b/main.pas
index 95d9e91..4495692 100644
--- a/main.pas
+++ b/main.pas
@@ -7,7 +7,7 @@ interface
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Menus, ComCtrls,
   ExtCtrls, StdCtrls, fphttpclient, LCLType, Buttons, AsyncProcess, DateUtils,
-  Clipbrd,
+  Clipbrd, lclintf,
 {$IFDEF WINDOWS}
   Windows,
 {$ENDIF}
@@ -25,6 +25,7 @@ type
     btnRead: TButton;
     btnWrite: TButton;
     btnHide: TButton;
+    miIssue: TMenuItem;
     SPMenu: TPopupMenu;
     Label1: TLabel;
     Label2: TLabel;
@@ -434,6 +435,7 @@ type
     procedure miIntFPClick(Sender: TObject);
     procedure miIntINTClick(Sender: TObject);
     procedure miIntLOGOClick(Sender: TObject);
+    procedure miIssueClick(Sender: TObject);
     procedure miJSAxisSwapClick(Sender: TObject);
     procedure miJSXRevClick(Sender: TObject);
     procedure miJSYRevClick(Sender: TObject);
@@ -1261,6 +1263,11 @@ begin
     SimpleGet(baseUrl + '/api/control/interpreter/logo');
 end;
 
+procedure TGUIForm.miIssueClick(Sender: TObject);
+begin
+  openurl( 'https://github.com/paleotronic/microm8-gui/issues' );
+end;
+
 procedure TGUIForm.miJSAxisSwapClick(Sender: TObject);
 var
   p0, p1: string;