Apple-2-Tools
/
microm8-gui
mirror of https://github.com/paleotronic/microm8-gui.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

quit gui on microm8 stop

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
end
object miCopyText: TMenuItem
Caption = 'Copy Text Screen'
Caption = 'Text Screen to Clipboard'
OnClick = miCopyTextClick
end
object N13: TMenuItem

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

@ -6319,7 +6319,7 @@ object GUIForm: TGUIForm
OnClick = miVideoScreenshotClick
end
object miCopyText: TMenuItem
Caption = 'Copy Text Screen'
Caption = 'Text Screen to Clipboard'
OnClick = miCopyTextClick
end
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;
if MicroM8Process.Active then
exit;
{ okay not running and we want to start it }
MicroM8Process.Active := true;
Sleep(1000);
lx := -1;
ReposWindow;
{ okay not running and we want to quit }
Application.Terminate;
end;
end.