Apple-2-Tools/microm8-gui
1
0
Fork 0
mirror of https://github.com/paleotronic/microm8-gui.git synced 2024-06-08 16:29:33 +00:00
Code Issues Projects Releases Wiki Activity

paste api

Browse Source
This commit is contained in:
April Ayres-Griffiths 2019-04-13 22:50:26 +10:00
parent e0cb4b3d75
commit 4bd6263c04
8 changed files with 49 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
backup/main.lfm
View File

@ -6022,6 +6022,13 @@ object GUIForm: TGUIForm
OnClick = miINPMMOffClick OnClick = miINPMMOffClick
end end
end end
object N12: TMenuItem
Caption = '-'
end
object miPasteText: TMenuItem
Caption = 'Paste'
OnClick = miPasteTextClick
end
end end
object miAudio: TMenuItem object miAudio: TMenuItem
Caption = 'Audio' Caption = 'Audio'

13
backup/main.pas
View File

@ -7,6 +7,7 @@ interface
uses uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Menus, ComCtrls, Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Menus, ComCtrls,
ExtCtrls, StdCtrls, fphttpclient, LCLType, Buttons, AsyncProcess, DateUtils, ExtCtrls, StdCtrls, fphttpclient, LCLType, Buttons, AsyncProcess, DateUtils,
Clipbrd,
{$IFDEF WINDOWS} {$IFDEF WINDOWS}
Windows, Windows,
{$ENDIF} {$ENDIF}
@ -21,6 +22,8 @@ type
{ TGUIForm } { TGUIForm }
TGUIForm = class(TForm) TGUIForm = class(TForm)
miPasteText: TMenuItem;
N12: TMenuItem;
N11: TMenuItem; N11: TMenuItem;
miDisableFocusStealing: TMenuItem; miDisableFocusStealing: TMenuItem;
miDisk2WPToggle: TMenuItem; miDisk2WPToggle: TMenuItem;
@ -405,6 +408,7 @@ type
procedure miMonoVoxelsClick(Sender: TObject); procedure miMonoVoxelsClick(Sender: TObject);
procedure miMVOL000Click(Sender: TObject); procedure miMVOL000Click(Sender: TObject);
procedure miOpenFreezeClick(Sender: TObject); procedure miOpenFreezeClick(Sender: TObject);
procedure miPasteTextClick(Sender: TObject);
procedure miPDFTO5sClick(Sender: TObject); procedure miPDFTO5sClick(Sender: TObject);
procedure miPRFIIeClick(Sender: TObject); procedure miPRFIIeClick(Sender: TObject);
procedure miPRFIIeEnhancedClick(Sender: TObject); procedure miPRFIIeEnhancedClick(Sender: TObject);
@ -1200,6 +1204,13 @@ begin
ShowM8; ShowM8;
end; end;
procedure TGUIForm.miPasteTextClick(Sender: TObject);
var
s: string;
begin
s := ClipBoard.AsText;
end;
procedure TGUIForm.miPDFTO5sClick(Sender: TObject); procedure TGUIForm.miPDFTO5sClick(Sender: TObject);
begin begin
UpdateConfig( 'hardware/init.printer.timeout', TMenuItem(sender).Caption, true ); UpdateConfig( 'hardware/init.printer.timeout', TMenuItem(sender).Caption, true );
@ -1432,7 +1443,7 @@ const
begin begin
// SimpleGet(baseUrl + '/api/control/input/meta/key/i/value/'+TMenuItem(Sender).Caption); // SimpleGet(baseUrl + '/api/control/input/meta/key/i/value/'+TMenuItem(Sender).Caption);
UpdateConfig( 'video/init.video.scanline', values[StrToInt(TMenuItem(Sender).Caption)], true ); UpdateConfig( 'video/init.video.scanline', values[StrToInt(TMenuItem(Sender).Caption)], true );
UpdateConfig( 'video/init.video.scanlinedisable', '0', false ) UpdateConfig( 'video/init.video.scanlinedisable', '0', false );
end; end;
procedure TGUIForm.miSNDMasterClick(Sender: TObject); procedure TGUIForm.miSNDMasterClick(Sender: TObject);

