{***************************************************************************}
{                                                                           }
{           DelphiUIAutomation                                              }
{                                                                           }
{           Copyright 2015 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.StringGridItem;

interface

uses
  UIAutomationClient_TLB,
  DelphiUIAutomation.Base;

type
  IAutomationStringGridItem = interface(IAutomationBase)
  ['{D4F198BF-2137-4073-B3F2-378601E56854}']
    function Select : HResult;
  end;

  TAutomationStringGridItem = class(TAutomationBase, IAutomationStringGridItem)
  strict private
    FSelectionItemPattern : IUIAutomationSelectionItemPattern;
    FValuePattern : IUIAutomationValuePattern;
  private
    procedure GetPatterns;
  protected
    function getName: string; override;
  public
    function Select : HResult;
    constructor Create(element: IUIAutomationElement); override;
  end;

implementation

uses
  SysUtils,
  DelphiUIAutomation.Exception,
  DelphiUIAutomation.PatternIDs;

{ TAutomationStringGridItem }

function TAutomationStringGridItem.Select : HResult;
begin
  result := self.FSelectionItemPattern.select;
end;

function TAutomationStringGridItem.getName: string;
var
  name : widestring;

begin
  FValuePattern.Get_CurrentValue(name);
  Result := trim(name);
end;

procedure TAutomationStringGridItem.GetPatterns;
begin
  FSelectionItemPattern := GetSelectionItemPattern;
  FValuePattern := GetValuePattern;
end;

constructor TAutomationStringGridItem.Create(element: IUIAutomationElement);
begin
  inherited create(element);

  GetPatterns;
end;

end.