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

open pak file menu

This commit is contained in:
April Ayres-Griffiths 2019-04-14 18:32:26 +10:00
parent 0979236198
commit ae77fdc40a
8 changed files with 86 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
backup/main.lfm
View File

@ -329,7 +329,6 @@ object GUIForm: TGUIForm
BevelOuter = bvNone
ClientHeight = 589
ClientWidth = 1014
Color = clAqua
ParentColor = False
TabOrder = 2
object sidecarPanel: TPanel
@ -5660,6 +5659,13 @@ object GUIForm: TGUIForm
object N7: TMenuItem
Caption = '-'
end
object miOpenPAK: TMenuItem
Caption = 'Open microPAK...'
OnClick = miOpenPAKClick
end
object N16: TMenuItem
Caption = '-'
end
object miOpenFreeze: TMenuItem
Caption = 'Open Freeze...'
OnClick = miOpenFreezeClick
@ -10465,7 +10471,7 @@ object GUIForm: TGUIForm
object odDiskImages: TOpenDialog
Title = 'Open Disk Image'
DefaultExt = '.*'
Filter = 'All Floppy Images|*.dsk; *.do; *.po; *.woz; *.nib|All HDD Images|*.po; *.2mg; *.hdv|Disk Image|*.dsk|ProDOS Ordered Image|*.po|DOS Ordered Image|*.do|Nibble Image|*.nib|WOZ Image|*.woz|2MG Image|*.2mg|HDV Image|*.hdv'
Filter = 'All Floppy Images|*.dsk; *.do; *.po; *.woz; *.nib|All HDD Images|*.po; *.2mg; *.hdv|MicroPAK|*.pak|Disk Image|*.dsk|ProDOS Ordered Image|*.po|DOS Ordered Image|*.do|Nibble Image|*.nib|WOZ Image|*.woz|2MG Image|*.2mg|HDV Image|*.hdv'
left = 24
top = 104
end

31
backup/main.pas
View File

@ -27,6 +27,8 @@ type
btnHide: TButton;
Label1: TLabel;
Label2: TLabel;
miOpenPAK: TMenuItem;
N16: TMenuItem;
miCameraReset: TMenuItem;
N15: TMenuItem;
miPRFReboot: TMenuItem;
@ -437,6 +439,7 @@ type
procedure miMonoVoxelsClick(Sender: TObject);
procedure miMVOL000Click(Sender: TObject);
procedure miOpenFreezeClick(Sender: TObject);
procedure miOpenPAKClick(Sender: TObject);
procedure miPasteTextClick(Sender: TObject);
procedure miPDFTO5sClick(Sender: TObject);
procedure miPRFIIeClick(Sender: TObject);
@ -546,6 +549,7 @@ type
function IsMicroM8Active: boolean;
procedure WaitReposTimer(Sender: TObject);
procedure SendOSDMessage(msg: string);
procedure LaunchPAK(disk: string);
private
lx, ly, lw, lh: integer;
lastShowTime: TDateTime;
@ -1324,6 +1328,19 @@ begin
ShowM8;
end;
procedure TGUIForm.miOpenPAKClick(Sender: TObject);
begin
RepaintWindow;
HideM8;
odDiskImages.FilterIndex := 3;
if odDiskImages.Execute then
begin
LaunchPAK( odDiskImages.Filename );
//StatusBar1.SimpleText := odDiskImages.Filename;
end;
ShowM8;
end;
procedure TGUIForm.miPasteTextClick(Sender: TObject);
var
s: string;
@ -2209,6 +2226,20 @@ begin
Respo.Destroy;
end;
procedure TGUIForm.LaunchPAK(disk: string);
var
json, S: string;
Respo: TStringStream;
begin
json := '{"pakfile": "' + disk +
'"}';
Respo := TStringStream.Create('');
SimpleFormPost(baseUrl + '/api/control/system/launch',json,Respo);
S := Respo.DataString;
self.StatusBar1.SimpleText:=S;
Respo.Destroy;
end;
procedure TGUIForm.LaunchCommand(dialect: string; path: string; command: string);
var
json, S: string;

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

