ジェスチャーを解除した際に、表示上解除されたように見えて実は解除されていなかったバグを修正。

diff --git a/KeySetting.pas b/KeySetting.pas
index 0e636ae..212c8b3 100644 (file)
--- a/KeySetting.pas
+++ b/KeySetting.pas
@@ -296,7 +296,12 @@ begin
        if ActiveListView.Selected = nil then Exit;
        if (GetKeyState( VK_SHIFT ) and $80000000) <> 0 then begin
                GestureEdit.Text := '';
-               ActiveListView.Selected.SubItems[2] := '';
+               Item := ActiveListView.Selected;
+               Item.SubItems[2] := '';
+               if TObject(Item.Data) is TKeySettingItem then begin
+                       KeyItem := TKeySettingItem(Item.Data);
+                       KeyItem.Gesture := '';
+               end;
                Exit;
        end;