7
lib/x86_64-win64/main.lfm
View File

@ -6022,6 +6022,13 @@ object GUIForm: TGUIForm
OnClick = miINPMMOffClick OnClick = miINPMMOffClick
end end
end end
object N12: TMenuItem
Caption = '-'
end
object miPasteText: TMenuItem
Caption = 'Paste'
OnClick = miPasteTextClick
end
end end
object miAudio: TMenuItem object miAudio: TMenuItem
Caption = 'Audio' Caption = 'Audio'

BIN
lib/x86_64-win64/main.o
View File

Binary file not shown.

BIN
lib/x86_64-win64/main.ppu
View File

Binary file not shown.

BIN
lib/x86_64-win64/poc.obj
View File

Binary file not shown.

7
main.lfm
View File

@ -6022,6 +6022,13 @@ object GUIForm: TGUIForm
OnClick = miINPMMOffClick OnClick = miINPMMOffClick
end end
end end
object N12: TMenuItem
Caption = '-'
end
object miPasteText: TMenuItem
Caption = 'Paste'
OnClick = miPasteTextClick
end
end end
object miAudio: TMenuItem object miAudio: TMenuItem
Caption = 'Audio' Caption = 'Audio'

16
main.pas
View File

@ -7,6 +7,7 @@ interface
uses uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Menus, ComCtrls, Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Menus, ComCtrls,
ExtCtrls, StdCtrls, fphttpclient, LCLType, Buttons, AsyncProcess, DateUtils, ExtCtrls, StdCtrls, fphttpclient, LCLType, Buttons, AsyncProcess, DateUtils,
Clipbrd,
{$IFDEF WINDOWS} {$IFDEF WINDOWS}
Windows, Windows,
{$ENDIF} {$ENDIF}
@ -21,6 +22,8 @@ type
{ TGUIForm } { TGUIForm }
TGUIForm = class(TForm) TGUIForm = class(TForm)
miPasteText: TMenuItem;
N12: TMenuItem;
N11: TMenuItem; N11: TMenuItem;
miDisableFocusStealing: TMenuItem; miDisableFocusStealing: TMenuItem;
miDisk2WPToggle: TMenuItem; miDisk2WPToggle: TMenuItem;
@ -405,6 +408,7 @@ type
procedure miMonoVoxelsClick(Sender: TObject); procedure miMonoVoxelsClick(Sender: TObject);
procedure miMVOL000Click(Sender: TObject); procedure miMVOL000Click(Sender: TObject);
procedure miOpenFreezeClick(Sender: TObject); procedure miOpenFreezeClick(Sender: TObject);
procedure miPasteTextClick(Sender: TObject);
procedure miPDFTO5sClick(Sender: TObject); procedure miPDFTO5sClick(Sender: TObject);
procedure miPRFIIeClick(Sender: TObject); procedure miPRFIIeClick(Sender: TObject);
procedure miPRFIIeEnhancedClick(Sender: TObject); procedure miPRFIIeEnhancedClick(Sender: TObject);
@ -1200,6 +1204,18 @@ begin
ShowM8; ShowM8;
end; end;
procedure TGUIForm.miPasteTextClick(Sender: TObject);
var
s: string;
Respo: TStringStream;
begin
s := ClipBoard.AsText;
if length(s) > 0 then
begin
SimpleFormPost(baseUrl+'/api/control/paste', s, Respo);
end;
end;
procedure TGUIForm.miPDFTO5sClick(Sender: TObject); procedure TGUIForm.miPDFTO5sClick(Sender: TObject);
begin begin
UpdateConfig( 'hardware/init.printer.timeout', TMenuItem(sender).Caption, true ); UpdateConfig( 'hardware/init.printer.timeout', TMenuItem(sender).Caption, true );