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

reduced speedbutton invalidates, added TCanvas.Frame

Browse Source 
git-svn-id: trunk@2217 -
This commit is contained in:
mattias 2002-08-17 23:41:08 +00:00
parent 16d0352830
commit a0dcebd355
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -702,7 +702,7 @@ begin
{ Assign key code} { Assign key code}
KeyCode := Event^.KeyVal; KeyCode := Event^.KeyVal;
//TODO: create VK_ code --> [*] and [8] have a different KeyCode but same VK_ code //TODO: create VK_ code --> [*] and [8] have a different KeyCode but same VK_ code on US keyboard
case Chr(KeyCode) of case Chr(KeyCode) of
'@': VirtualKey:=VK_AT; '@': VirtualKey:=VK_AT;
'A'..'Z', 'A'..'Z',
@ -3958,6 +3958,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.158 2003/01/27 13:49:16 mattias
reduced speedbutton invalidates, added TCanvas.Frame
Revision 1.157 2003/01/24 11:58:01 mattias Revision 1.157 2003/01/24 11:58:01 mattias
fixed clipboard waiting and kwrite targets fixed clipboard waiting and kwrite targets