From b9adcfa3850586c9c74928ee8e477606bdaba235 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Wed, 25 Jan 2012 23:25:10 +0000
Subject: [PATCH] ShortCutToKey param as "out" instead of "var"

git-svn-id: trunk@34940 -
---
 lcl/menus.pp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lcl/menus.pp b/lcl/menus.pp
index 8734fca94f..ebf95be4cb 100644
--- a/lcl/menus.pp
+++ b/lcl/menus.pp
@@ -417,8 +417,8 @@ type
   end;
 
 function ShortCut(const Key: Word; const Shift : TShiftState) : TShortCut;
-procedure ShortCutToKey(const ShortCut : TShortCut; var Key: Word;
-                        var Shift : TShiftState);
+procedure ShortCutToKey(const ShortCut : TShortCut; out Key: Word;
+                        out Shift : TShiftState);
 
 var
   DesignerMenuItemClick: TNotifyEvent = nil;
@@ -566,8 +566,8 @@ begin
   Result := LCLType.KeyToShortCut(Key,Shift);
 end;
 
-procedure ShortCutToKey(const ShortCut: TShortCut; var Key: Word;
-  var Shift : TShiftState);
+procedure ShortCutToKey(const ShortCut: TShortCut; out Key: Word;
+  out Shift : TShiftState);
 begin
   Key := ShortCut and $FF;
   Shift := [];