paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 11:19:26 +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;
Cmd: TSynEditorCommand;
begin
writeln('[TCustomSynEdit.KeyDown] ',Key
//writeln('[TCustomSynEdit.KeyDown] ',Key
,' Shift=',ssShift in Shift,' Ctrl=',ssCtrl in Shift,' Alt=',ssAlt in Shift);
inherited;
Data := nil;
@ -1583,7 +1583,7 @@ writeln('[TCustomSynEdit.KeyDown] ',Key
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);

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

@ -209,7 +209,7 @@ begin
Extended := False;
Toggle := False;
writeln('[GetGTKKeyInfo] Event^.KeyVal=',Event^.KeyVal);
//writeln('[GetGTKKeyInfo] Event^.KeyVal=',Event^.KeyVal);
case Event^.KeyVal of
// Normal ASCII chars
32..255:
@ -896,7 +896,7 @@ end;
{ =============================================================================
$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
Revision 1.26 2001/11/16 20:08:41 lazarus