{***************************************************************************} { } { 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.TrueCondition; interface uses UIAutomationClient_TLB, DelphiUIAutomation.Condition; type TTrueCondition = class(TInterfacedObject, ICondition) public function getCondition : IUIAutomationCondition; end; implementation uses DelphiUIAutomation.Automation; { TTrueCondition } function TTrueCondition.getCondition: IUIAutomationCondition; var condition : IUIAutomationCondition; begin uiAuto.createTrueCondition(condition); result := condition; end; end.