55 lines
1.9 KiB
C#
55 lines
1.9 KiB
C#
using System;
|
|
using System.Collections.Generic;
|
|
using System.ComponentModel;
|
|
using System.Linq;
|
|
using System.Text;
|
|
using System.Windows.Forms;
|
|
|
|
namespace VisualPascalABC
|
|
{
|
|
public partial class Form1
|
|
{
|
|
private void OpenProjectDialog(string InitialDirectory)
|
|
{
|
|
openProjectDialog.FileName = "";
|
|
openProjectDialog.InitialDirectory = InitialDirectory;
|
|
openProjectDialog.ShowDialog();
|
|
SetFocusToEditor();
|
|
}
|
|
|
|
private void openProjectDialog_FileOk(object sender, CancelEventArgs e)
|
|
{
|
|
WorkbenchServiceFactory.ProjectService.OpenProject(openProjectDialog.FileName);
|
|
}
|
|
|
|
private void OpenFileDialog(string InitialDirectory)
|
|
{
|
|
openFileDialog1.FileName = "";
|
|
openFileDialog1.InitialDirectory = InitialDirectory;
|
|
openFileDialog1.ShowDialog();
|
|
SetFocusToEditor();
|
|
}
|
|
|
|
private void openFileDialog1_FileOk(object sender, CancelEventArgs e)
|
|
{
|
|
foreach (string FileName in openFileDialog1.FileNames)
|
|
WorkbenchServiceFactory.FileService.OpenFile(FileName, null);
|
|
}
|
|
|
|
private void saveFileDialog1_FileOk(object sender, CancelEventArgs e)
|
|
{
|
|
//ReplaceLastFile(CurrentSourceFileName, saveFileDialog1.FileName);
|
|
string fn = Tools.FileNameToLower(saveFileDialog1.FileName);
|
|
if (OpenDocuments.ContainsKey(fn) && OpenDocuments[fn] != CurrentCodeFileDocument)
|
|
{
|
|
MessageBox.Show(Form1StringResources.Get("ERROR_FILE_EXISTS_IN_CODEPAGES"), PascalABCCompiler.StringResources.Get("!ERROR"), MessageBoxButtons.OK, MessageBoxIcon.Error);
|
|
}
|
|
else
|
|
{
|
|
SaveFileAs(CurrentCodeFileDocument, saveFileDialog1.FileName);
|
|
AddLastFile(saveFileDialog1.FileName);
|
|
}
|
|
}
|
|
}
|
|
}
|