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

MG: added GDK_dead_circumflex key

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

4
components/synedit/synedit.pp
View File

@ -1575,7 +1575,7 @@ 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;
@ -1583,7 +1583,7 @@ writeln('[TCustomSynEdit.KeyDown] ',Key
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);

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

@ -209,7 +209,7 @@ begin
Extended := False; Extended := False;
Toggle := False; Toggle := False;
writeln('[GetGTKKeyInfo] Event^.KeyVal=',Event^.KeyVal); //writeln('[GetGTKKeyInfo] Event^.KeyVal=',Event^.KeyVal);
case Event^.KeyVal of case Event^.KeyVal of
// Normal ASCII chars // Normal ASCII chars
32..255: 32..255:
@ -896,7 +896,7 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.27 2001/12/10 11:13:15 lazarus Revision 1.28 2001/12/10 11:16:00 lazarus
MG: added GDK_dead_circumflex key 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