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; |
|