LoadConfiguration method

Applies to
TGUITestRunner

Declaration
Procedure LoadConfiguration;

Implementation

procedure TGUITestRunner.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;


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