Apple-2-Tools/microm8-gui
1
0
Fork 0
mirror of https://github.com/paleotronic/microm8-gui.git synced 2024-06-08 01:29:34 +00:00
Code Issues Projects Releases Wiki Activity

open pak file menu

Browse Source
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 BevelOuter = bvNone
ClientHeight = 589 ClientHeight = 589
ClientWidth = 1014 ClientWidth = 1014
Color = clAqua
ParentColor = False ParentColor = False
TabOrder = 2 TabOrder = 2
object sidecarPanel: TPanel object sidecarPanel: TPanel
@ -5660,6 +5659,13 @@ object GUIForm: TGUIForm
object N7: TMenuItem object N7: TMenuItem
Caption = '-' Caption = '-'
end end
object miOpenPAK: TMenuItem
Caption = 'Open microPAK...'
OnClick = miOpenPAKClick
end
object N16: TMenuItem
Caption = '-'
end
object miOpenFreeze: TMenuItem object miOpenFreeze: TMenuItem
Caption = 'Open Freeze...' Caption = 'Open Freeze...'
OnClick = miOpenFreezeClick OnClick = miOpenFreezeClick
@ -10465,7 +10471,7 @@ object GUIForm: TGUIForm
object odDiskImages: TOpenDialog object odDiskImages: TOpenDialog
Title = 'Open Disk Image' Title = 'Open Disk Image'
DefaultExt = '.*' 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 left = 24
top = 104 top = 104
end end

31
backup/main.pas
View File

@ -27,6 +27,8 @@ type
btnHide: TButton; btnHide: TButton;
Label1: TLabel; Label1: TLabel;
Label2: TLabel; Label2: TLabel;
miOpenPAK: TMenuItem;
N16: TMenuItem;
miCameraReset: TMenuItem; miCameraReset: TMenuItem;
N15: TMenuItem; N15: TMenuItem;
miPRFReboot: TMenuItem; miPRFReboot: TMenuItem;
@ -437,6 +439,7 @@ type
procedure miMonoVoxelsClick(Sender: TObject); procedure miMonoVoxelsClick(Sender: TObject);
procedure miMVOL000Click(Sender: TObject); procedure miMVOL000Click(Sender: TObject);
procedure miOpenFreezeClick(Sender: TObject); procedure miOpenFreezeClick(Sender: TObject);
procedure miOpenPAKClick(Sender: TObject);
procedure miPasteTextClick(Sender: TObject); procedure miPasteTextClick(Sender: TObject);
procedure miPDFTO5sClick(Sender: TObject); procedure miPDFTO5sClick(Sender: TObject);
procedure miPRFIIeClick(Sender: TObject); procedure miPRFIIeClick(Sender: TObject);
@ -546,6 +549,7 @@ type
function IsMicroM8Active: boolean; function IsMicroM8Active: boolean;
procedure WaitReposTimer(Sender: TObject); procedure WaitReposTimer(Sender: TObject);
procedure SendOSDMessage(msg: string); procedure SendOSDMessage(msg: string);
procedure LaunchPAK(disk: string);
private private
lx, ly, lw, lh: integer; lx, ly, lw, lh: integer;
lastShowTime: TDateTime; lastShowTime: TDateTime;
@ -1324,6 +1328,19 @@ begin
ShowM8; ShowM8;
end; 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); procedure TGUIForm.miPasteTextClick(Sender: TObject);
var var
s: string; s: string;
@ -2209,6 +2226,20 @@ begin
Respo.Destroy; Respo.Destroy;
end; 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); procedure TGUIForm.LaunchCommand(dialect: string; path: string; command: string);
var var
json, S: string; json, S: string;

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

