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

remove debug

Browse Source
This commit is contained in:
April Ayres-Griffiths 2019-04-19 09:23:12 +10:00
parent a54d35f784
commit 8d6662d6ae
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
backup/main.pas
View File

@ -2894,6 +2894,7 @@ begin
// insert smartport here // insert smartport here
InsertDisk( 'local:'+filename, 2 ); InsertDisk( 'local:'+filename, 2 );
ShowM8; ShowM8;
SendOSDMessage('SmartPort Volume Connected');
end; end;
end; end;
end; end;

2
main.pas
View File

@ -3171,7 +3171,7 @@ begin
code := MapKeyCode(Key,Shift,false); code := MapKeyCode(Key,Shift,false);
if code <> 0 then if code <> 0 then
SendKey( code, 0, 1, MapShiftState(Key, Shift) ); SendKey( code, 0, 1, MapShiftState(Key, Shift) );
StatusBar1.SimpleText := IntToStr(code) + ' ' + keydesc; //StatusBar1.SimpleText := IntToStr(code) + ' ' + keydesc;
end; end;
procedure TGUIForm.FormKeyPress(Sender: TObject; var Key: char); procedure TGUIForm.FormKeyPress(Sender: TObject; var Key: char);