paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 12:09:21 +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;
end; end;
function KeyAndShiftStateToKeyString(Key: word; ShiftState: TShiftState function KeyAndShiftStateToKeyString(Key: word; ShiftState: TShiftState): String;
): String;
var var
p: integer; p: integer;
@ -6503,7 +6502,8 @@ var
// //
procedure AddKey; procedure AddKey;
begin begin
if p>0 then AddStr(' '); if p > 0 then
AddStr('+');
case Key of case Key of
VK_UNKNOWN :AddStr(srVK_UNKNOWN); VK_UNKNOWN :AddStr(srVK_UNKNOWN);