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; |