Apple-2-Tools/microm8-gui
1
0
Fork 0
mirror of https://github.com/paleotronic/microm8-gui.git synced 2024-06-07 09:29:32 +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); procedure TGUIForm.miSPEjectClick(Sender: TObject);
begin begin
StatusBar1.SimpleText := SimpleGet(baseUrl + '/api/control/hardware/disk/eject/2'); SimpleGet(baseUrl + '/api/control/hardware/disk/eject/2');
end; end;
procedure TGUIForm.miSPFileClick(Sender: TObject); procedure TGUIForm.miSPFileClick(Sender: TObject);
@ -2379,7 +2379,7 @@ begin
Respo := TStringStream.Create(''); Respo := TStringStream.Create('');
SimpleFormPost(baseUrl + '/api/control/system/launch',json,Respo); SimpleFormPost(baseUrl + '/api/control/system/launch',json,Respo);
S := Respo.DataString; S := Respo.DataString;
self.StatusBar1.SimpleText:=S; //self.StatusBar1.SimpleText:=S;
Respo.Destroy; Respo.Destroy;
end; end;
@ -2395,7 +2395,7 @@ begin
Respo := TStringStream.Create(''); Respo := TStringStream.Create('');
SimpleFormPost(baseUrl + '/api/control/system/launch',json,Respo); SimpleFormPost(baseUrl + '/api/control/system/launch',json,Respo);
S := Respo.DataString; S := Respo.DataString;
self.StatusBar1.SimpleText:=S; //self.StatusBar1.SimpleText:=S;
Respo.Destroy; Respo.Destroy;
end; end;
@ -3000,7 +3000,7 @@ begin
else else
Result := 0; Result := 0;
end; end;
//VK_SHIFT: Result := 0; VK_SHIFT: Result := 0;
VK_CAPITAL: begin VK_CAPITAL: begin
{$IFDEF DARWIN} {$IFDEF DARWIN}
Caps := (not KeyUp); Caps := (not KeyUp);

8
main.pas
View File

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