From e3d76eb840561502523b62bf454fd390c63d25c1 Mon Sep 17 00:00:00 2001 From: juha Date: Thu, 24 Nov 2016 10:03:26 +0000 Subject: [PATCH] LCL: Simplify LCLType a little. Issue #30996, patch from AlexeyT. git-svn-id: trunk@53434 - --- lcl/lcltype.pp | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/lcl/lcltype.pp b/lcl/lcltype.pp index 47cb144c09..f5a2e78ba3 100644 --- a/lcl/lcltype.pp +++ b/lcl/lcltype.pp @@ -3040,12 +3040,8 @@ end; function KeyToShortCut(const Key: Word; const Shift: TShiftState): TShortCut; begin + if (Key and $FF00) <> 0 then exit(0); Result := Key; - if (Result and $FF00) <> 0 then begin - Result:=0; - exit; - end; - if ssShift in Shift then Inc(Result,scShift); if ssCtrl in Shift then Inc(Result,scCtrl); if ssAlt in Shift then Inc(Result,scAlt);