paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 04:55:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Simplify LCLType a little. Issue #30996, patch from AlexeyT.

Browse Source 
git-svn-id: trunk@53434 -
This commit is contained in:
juha 2016-11-24 10:03:26 +00:00
parent 74651f857e
commit e3d76eb840
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/lcltype.pp
View File

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