paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-19 05:39:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed synedit navigation on OSX

Browse Source 
git-svn-id: trunk@7194 -
This commit is contained in:
marc 2005-05-21 19:27:41 +00:00
parent cd46768efa
commit c75840a847
1 changed files with 30 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
lcl/interfaces/gtk/gtkproc.inc
View File

@ -2804,6 +2804,22 @@ procedure InitKeyboardTables;
end;
end;
end;
function IgnoreShifted(const AUnshiftKeySym: TKeySym): Boolean;
begin
case AUnshiftKeySym of
GDK_KEY_END,
GDK_KEY_HOME,
GDK_KEY_LEFT,
GDK_KEY_RIGHT,
GDK_KEY_UP,
GDK_KEY_DOWN,
GDK_KEY_PAGE_UP,
GDK_KEY_PAGE_DOWN: Result := True;
else
Result := False;
end;
end;
procedure NextFreeVK(var AFreeVK: Byte);
begin
@ -2887,7 +2903,15 @@ begin
for m := 0 to 3 do
begin
ByteKey:=Byte(n);
KeySym[m] := XKeyCodeToKeysym(Display, ByteKey, m);
// don't allow a keysym for shifted navigation keys
// somehow the default keymap on OSX combines U/ D= L+ R*
// As a simple hack I think we can ignore keysyms for shifted
// navigation keys
if ((m and 1) = 1) and IgnoreShifted(KeySym[m - 1])
then KeySym[m] := 0
else KeySym[m] := XKeyCodeToKeysym(Display, ByteKey, m);
if (VKey = $FF) and (KeySym[m] <> 0)
then begin
HasKey := True;
@ -2903,7 +2927,7 @@ begin
VKey := FreeVK;
NextFreeVK(FreeVK);
end;
// The keypadkeys have 2 VK_keycodes :(
// In that case we have to FIndKeyInfo for every keysym
DoMultiVK := HasMultiVK;
@ -2984,6 +3008,7 @@ begin
if VKey <> $FF
then MVKeyInfo[VKey].KeyCode := Byte(n);
end;
WriteLN;
end;
{$ENDIF}
@ -8179,6 +8204,9 @@ end;
{ =============================================================================
$Log$
Revision 1.357 2005/05/21 19:27:41 marc
* fixed synedit navigation on OSX
Revision 1.356 2005/05/05 19:47:15 micha
fix gtk2 compilation (from drewski)