終了時に、マウスジェスチャーのイベントを無効にする処理追加
if (SearchDialog <> nil) then begin
if (SearchDialog.Visible) then begin
SearchDialog.Close;
if (SearchDialog <> nil) then begin
if (SearchDialog.Visible) then begin
SearchDialog.Close;
- try
- SearchDialog.Release;
- except
- end;
- SearchDialog := nil;
+ try
+ SearchDialog.Release;
+ except
+ end;
+ SearchDialog := nil;
end;
//\83X\83N\83\8a\81[\83\93\8fã\82Ì\91S\82Ä\82Ì\83t\83H\81[\83\80\82©\82ç\81AEditorForm\82ð\95Â\82¶\82é
end;
//\83X\83N\83\8a\81[\83\93\8fã\82Ì\91S\82Ä\82Ì\83t\83H\81[\83\80\82©\82ç\81AEditorForm\82ð\95Â\82¶\82é
begin
// \83}\83E\83X\83W\83F\83X\83`\83\83\81[\8aJ\95ú
try
begin
// \83}\83E\83X\83W\83F\83X\83`\83\83\81[\8aJ\95ú
try
+ if GikoSys.Setting.GestureEnabled then begin
+ MouseGesture.OnGestureStart := nil;
+ MouseGesture.OnGestureMove := nil;
+ MouseGesture.OnGestureEnd := nil;
+ end;
MouseGesture.Clear;
MouseGesture.UnHook;
// MouseGesture.Free; // Free \82·\82é\82Æ\82¢\82¯\82È\82¢\81H
MouseGesture.Clear;
MouseGesture.UnHook;
// MouseGesture.Free; // Free \82·\82é\82Æ\82¢\82¯\82È\82¢\81H