Apple-2-Tools/microm8-gui
1
0
Fork 0
mirror of https://github.com/paleotronic/microm8-gui.git synced 2025-02-18 07:31:07 +00:00
Code Issues Projects Releases Wiki Activity

help menu

Browse Source
This commit is contained in:
April Ayres-Griffiths 2019-04-17 21:30:23 +10:00
parent eff787086b
commit 624484eefb
4 changed files with 25 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
backup/main.lfm
View File

@ -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

10
backup/main.pas
View File

@ -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;

4
main.lfm
View File

@ -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

9
main.pas
View File

@ -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;