@ -329,7 +329,6 @@ object GUIForm: TGUIForm
BevelOuter = bvNone
ClientHeight = 589
ClientWidth = 1014
Color = clAqua
ParentColor = False
TabOrder = 2
object sidecarPanel: TPanel
@ -5660,6 +5659,13 @@ object GUIForm: TGUIForm
object N7: TMenuItem
Caption = '-'
end
object miOpenPAK: TMenuItem
Caption = 'Open microPAK...'
OnClick = miOpenPAKClick
end
object N16: TMenuItem
Caption = '-'
end
object miOpenFreeze: TMenuItem
Caption = 'Open Freeze...'
OnClick = miOpenFreezeClick
@ -10465,7 +10471,7 @@ object GUIForm: TGUIForm
object odDiskImages: TOpenDialog
Title = 'Open Disk Image'
DefaultExt = '.*'
Filter = 'All Floppy Images|*.dsk; *.do; *.po; *.woz; *.nib|All HDD Images|*.po; *.2mg; *.hdv|Disk Image|*.dsk|ProDOS Ordered Image|*.po|DOS Ordered Image|*.do|Nibble Image|*.nib|WOZ Image|*.woz|2MG Image|*.2mg|HDV Image|*.hdv'
Filter = 'All Floppy Images|*.dsk; *.do; *.po; *.woz; *.nib|All HDD Images|*.po; *.2mg; *.hdv|MicroPAK|*.pak|Disk Image|*.dsk|ProDOS Ordered Image|*.po|DOS Ordered Image|*.do|Nibble Image|*.nib|WOZ Image|*.woz|2MG Image|*.2mg|HDV Image|*.hdv'
left = 24
top = 104
end

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.

9
main.lfm
View File

@ -5659,6 +5659,13 @@ object GUIForm: TGUIForm
object N7: TMenuItem
Caption = '-'
end
object miOpenPAK: TMenuItem
Caption = 'Open microPAK...'
OnClick = miOpenPAKClick
end
object N16: TMenuItem
Caption = '-'
end
object miOpenFreeze: TMenuItem
Caption = 'Open Freeze...'
OnClick = miOpenFreezeClick
@ -10464,7 +10471,7 @@ object GUIForm: TGUIForm
object odDiskImages: TOpenDialog
Title = 'Open Disk Image'
DefaultExt = '.*'
Filter = 'All Floppy Images|*.dsk; *.do; *.po; *.woz; *.nib|All HDD Images|*.po; *.2mg; *.hdv|Disk Image|*.dsk|ProDOS Ordered Image|*.po|DOS Ordered Image|*.do|Nibble Image|*.nib|WOZ Image|*.woz|2MG Image|*.2mg|HDV Image|*.hdv'
Filter = 'All Floppy Images|*.dsk; *.do; *.po; *.woz; *.nib|All HDD Images|*.po; *.2mg; *.hdv|MicroPAK|*.pak|Disk Image|*.dsk|ProDOS Ordered Image|*.po|DOS Ordered Image|*.do|Nibble Image|*.nib|WOZ Image|*.woz|2MG Image|*.2mg|HDV Image|*.hdv'
left = 24
top = 104
end

31
main.pas
View File

@ -27,6 +27,8 @@ type
btnHide: TButton;
Label1: TLabel;
Label2: TLabel;
miOpenPAK: TMenuItem;
N16: TMenuItem;
miCameraReset: TMenuItem;
N15: TMenuItem;
miPRFReboot: TMenuItem;
@ -437,6 +439,7 @@ type
procedure miMonoVoxelsClick(Sender: TObject);
procedure miMVOL000Click(Sender: TObject);
procedure miOpenFreezeClick(Sender: TObject);
procedure miOpenPAKClick(Sender: TObject);
procedure miPasteTextClick(Sender: TObject);
procedure miPDFTO5sClick(Sender: TObject);
procedure miPRFIIeClick(Sender: TObject);
@ -546,6 +549,7 @@ type
function IsMicroM8Active: boolean;
procedure WaitReposTimer(Sender: TObject);
procedure SendOSDMessage(msg: string);
procedure LaunchPAK(disk: string);
private
lx, ly, lw, lh: integer;
lastShowTime: TDateTime;
@ -1324,6 +1328,19 @@ begin
ShowM8;
end;
procedure TGUIForm.miOpenPAKClick(Sender: TObject);
begin
RepaintWindow;
HideM8;
odDiskImages.FilterIndex := 3;
if odDiskImages.Execute then
begin
LaunchPAK( ReplaceStr( odDiskImages.Filename, '\', '/' ) );
//StatusBar1.SimpleText := odDiskImages.Filename;
end;
ShowM8;
end;
procedure TGUIForm.miPasteTextClick(Sender: TObject);
var
s: string;
@ -2209,6 +2226,20 @@ begin
Respo.Destroy;
end;
procedure TGUIForm.LaunchPAK(disk: string);
var
json, S: string;
Respo: TStringStream;
begin
json := '{"pakfile": "' + disk +
'"}';
Respo := TStringStream.Create('');
SimpleFormPost(baseUrl + '/api/control/system/launch',json,Respo);
S := Respo.DataString;
self.StatusBar1.SimpleText:=S;
Respo.Destroy;
end;
procedure TGUIForm.LaunchCommand(dialect: string; path: string; command: string);
var
json, S: string;