SaveConfiguration method

Applies to
TDUnitDialog

Declaration
Procedure SaveConfiguration;

Implementation

procedure TDUnitDialog.SaveConfiguration;
begin
  if FSuite <> nil then
    FSuite.SaveConfiguration(IniFileName);
    
  with TIniFile.Create(IniFileName) do
  try
    WriteBool(cnConfigIniSection, 'AutoSave', AutoSaveAction.Checked);

    WriteInteger(cnConfigIniSection, 'Left', Left);
    WriteInteger(cnConfigIniSection, 'Top', Top);
    WriteInteger(cnConfigIniSection, 'Width', Width);
    WriteInteger(cnConfigIniSection, 'Height', Height);

    { center splitter location }
    WriteInteger(cnConfigIniSection, 'ResultsPanel.Height',
      ResultsPanel.Height);

    { error box }
    WriteInteger(cnConfigIniSection, 'ErrorMessage.Height',
      ErrorBoxPanel.Height);
    WriteBool(cnConfigIniSection, 'ErrorMessage.Visible',
      ErrorBoxVisibleAction.Checked);

    { failure list configuration }
    with FailureListView do begin
      WriteInteger(cnConfigIniSection, 'FailureList.ColumnWidth[0]',
        Columns[0].Width);
      WriteInteger(cnConfigIniSection, 'FailureList.ColumnWidth[1]',
        Columns[1].Width);
    end;

    { other options }
    WriteBool(cnConfigIniSection, 'AutoFocus',           AutoFocusAction.Checked);
    WriteBool(cnConfigIniSection, 'HideTestNodesOnOpen', HideTestNodesOnOpenAction.Checked);
    WriteBool(cnConfigIniSection, 'BreakOnFailures',     BreakOnFailuresAction.Checked);
  finally
    Free;
  end;
End;


HTML generated by Time2HELP
http://www.time2help.com