private void MiLoadFromGameBase_Click(object sender, RoutedEventArgs e)
{
GameBaseBrowser dialog = new GameBaseBrowser();
dialog.Owner = this;
if (dialog.ShowDialog() == true)
{
string filename = dialog.SelectedFileName;
// load program
TVCFiles.LoadProgramFile(filename, ExecutionControl.TVC.Memory);
// autostart program is enabled
GamebaseSettings settings = SettingsFile.Default.GetSettings <GamebaseSettings>();
if (settings.Autostart)
{
ExecutionControl.TVC.Keyboard.InjectKeys("DR,W,UR,DU,W,UU,DN,W,UN,DEnter,W,UEnter");
}
}
}
private void MiSaveAsCASFile_Click(object sender, RoutedEventArgs e)
{
// Configure open file dialog box
Microsoft.Win32.SaveFileDialog dlg = new Microsoft.Win32.SaveFileDialog
{
DefaultExt = ".cas",
Filter = "Program file (*.cas)|*.CAS|Basic text file [ANSI encoded] (*.bas)|*.bas|Basic text file [UTF-8 encoded] (*.bas)|*.bas|Basic text file [Unicode encoded] (*.bas)|*.bas"
};
// Show open file dialog box
bool?result = null;
result = dlg.ShowDialog();
// Process open file dialog box results
if (result == true)
{
// Open document
string filename = dlg.FileName;
switch (dlg.FilterIndex)
{
case 1:
TVCFiles.SaveProgramFile(filename, ExecutionControl.TVC.Memory);
break;
case 2:
TVCFiles.SaveProgramFile(filename, ExecutionControl.TVC.Memory, BASFile.EncodingType.Ansi);
break;
case 3:
TVCFiles.SaveProgramFile(filename, ExecutionControl.TVC.Memory, BASFile.EncodingType.Utf8);
break;
case 4:
TVCFiles.SaveProgramFile(filename, ExecutionControl.TVC.Memory, BASFile.EncodingType.Unicode);
break;
}
}
}
private void MiOpenCASFile_Click(object sender, RoutedEventArgs e)
{
// Configure open file dialog box
Microsoft.Win32.OpenFileDialog dlg = new Microsoft.Win32.OpenFileDialog
{
DefaultExt = ".cas",
Filter = "All supported files (*.cas; *.zip; *.dsk)|*.CAS;*.ZIP;*.DSK|All files (*.*)|*.*"
};
// Show open file dialog box
bool?result = null;
result = dlg.ShowDialog();
// Process open file dialog box results
if (result == true)
{
// Open document
string filename = dlg.FileName;
TVCFiles.LoadProgramFile(filename, ExecutionControl.TVC.Memory);
}
}
