{***************************************************************************}
{                                                                           }
{           DelphiUIAutomation                                              }
{                                                                           }
{           Copyright 2016 JHC Systems Limited                              }
{                                                                           }
{***************************************************************************}
{                                                                           }
{  Licensed under the Apache License, Version 2.0 (the "License");          }
{  you may not use this file except in compliance with the License.         }
{  You may obtain a copy of the License at                                  }
{                                                                           }
{      http://www.apache.org/licenses/LICENSE-2.0                           }
{                                                                           }
{  Unless required by applicable law or agreed to in writing, software      }
{  distributed under the License is distributed on an "AS IS" BASIS,        }
{  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. }
{  See the License for the specific language governing permissions and      }
{  limitations under the License.                                           }
{                                                                           }
{***************************************************************************}
unit DelphiUIAutomation.AndCondition;

interface

uses
  UIAutomationClient_TLB,
  generics.collections,
  DelphiUIAutomation.Condition;

type
  TAndCondition = class(TInterfacedObject, ICondition)
  strict private
    conditions : TList<ICondition>;
  public
    function getCondition : IUIAutomationCondition;
    constructor Create(firstCondition, secondCondition: ICondition);
  end;

implementation

uses
  DelphiUIAutomation.Automation;

{ TAndCondition }

constructor TAndCondition.Create(firstCondition, secondCondition: ICondition);
begin
  conditions := TList<ICondition>.create;

  conditions.add(firstCondition);
  conditions.add(secondCondition);
end;

function TAndCondition.getCondition: IUIAutomationCondition;
var
  condition : IUIAutomationCondition;
begin
  uiAuto.createAndCondition(conditions[0].getCondition, conditions[1].getCondition, condition);

  result := condition;
end;

end.