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 @@ - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - +