mirror of
https://github.com/paleotronic/microm8-gui.git
synced 2024-09-28 12:55:03 +00:00
remove debug
This commit is contained in:
parent
a54d35f784
commit
8d6662d6ae
@ -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
2
main.pas
@ -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);
|
||||||
|
Loading…
Reference in New Issue
Block a user