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

ideintf: return more correct key string by KeyAndShiftStateToKeyString

Browse Source 
git-svn-id: trunk@19815 -
This commit is contained in:
paul 2009-05-06 05:54:37 +00:00
parent 3e5a744e2d
commit 61a7fb8388
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ideintf/propedits.pp
View File

@ -6463,8 +6463,7 @@ begin
end;
end;
function KeyAndShiftStateToKeyString(Key: word; ShiftState: TShiftState
): String;
function KeyAndShiftStateToKeyString(Key: word; ShiftState: TShiftState): String;
var
p: integer;
@ -6503,7 +6502,8 @@ var
//
procedure AddKey;
begin
if p>0 then AddStr(' ');
if p > 0 then
AddStr('+');
case Key of
VK_UNKNOWN :AddStr(srVK_UNKNOWN);