Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

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

revision 1.655 by h677, Tue Oct 30 15:17:22 2007 UTC revision 1.656 by h677, Sun Feb 3 15:00:26 2008 UTC
# Line 1538  begin Line 1538  begin
1538          if (SearchDialog <> nil) then begin          if (SearchDialog <> nil) then begin
1539                  if (SearchDialog.Visible) then begin                  if (SearchDialog.Visible) then begin
1540                          SearchDialog.Close;                          SearchDialog.Close;
                         try  
                                 SearchDialog.Release;  
                         except  
                         end;  
                         SearchDialog := nil;  
1541                  end;                  end;
1542            try
1543                SearchDialog.Release;
1544            except
1545            end;
1546            SearchDialog := nil;
1547          end;          end;
1548    
1549          //スクリーン上の全てのフォームから、EditorFormを閉じる          //スクリーン上の全てのフォームから、EditorFormを閉じる
# Line 1561  var Line 1561  var
1561  begin  begin
1562          // マウスジェスチャー開放          // マウスジェスチャー開放
1563          try          try
1564            if GikoSys.Setting.GestureEnabled then begin
1565                    MouseGesture.OnGestureStart := nil;
1566                        MouseGesture.OnGestureMove := nil;
1567                        MouseGesture.OnGestureEnd := nil;
1568            end;
1569          MouseGesture.Clear;          MouseGesture.Clear;
1570                  MouseGesture.UnHook;                  MouseGesture.UnHook;
1571      //    MouseGesture.Free;    // Free するといけない?      //    MouseGesture.Free;    // Free するといけない?

Legend:
Removed from v.1.655  
changed lines
  Added in v.1.656

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