paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-05 19:18:35 +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; exit;
end; end;
{$DEFINE VerboseKeyboard}
// get untranslated key (key without modifiers) // get untranslated key (key without modifiers)
OSError(KLGetCurrentKeyboardLayout(KeyboardLayout), SName, 'KLGetCurrentKeyboardLayout'); OSError(KLGetCurrentKeyboardLayout(KeyboardLayout), SName, 'KLGetCurrentKeyboardLayout');
//OSError(KLGetKeyboardLayoutProperty(KeyboardLayout, kKLuchrData, Layout), SName, 'KLGetKeyboardLayoutProperty'); OSError(KLGetKeyboardLayoutProperty(KeyboardLayout, kKLuchrData, Layout), SName, 'KLGetKeyboardLayoutProperty');
OSError(KLGetKeyboardLayoutProperty(KeyboardLayout, kKLKCHRData, Layout), SName, 'KLGetKeyboardLayoutProperty'); {$IFDEF VerboseKeyboard}
{$IFDEF VerboseKeyboard} DebugLn('[Keyboard layout] UCHR layout = ', DbgS(Layout));
DebugLn('[Keyboard layout] KCHR layout = ', DbgS(Layout)); {$ENDIF}
{$ENDIF}
TextLen:=0; TextLen:=0;
DeadKeys:=0; DeadKeys:=0;