paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-02 07:32:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL Carbon: finally fixed #0011974: Selected keys not working - accidentally committed debugging version

Browse Source 
git-svn-id: trunk@16296 -
This commit is contained in:
tombo 2008-08-29 12:26:18 +00:00
parent 9c33a42cce
commit df3f54066e
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/carbon/carbonprivatewindow.inc
View File

@ -475,14 +475,12 @@ const
exit;
end;
{$DEFINE VerboseKeyboard}
// get untranslated key (key without modifiers)
OSError(KLGetCurrentKeyboardLayout(KeyboardLayout), SName, 'KLGetCurrentKeyboardLayout');
//OSError(KLGetKeyboardLayoutProperty(KeyboardLayout, kKLuchrData, Layout), SName, 'KLGetKeyboardLayoutProperty');
OSError(KLGetKeyboardLayoutProperty(KeyboardLayout, kKLKCHRData, Layout), SName, 'KLGetKeyboardLayoutProperty');
{$IFDEF VerboseKeyboard}
DebugLn('[Keyboard layout] KCHR layout = ', DbgS(Layout));
{$ENDIF}
OSError(KLGetKeyboardLayoutProperty(KeyboardLayout, kKLuchrData, Layout), SName, 'KLGetKeyboardLayoutProperty');
{$IFDEF VerboseKeyboard}
DebugLn('[Keyboard layout] UCHR layout = ', DbgS(Layout));
{$ENDIF}
TextLen:=0;
DeadKeys:=0;