Home Explore Help
Sign In
pascal
/
bgracontrols
mirror of https://github.com/bgrabitmap/bgracontrols
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

Improved x86_64 code in bckeyboard.pas

lainz 9 years ago
parent
4927aa7830
commit
b4b9a95315
1 changed files with 4 additions and 0 deletions
Unified View Show Diff Stats
  1. 4 0
      bckeyboard.pas

+ 4 - 0
bckeyboard.pas
View File 

@@ -178,7 +178,11 @@ begin
 
       str := ' ';
 
       str := ' ';
 
     {$IFDEF CPUX86_64}
 
     {$IFDEF CPUX86_64}
 
     Application.ProcessMessages;
 
     Application.ProcessMessages;
 
+    if F_shift.Down then
 
+      KeyInput.Down(VK_SHIFT);
 
     KeyInput.Press(Ord(UpperCase(str)[1]));
 
     KeyInput.Press(Ord(UpperCase(str)[1]));
 
+    if F_shift.Down then
 
+      KeyInput.Up(VK_SHIFT);
 
     Application.ProcessMessages;
 
     Application.ProcessMessages;
 
     {$ELSE}
 
     {$ELSE}
 
     if F_shift.Down then
 
     if F_shift.Down then