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

MG: added GDK_dead_circumflex key

Browse Source 
git-svn-id: trunk@497 -
This commit is contained in:
lazarus 2001-12-10 11:13:15 +00:00
parent 6bba7c8333
commit 97adf096be
2 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/synedit/synedit.pp
View File

@ -1575,15 +1575,15 @@ var
C: char;
Cmd: TSynEditorCommand;
begin
//writeln('[TCustomSynEdit.KeyDown] ',Key
// ,' Shift=',ssShift in Shift,' Ctrl=',ssCtrl in Shift,' Alt=',ssAlt in Shift);
writeln('[TCustomSynEdit.KeyDown] ',Key
,' Shift=',ssShift in Shift,' Ctrl=',ssCtrl in Shift,' Alt=',ssAlt in Shift);
inherited;
Data := nil;
C := #0;
try
Cmd := TranslateKeyCode(Key, Shift, Data);
if Cmd <> ecNone then begin
//writeln('[TCustomSynEdit.KeyDown] key translated ',cmd);
writeln('[TCustomSynEdit.KeyDown] key translated ',cmd);
Key := 0; // eat it.
Include(fStateFlags, sfIgnoreNextChar);
CommandProcessor(Cmd, C, Data);

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

@ -209,9 +209,10 @@ begin
Extended := False;
Toggle := False;
writeln('[GetGTKKeyInfo] Event^.KeyVal=',Event^.KeyVal);
case Event^.KeyVal of
// Normal ASCII chars
32..255 :
32..255:
begin
{ Assign key code}
KeyCode := Event^.KeyVal;
@ -232,6 +233,11 @@ begin
then Dec(KeyCode, Ord('@'));
end;
GDK_dead_circumflex:
begin
KeyCode := Ord('^');
end;
GDK_KP_Space:
begin
KeyCode := VK_SPACE;
@ -890,6 +896,9 @@ end;
{ =============================================================================
$Log$
Revision 1.27 2001/12/10 11:13:15 lazarus
MG: added GDK_dead_circumflex key
Revision 1.26 2001/11/16 20:08:41 lazarus
Object inspector has hints now.
Shane