Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/KeySetting.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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 |
|
|
|