ShiftStateToKeyData method

Applies to
TGUITestCase

Declaration
Function ShiftStateToKeyData(ShiftState :TShiftState): Longint;

Implementation

function TGUITestCase.ShiftStateToKeyData(ShiftState :TShiftState):Longint;
const
  AltMask = $20000000;
begin
  Result := 0;
  if ssShift in ShiftState then
    Result := Result or VK_SHIFT;
  if ssCtrl in ShiftState then
    Result := Result or VK_CONTROL;
  if ssAlt in ShiftState then
    Result := Result or AltMask;
End;


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