Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/KeySetting.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 296 |
if ActiveListView.Selected = nil then Exit; |
if ActiveListView.Selected = nil then Exit; |
| 297 |
if (GetKeyState( VK_SHIFT ) and $80000000) <> 0 then begin |
if (GetKeyState( VK_SHIFT ) and $80000000) <> 0 then begin |
| 298 |
GestureEdit.Text := ''; |
GestureEdit.Text := ''; |
| 299 |
ActiveListView.Selected.SubItems[2] := ''; |
Item := ActiveListView.Selected; |
| 300 |
|
Item.SubItems[2] := ''; |
| 301 |
|
if TObject(Item.Data) is TKeySettingItem then begin |
| 302 |
|
KeyItem := TKeySettingItem(Item.Data); |
| 303 |
|
KeyItem.Gesture := ''; |
| 304 |
|
end; |
| 305 |
Exit; |
Exit; |
| 306 |
end; |
end; |
| 307 |
|
|
|
|
Legend:
| Removed from v.1.5 |
|
| changed lines |
| |
Added in v.1.6 |
|
|
|