Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.620 by h677, Sun Aug 27 10:19:01 2006 UTC revision 1.621 by h677, Mon Sep 11 15:57:14 2006 UTC
# Line 7374  begin Line 7374  begin
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

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26