diff --git a/backup/main.lfm b/backup/main.lfm
index c42dbe9..07313d9 100644
--- a/backup/main.lfm
+++ b/backup/main.lfm
@@ -1,7 +1,7 @@
object GUIForm: TGUIForm
- Left = 102
+ Left = 116
Height = 668
- Top = 82
+ Top = 91
Width = 1014
AlphaBlendValue = 128
Caption = 'microM8 GUI'
@@ -10465,7 +10465,7 @@ object GUIForm: TGUIForm
object odDiskImages: TOpenDialog
Title = 'Open Disk Image'
DefaultExt = '.*'
- Filter = '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|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
diff --git a/backup/main.pas b/backup/main.pas
index fdc8987..5593451 100644
--- a/backup/main.pas
+++ b/backup/main.pas
@@ -730,6 +730,7 @@ begin
Image1.PopupMenu := nil;
case bi of
0: begin
+ odDiskImages.FilterIndex := 1;
if Button = mbRight then
begin
DiskMenu.Tag := 0;
@@ -747,6 +748,7 @@ begin
end;
end;
1: begin
+ odDiskImages.FilterIndex := 1;
if Button = mbRight then
begin
DiskMenu.Tag := 1;
@@ -770,6 +772,7 @@ begin
3: begin
{smart port}
+ odDiskImages.FilterIndex := 2;
if Button = mbRight then
begin
DiskMenu.Tag := 2;
@@ -902,6 +905,8 @@ end;
procedure TGUIForm.miCameraResetClick(Sender: TObject);
begin
SimpleGet(baseUrl+'/api/control/system/camera/reset');
+ UpdateConfig('video/current.mousemovecamera.enabled', '0', false);
+ UpdateConfig('video/current.mousemovecamera.alternate', '0', false);
end;
procedure TGUIForm.miColorDotsClick(Sender: TObject);
diff --git a/backup/poc.lps b/backup/poc.lps
index 9048c03..848d38e 100644
--- a/backup/poc.lps
+++ b/backup/poc.lps
@@ -21,8 +21,8 @@
-
-
+
+
@@ -67,123 +67,123 @@
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
diff --git a/lib/x86_64-win64/main.lfm b/lib/x86_64-win64/main.lfm
index c42dbe9..07313d9 100644
--- a/lib/x86_64-win64/main.lfm
+++ b/lib/x86_64-win64/main.lfm
@@ -1,7 +1,7 @@
object GUIForm: TGUIForm
- Left = 102
+ Left = 116
Height = 668
- Top = 82
+ Top = 91
Width = 1014
AlphaBlendValue = 128
Caption = 'microM8 GUI'
@@ -10465,7 +10465,7 @@ object GUIForm: TGUIForm
object odDiskImages: TOpenDialog
Title = 'Open Disk Image'
DefaultExt = '.*'
- Filter = '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|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
diff --git a/lib/x86_64-win64/main.o b/lib/x86_64-win64/main.o
index 7da32b7..0c70124 100644
Binary files a/lib/x86_64-win64/main.o and b/lib/x86_64-win64/main.o differ
diff --git a/lib/x86_64-win64/main.ppu b/lib/x86_64-win64/main.ppu
index 403cc9a..f641cba 100644
Binary files a/lib/x86_64-win64/main.ppu and b/lib/x86_64-win64/main.ppu differ
diff --git a/lib/x86_64-win64/poc.obj b/lib/x86_64-win64/poc.obj
index 5f97bfa..fdb46f2 100644
Binary files a/lib/x86_64-win64/poc.obj and b/lib/x86_64-win64/poc.obj differ
diff --git a/main.lfm b/main.lfm
index c42dbe9..07313d9 100644
--- a/main.lfm
+++ b/main.lfm
@@ -1,7 +1,7 @@
object GUIForm: TGUIForm
- Left = 102
+ Left = 116
Height = 668
- Top = 82
+ Top = 91
Width = 1014
AlphaBlendValue = 128
Caption = 'microM8 GUI'
@@ -10465,7 +10465,7 @@ object GUIForm: TGUIForm
object odDiskImages: TOpenDialog
Title = 'Open Disk Image'
DefaultExt = '.*'
- Filter = '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|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
diff --git a/main.pas b/main.pas
index adb9fa8..0bb84e0 100644
--- a/main.pas
+++ b/main.pas
@@ -730,6 +730,7 @@ begin
Image1.PopupMenu := nil;
case bi of
0: begin
+ odDiskImages.FilterIndex := 1;
if Button = mbRight then
begin
DiskMenu.Tag := 0;
@@ -747,6 +748,7 @@ begin
end;
end;
1: begin
+ odDiskImages.FilterIndex := 1;
if Button = mbRight then
begin
DiskMenu.Tag := 1;
@@ -770,6 +772,7 @@ begin
3: begin
{smart port}
+ odDiskImages.FilterIndex := 2;
if Button = mbRight then
begin
DiskMenu.Tag := 2;
@@ -902,8 +905,8 @@ end;
procedure TGUIForm.miCameraResetClick(Sender: TObject);
begin
SimpleGet(baseUrl+'/api/control/system/camera/reset');
- UpdateConfig('video/current.mousemovecamera.enabled', '0', false)
- UpdateConfig('video/current.mousemovecamera.alternate', '0', false)
+ UpdateConfig('video/current.mousemovecamera.enabled', '0', false);
+ UpdateConfig('video/current.mousemovecamera.alternate', '0', false);
end;
procedure TGUIForm.miColorDotsClick(Sender: TObject);
@@ -960,6 +963,7 @@ end;
procedure TGUIForm.miD1FileClick(Sender: TObject);
begin
+ odDiskImages.FilterIndex := 1;
RepaintWindow;
HideM8;
if odDiskImages.Execute then
@@ -976,6 +980,7 @@ end;
procedure TGUIForm.miD2FileClick(Sender: TObject);
begin
+ odDiskImages.FilterIndex := 1;
RepaintWindow;
HideM8;
if odDiskImages.Execute then
diff --git a/poc.lps b/poc.lps
index 848d38e..d864157 100644
--- a/poc.lps
+++ b/poc.lps
@@ -21,8 +21,8 @@
-
-
+
+
@@ -67,123 +67,123 @@
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+