paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 09:29:10 +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; C: char;
Cmd: TSynEditorCommand; Cmd: TSynEditorCommand;
begin begin
//writeln('[TCustomSynEdit.KeyDown] ',Key writeln('[TCustomSynEdit.KeyDown] ',Key
// ,' Shift=',ssShift in Shift,' Ctrl=',ssCtrl in Shift,' Alt=',ssAlt in Shift); ,' Shift=',ssShift in Shift,' Ctrl=',ssCtrl in Shift,' Alt=',ssAlt in Shift);
inherited; inherited;
Data := nil; Data := nil;
C := #0; C := #0;
try try
Cmd := TranslateKeyCode(Key, Shift, Data); Cmd := TranslateKeyCode(Key, Shift, Data);
if Cmd <> ecNone then begin if Cmd <> ecNone then begin
//writeln('[TCustomSynEdit.KeyDown] key translated ',cmd); writeln('[TCustomSynEdit.KeyDown] key translated ',cmd);
Key := 0; // eat it. Key := 0; // eat it.
Include(fStateFlags, sfIgnoreNextChar); Include(fStateFlags, sfIgnoreNextChar);
CommandProcessor(Cmd, C, Data); CommandProcessor(Cmd, C, Data);

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

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