Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 7374 |
WM_KEYFIRST..WM_KEYLAST : |
WM_KEYFIRST..WM_KEYLAST : |
| 7375 |
begin |
begin |
| 7376 |
//キーアップは無視する KeyDownと合わせて2回呼ばれるから |
//キーアップは無視する KeyDownと合わせて2回呼ばれるから |
| 7377 |
if (Msg.message <> WM_KEYUP) and (Msg.message <> WM_CHAR) then begin |
if (Msg.message <> WM_KEYUP) |
| 7378 |
|
and (Msg.message <> WM_CHAR) |
| 7379 |
|
and (Msg.message <> WM_SYSKEYUP) then begin |
| 7380 |
wmMsg.Msg := Msg.message; |
wmMsg.Msg := Msg.message; |
| 7381 |
wmMsg.CharCode := Word(Msg.wParam); |
wmMsg.CharCode := Word(Msg.wParam); |
| 7382 |
wmMsg.KeyData := Msg.lParam; |
wmMsg.KeyData := Msg.lParam; |
|
|
Legend:
| Removed from v.1.620 |
|
| changed lines |
| |
Added in v.1.621 |
|
|
|