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.545 by h677, Wed Nov 23 07:48:13 2005 UTC revision 1.546 by h677, Wed Nov 23 07:56:45 2005 UTC
# Line 7801  begin Line 7801  begin
7801                          //キー入力すべて                          //キー入力すべて
7802                          WM_KEYFIRST..WM_KEYLAST :                          WM_KEYFIRST..WM_KEYLAST :
7803                          begin                          begin
7804                                  wmMsg.Msg := Msg.message;                                  //キーアップは無視する KeyDownと合わせて2回呼ばれるから
7805                                  wmMsg.CharCode := Word(Msg.wParam);                                  if Msg.message <> WM_KEYUP then begin
7806                                  wmMsg.KeyData := Msg.lParam;                                          wmMsg.Msg := Msg.message;
7807                                  //フォームのショートカットの処理に転送                                          wmMsg.CharCode := Word(Msg.wParam);
7808                                  Self.OnShortCut(wmMsg, Handled);                                          wmMsg.KeyData := Msg.lParam;
7809                                            //フォームのショートカットの処理に転送
7810                                            Self.OnShortCut(wmMsg, Handled);
7811                                    end;
7812                          end;                          end;
7813                  end;                  end;
7814          end;          end;

Legend:
Removed from v.1.545  
changed lines
  Added in v.1.546

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