@ -329,7 +329,6 @@ object GUIForm: TGUIForm
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 589 ClientHeight = 589
ClientWidth = 1014 ClientWidth = 1014
Color = clAqua
ParentColor = False ParentColor = False
TabOrder = 2 TabOrder = 2
object sidecarPanel: TPanel object sidecarPanel: TPanel
@ -5660,6 +5659,13 @@ object GUIForm: TGUIForm
object N7: TMenuItem object N7: TMenuItem
Caption = '-' Caption = '-'
end end
object miOpenPAK: TMenuItem
Caption = 'Open microPAK...'
OnClick = miOpenPAKClick
end
object N16: TMenuItem
Caption = '-'
end
object miOpenFreeze: TMenuItem object miOpenFreeze: TMenuItem
Caption = 'Open Freeze...' Caption = 'Open Freeze...'
OnClick = miOpenFreezeClick OnClick = miOpenFreezeClick
@ -10465,7 +10471,7 @@ object GUIForm: TGUIForm
object odDiskImages: TOpenDialog object odDiskImages: TOpenDialog
Title = 'Open Disk Image' Title = 'Open Disk Image'
DefaultExt = '.*' 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 left = 24
top = 104 top = 104
end 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 object N7: TMenuItem
Caption = '-' Caption = '-'
end end
object miOpenPAK: TMenuItem
Caption = 'Open microPAK...'
OnClick = miOpenPAKClick
end
object N16: TMenuItem
Caption = '-'
end
object miOpenFreeze: TMenuItem object miOpenFreeze: TMenuItem
Caption = 'Open Freeze...' Caption = 'Open Freeze...'
OnClick = miOpenFreezeClick OnClick = miOpenFreezeClick
@ -10464,7 +10471,7 @@ object GUIForm: TGUIForm
object odDiskImages: TOpenDialog object odDiskImages: TOpenDialog
Title = 'Open Disk Image' Title = 'Open Disk Image'
DefaultExt = '.*' 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 left = 24
top = 104 top = 104
end end

31
main.pas
View File

@ -27,6 +27,8 @@ type
btnHide: TButton; btnHide: TButton;
Label1: TLabel; Label1: TLabel;
Label2: TLabel; Label2: TLabel;
miOpenPAK: TMenuItem;
N16: TMenuItem;
miCameraReset: TMenuItem; miCameraReset: TMenuItem;
N15: TMenuItem; N15: TMenuItem;
miPRFReboot: TMenuItem; miPRFReboot: TMenuItem;
@ -437,6 +439,7 @@ type
procedure miMonoVoxelsClick(Sender: TObject); procedure miMonoVoxelsClick(Sender: TObject);
procedure miMVOL000Click(Sender: TObject); procedure miMVOL000Click(Sender: TObject);
procedure miOpenFreezeClick(Sender: TObject); procedure miOpenFreezeClick(Sender: TObject);
procedure miOpenPAKClick(Sender: TObject);
procedure miPasteTextClick(Sender: TObject); procedure miPasteTextClick(Sender: TObject);
procedure miPDFTO5sClick(Sender: TObject); procedure miPDFTO5sClick(Sender: TObject);
procedure miPRFIIeClick(Sender: TObject); procedure miPRFIIeClick(Sender: TObject);
@ -546,6 +549,7 @@ type
function IsMicroM8Active: boolean; function IsMicroM8Active: boolean;
procedure WaitReposTimer(Sender: TObject); procedure WaitReposTimer(Sender: TObject);
procedure SendOSDMessage(msg: string); procedure SendOSDMessage(msg: string);
procedure LaunchPAK(disk: string);
private private
lx, ly, lw, lh: integer; lx, ly, lw, lh: integer;
lastShowTime: TDateTime; lastShowTime: TDateTime;
@ -1324,6 +1328,19 @@ begin
ShowM8; ShowM8;
end; 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); procedure TGUIForm.miPasteTextClick(Sender: TObject);
var var
s: string; s: string;
@ -2209,6 +2226,20 @@ begin
Respo.Destroy; Respo.Destroy;
end; 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); procedure TGUIForm.LaunchCommand(dialect: string; path: string; command: string);
var var
json, S: string; json, S: string;