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

quit gui on microm8 stop

Browse Source
This commit is contained in:
April Ayres-Griffiths 2019-04-18 16:25:44 +10:00
parent 645f4a55dc
commit 41946ba7e5
6 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
backup/main.lfm
View File

@ -6319,7 +6319,7 @@ object GUIForm: TGUIForm
OnClick = miVideoScreenshotClick OnClick = miVideoScreenshotClick
end end
object miCopyText: TMenuItem object miCopyText: TMenuItem
Caption = 'Copy Text Screen' Caption = 'Text Screen to Clipboard'
OnClick = miCopyTextClick OnClick = miCopyTextClick
end end
object N13: TMenuItem object N13: TMenuItem

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

@ -6319,7 +6319,7 @@ object GUIForm: TGUIForm
OnClick = miVideoScreenshotClick OnClick = miVideoScreenshotClick
end end
object miCopyText: TMenuItem object miCopyText: TMenuItem
Caption = 'Copy Text Screen' Caption = 'Text Screen to Clipboard'
OnClick = miCopyTextClick OnClick = miCopyTextClick
end end
object N13: TMenuItem object N13: TMenuItem

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.pas
View File

@ -3288,11 +3288,8 @@ begin
exit; exit;
if MicroM8Process.Active then if MicroM8Process.Active then
exit; exit;
{ okay not running and we want to start it } { okay not running and we want to quit }
MicroM8Process.Active := true; Application.Terminate;
Sleep(1000);
lx := -1;
ReposWindow;
end; end;
end. end.