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.544 by h677, Wed Nov 23 06:17:55 2005 UTC revision 1.545 by h677, Wed Nov 23 07:48:13 2005 UTC
# Line 4978  end; Line 4978  end;
4978    
4979  procedure TGikoForm.FormShortCut(var Msg: TWMKey; var Handled: Boolean);  procedure TGikoForm.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
4980  var  var
4981          hComboEdit: THandle;          handle: THandle;
         i : Integer;  
 //      KeyData: Integer;  
4982  begin  begin
4983          Handled := False;          Handled := False;
4984          //アドレスもしくは絞り込みコンボボックスもしくはお気に入りが編集中は          //アドレスもしくは絞り込みコンボボックスもしくはお気に入りが編集中は
4985          //ショートカットなどを無効にする          //ショートカットなどを無効にする
4986          if ((FavoriteTreeView.Visible) and (FavoriteTreeView.IsEditing)) then begin          if ((FavoriteTreeView.Visible) and (FavoriteTreeView.IsEditing)) then begin
4987                  if Msg.CharCode in [VK_BACK] then begin                  if Msg.CharCode in [VK_BACK] then begin
4988                          hComboEdit := GetFocus;                          //BSが2回送られる不具合回避
4989                          if hComboEdit <> 0 then                          if Msg.KeyData > 0 then begin
4990                                  SendMessage(hComboEdit, WM_CHAR, Msg.CharCode, Msg.KeyData);                                  handle := GetFocus;
4991                          Handled := True;                                  if handle <> 0 then
4992                                            SendMessage(handle, WM_CHAR, Msg.CharCode, Msg.KeyData);
4993                                    Handled := True;
4994                            end;
4995                    end else
4996                  //お気に入りはESCで脱出したいので、それも送る                  //お気に入りはESCで脱出したいので、それも送る
4997                  end else if Msg.CharCode in [VK_INSERT, VK_DELETE, VK_HOME, VK_END, VK_PRIOR, VK_NEXT, VK_ESCAPE] then begin                  if Msg.CharCode in [VK_INSERT, VK_DELETE, VK_HOME, VK_END, VK_PRIOR, VK_NEXT, VK_ESCAPE] then begin
4998                          hComboEdit := GetFocus;                          handle := GetFocus;
4999                          if hComboEdit <> 0 then                          if handle <> 0 then
5000                                  SendMessage(hComboEdit, WM_KEYDOWN, Msg.CharCode, Msg.KeyData);                                  SendMessage(handle, WM_KEYDOWN, Msg.CharCode, Msg.KeyData);
5001                          Handled := True;                          Handled := True;
5002                  end;                  end;
5003          end     else if (AddressComboBox.Focused) or (SelectComboBox.Focused) then begin          end     else if (AddressComboBox.Focused) or (SelectComboBox.Focused) then begin
5004                  if Msg.CharCode in [VK_BACK] then begin                  if Msg.CharCode in [VK_BACK] then begin
5005                          hComboEdit := GetFocus;                          //BSが2回送られる不具合回避
5006                          if hComboEdit <> 0 then                          if Msg.KeyData > 0 then begin
5007                                  SendMessage(hComboEdit, WM_CHAR, Msg.CharCode, Msg.KeyData);                                  handle := GetFocus;
5008                          Handled := True;                                  if handle <> 0 then
5009                                            SendMessage(handle, WM_CHAR, Msg.CharCode, Msg.KeyData);
5010                                    Handled := True;
5011                            end;
5012                  end else if Msg.CharCode in [VK_INSERT, VK_DELETE, VK_HOME, VK_END, VK_PRIOR, VK_NEXT] then begin                  end else if Msg.CharCode in [VK_INSERT, VK_DELETE, VK_HOME, VK_END, VK_PRIOR, VK_NEXT] then begin
5013                          hComboEdit := GetFocus;                          handle := GetFocus;
5014                          if hComboEdit <> 0 then                          if handle <> 0 then
5015                                  SendMessage(hComboEdit, WM_KEYDOWN, Msg.CharCode, Msg.KeyData);                                  SendMessage(handle, WM_KEYDOWN, Msg.CharCode, Msg.KeyData);
5016                          Handled := True;                          Handled := True;
5017                  end;                  end;
5018          end else begin          end else begin

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

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