Apple-2-Tools/microm8-gui
1
0
Fork 0
mirror of https://github.com/paleotronic/microm8-gui.git synced 2025-02-20 07:28:55 +00:00
Code Issues Projects Releases Wiki Activity

remove debugs

Browse Source
This commit is contained in:
April Ayres-Griffiths 2019-04-19 10:15:12 +10:00
parent 73affdeb6a
commit 8520c20889
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
backup/main.pas
View File

@ -1747,7 +1747,7 @@ end;
procedure TGUIForm.miSPEjectClick(Sender: TObject);
begin
StatusBar1.SimpleText := SimpleGet(baseUrl + '/api/control/hardware/disk/eject/2');
SimpleGet(baseUrl + '/api/control/hardware/disk/eject/2');
end;
procedure TGUIForm.miSPFileClick(Sender: TObject);
@ -2379,7 +2379,7 @@ begin
Respo := TStringStream.Create('');
SimpleFormPost(baseUrl + '/api/control/system/launch',json,Respo);
S := Respo.DataString;
self.StatusBar1.SimpleText:=S;
//self.StatusBar1.SimpleText:=S;
Respo.Destroy;
end;
@ -2395,7 +2395,7 @@ begin
Respo := TStringStream.Create('');
SimpleFormPost(baseUrl + '/api/control/system/launch',json,Respo);
S := Respo.DataString;
self.StatusBar1.SimpleText:=S;
//self.StatusBar1.SimpleText:=S;
Respo.Destroy;
end;
@ -3000,7 +3000,7 @@ begin
else
Result := 0;
end;
//VK_SHIFT: Result := 0;
VK_SHIFT: Result := 0;
VK_CAPITAL: begin
{$IFDEF DARWIN}
Caps := (not KeyUp);

8
main.pas
View File

@ -1747,7 +1747,7 @@ end;
procedure TGUIForm.miSPEjectClick(Sender: TObject);
begin
StatusBar1.SimpleText := SimpleGet(baseUrl + '/api/control/hardware/disk/eject/2');
SimpleGet(baseUrl + '/api/control/hardware/disk/eject/2');
end;
procedure TGUIForm.miSPFileClick(Sender: TObject);
@ -2379,7 +2379,7 @@ begin
Respo := TStringStream.Create('');
SimpleFormPost(baseUrl + '/api/control/system/launch',json,Respo);
S := Respo.DataString;
self.StatusBar1.SimpleText:=S;
//self.StatusBar1.SimpleText:=S;
Respo.Destroy;
end;
@ -2395,7 +2395,7 @@ begin
Respo := TStringStream.Create('');
SimpleFormPost(baseUrl + '/api/control/system/launch',json,Respo);
S := Respo.DataString;
self.StatusBar1.SimpleText:=S;
//self.StatusBar1.SimpleText:=S;
Respo.Destroy;
end;
@ -2865,7 +2865,7 @@ end;
procedure TGUIForm.FormDeactivate(Sender: TObject);
begin
StatusBar1.SimpleText := 'focus lost';
//StatusBar1.SimpleText := 'focus lost';
lastFocusLostTime:=Now();
end;