procedure TDUnitDialog.LoadConfiguration;
begin
if FSuite <> nil then
FSuite.LoadConfiguration(IniFileName);
with TIniFile.Create(IniFileName) do
try
with AutoSaveAction do
Checked := ReadBool(cnConfigIniSection, 'AutoSave', Checked);
Left := ReadInteger(cnConfigIniSection, 'Left', Left);
Top := ReadInteger(cnConfigIniSection, 'Top', Top);
Width := ReadInteger(cnConfigIniSection, 'Width', Width);
Height := ReadInteger(cnConfigIniSection, 'Height', Height);
{ center splitter location }
with ResultsPanel do
Height := ReadInteger(cnConfigIniSection, 'ResultsPanel.Height', Height);
{ error splitter location }
with ErrorBoxPanel do
Height := ReadInteger(cnConfigIniSection, 'ErrorMessage.Height', Height);
with ErrorBoxVisibleAction do
Checked := ReadBool(cnConfigIniSection, 'ErrorMessage.Visible', Checked);
ErrorBoxSplitter.Visible := ErrorBoxVisibleAction.Checked;
ErrorBoxPanel.Visible := ErrorBoxVisibleAction.Checked;
{ failure list configuration }
with FailureListView do begin
Columns[0].Width := ReadInteger(cnConfigIniSection, 'FailureList.ColumnWidth[0]',
Columns[0].Width);
Columns[1].Width := ReadInteger(cnConfigIniSection, 'FailureList.ColumnWidth[1]',
Columns[1].Width);
end;
{ other options }
AutoFocusAction.Checked := ReadBool(cnConfigIniSection, 'AutoFocus',
AutoFocusAction.Checked);
HideTestNodesOnOpenAction.Checked := ReadBool(cnConfigIniSection,
'HideTestNodesOnOpen', HideTestNodesOnOpenAction.Checked);
BreakOnFailuresAction.Checked := ReadBool(cnConfigIniSection,
'BreakOnFailures', BreakOnFailuresAction.Checked);
finally
Free;
end;
if FSuite <> nil then
UpdateTestTreeState;
End; |