Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/KeySetting.pas

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

revision 1.7 by h677, Thu Mar 17 13:15:04 2005 UTC revision 1.7.2.1 by h677, Sun Jun 12 13:55:58 2005 UTC
# Line 314  begin Line 314  begin
314                  Item := ActiveListView.Items[i];                  Item := ActiveListView.Items[i];
315                  if TObject(Item.Data) is TKeySettingItem then begin                  if TObject(Item.Data) is TKeySettingItem then begin
316                          KeyItem := TKeySettingItem(Item.Data);                          KeyItem := TKeySettingItem(Item.Data);
317                          if (GestureEdit.Text <> '')                          if (GestureEdit.Text <> GUESTURE_NOTHING)
318                          and (KeyItem.Gesture = GestureEdit.Text) then begin                          and (KeyItem.Gesture = GestureEdit.Text) then begin
319                                  MsgBox(Handle, ERR_MSG, ERR_TITLE, MB_OK or MB_ICONSTOP);                                  MsgBox(Handle, ERR_MSG, ERR_TITLE, MB_OK or MB_ICONSTOP);
320                                  HotKey.SetFocus;                                  HotKey.SetFocus;

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.7.2.1

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