public void ExecuteSourceLocationAction(PascalABCCompiler.SourceLocation SourceLocation,SourceLocationAction Action)
{
ExecuteSLAction(SourceLocation,Action);
}
void LoadOptions(string FileName)
{
try
{
if (!File.Exists(FileName))
{
PascalABCCompiler.StringResourcesLanguage.CurrentLanguageName = "Русский";
return;
}
Hashtable Options = new Hashtable(StringComparer.CurrentCultureIgnoreCase);
PascalABCCompiler.StringResources.ReadStringsFromStream(new StreamReader(FileName, System.Text.Encoding.GetEncoding(1251)), Options);
string value;
int val;
if ((value = (string)Options[OptionsItemNameWorkDirectory]) != null)
WorkingDirectory = value;
if ((value = (string)Options[OptionsItemNameLanguage]) != null)
PascalABCCompiler.StringResourcesLanguage.CurrentLanguageName = value;
if ((value = (string)Options[OptionsItemNameMainFormLeft]) != null)
{
val = Convert.ToInt32(value);
if (val < Screen.PrimaryScreen.WorkingArea.Size.Width && val >= 0)
FormLeft = this.Left = val;
}
if ((value = (string)Options[OptionsItemNameMainFormTop]) != null)
{
val = Convert.ToInt32(value);
if (val < Screen.PrimaryScreen.WorkingArea.Size.Height && val >= 0)
FormTop = this.Top = val;
}
if ((value = (string)Options[OptionsItemNameMainFormWidth]) != null)
{
val = Convert.ToInt32(value);
if (val < Screen.PrimaryScreen.WorkingArea.Size.Width && val >= 100)
FormWidth = this.Width = val;
}
if ((value = (string)Options[OptionsItemNameMainFormHeight]) != null)
{
val = Convert.ToInt32(value);
if (val < Screen.PrimaryScreen.WorkingArea.Size.Height && val >= 100)
FormHeight = this.Height = val;
}
if ((value = (string)Options[OptionsItemNameMainFormMaximized]) != null)
if (Convert.ToBoolean(value))
this.WindowState = FormWindowState.Maximized;
if ((value = (string)Options[OptionsItemNameShowLinesNum]) != null)
UserOptions.ShowLineNums = Convert.ToBoolean(value);
if ((value = (string)Options[OptionsItemNameDeleteEXEAfterExecute]) != null)
UserOptions.DeleteEXEAfterExecute = Convert.ToBoolean(value);
if ((value = (string)Options[OptionsItemNameDeletePDBAfterExecute]) != null)
UserOptions.DeletePDBAfterExecute = Convert.ToBoolean(value);
if ((value = (string)Options[OptionsItemNameShowMathBracket]) != null)
UserOptions.ShowMathBraket = Convert.ToBoolean(value);
if ((value = (string)Options[OptionsItemNameEditorFontSize]) != null)
UserOptions.EditorFontSize = Convert.ToInt32(value);
if ((value = (string)Options[OptionsItemNameErrorsStrategy]) != null)
ErrorsManager.Strategy = (PascalABCCompiler.Errors.ErrorsStrategy)Convert.ToByte(value);
if ((value = (string)Options[OptionsItemNameErrorsCursorPosStrategy]) != null)
ErrorCursorPosStrategy = (VisualPascalABCPlugins.SourceLocationAction)Convert.ToByte(value);
if ((value = (string)Options[OptionsItemNameShowOutputWindow]) != null)
BottomTabsVisible = Convert.ToBoolean(value);
if ((value = (string)Options[OptionsItemNameRedirectConsoleIO]) != null)
UserOptions.RedirectConsoleIO = Convert.ToBoolean(value);
if ((value = (string)Options[OptionsItemNameConvertTabsToSpaces]) != null)
UserOptions.ConverTabsToSpaces = Convert.ToBoolean(value);
if ((value = (string)Options[OptionsItemNameGenerateDebugInfo]) != null)
CompilerOptions1.Debug = Convert.ToBoolean(value);
if ((value = (string)Options[OptionsItemNameTabIdent]) != null)
UserOptions.TabIndent = Convert.ToInt32(value);
int i = 0;
while ((value = (string)Options[OptionsItemNameLastFile + (i++).ToString()]) != null)
AddLastFile(value);
}
catch (Exception)
{
}
}
public void ExecuteSourceLocationAction(PascalABCCompiler.SourceLocation SourceLocation, SourceLocationAction Action)
{
ExecuteSLAction(SourceLocation, Action);
}
