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.683 by h677, Sat Dec 13 03:58:29 2008 UTC revision 1.684 by h677, Wed Dec 31 03:46:27 2008 UTC
# Line 1560  begin Line 1560  begin
1560    
1561          Application.UnhookMainWindow(Hook);          Application.UnhookMainWindow(Hook);
1562      //アプリケーション終了の前にダウンロードスレッドに正常終了を促す      //アプリケーション終了の前にダウンロードスレッドに正常終了を促す
1563        FControlThread.DownloadAbort;
1564      FControlThread.Terminate;      FControlThread.Terminate;
1565    
1566      //OnDestoryだと再起動をかけたときなどに保存されないのでOnCloseQueryで設定保存      //OnDestoryだと再起動をかけたときなどに保存されないのでOnCloseQueryで設定保存
# Line 1610  begin Line 1611  begin
1611                          GikoSys.Setting.ResRange := FResRangeMenuSelect;                          GikoSys.Setting.ResRange := FResRangeMenuSelect;
1612          except          except
1613          end;          end;
1614        //今のwinodwのスタイルでCoolBarの位置、ウィンドウの位置を保存
1615      //一時的に通常スタイルに戻してCoolBarの位置、ウィンドウの位置を保存      SaveCoolBarSettings;
1616          //※注意:OnDestroy、OnCloseQueryで使うことしか考慮されていない      GikoSys.Setting.WriteWindowSettingFile;
1617          if WindowState <> wsNormal then begin      // 名前とメールの保存なのでエディタが閉じた後ならいつでもいい
1618                  WindowState := wsNormal;      GikoSys.Setting.WriteNameMailSettingFile;
     end;  
   
     try  
         SaveCoolBarSettings;  
     except  
     end;  
   
         try  
                 GikoSys.Setting.WriteWindowSettingFile;  
                 GikoSys.Setting.WriteNameMailSettingFile;  
         except  
         end;  
1619    
1620          //入力アシスト機構の設定の保存          //入力アシスト機構の設定の保存
1621          InputAssistDM.SaveToFile(GikoSys.GetInputAssistFileName);          InputAssistDM.SaveToFile(GikoSys.GetInputAssistFileName);
# Line 1659  begin Line 1648  begin
1648                  RoundList.SaveRoundFile;                  RoundList.SaveRoundFile;
1649          except          except
1650          end;          end;
1651    
1652        // タスクトレイのアイコン削除
1653        if (FIconData.uID <> 0) then begin
1654            Shell_NotifyIcon(NIM_DELETE, @FIconData);
1655        end;
1656    
1657  end;  end;
1658    
1659  procedure TGikoForm.FormDestroy(Sender: TObject);  procedure TGikoForm.FormDestroy(Sender: TObject);
# Line 1666  var Line 1661  var
1661          i                               : Integer;          i                               : Integer;
1662          tmpBool : Boolean;          tmpBool : Boolean;
1663  begin  begin
1664      // タスクトレイのアイコン削除      //一時的に通常スタイルに戻してCoolBarの位置、ウィンドウの位置を保存
1665      if (FIconData.uID <> 0) then begin      //※注意:OnDestroyで使うことしか考慮されていない
1666          Shell_NotifyIcon(NIM_DELETE, @FIconData);      //        他でやると再描画が発生する
1667            if WindowState <> wsNormal then begin
1668                    WindowState := wsNormal;
1669            try
1670                    SaveCoolBarSettings;
1671                        GikoSys.Setting.WriteWindowSettingFile;
1672            except
1673                end;
1674      end;      end;
1675    
1676          // マウスジェスチャー開放          // マウスジェスチャー開放
# Line 1753  begin Line 1755  begin
1755    
1756          try          try
1757          try          try
1758              FControlThread.DownloadAbort;              //FControlThread.DownloadAbort;
1759              FControlThread.Terminate;              FControlThread.Terminate;
1760              FControlThread.WaitFor;              FControlThread.WaitFor;
1761          except          except

Legend:
Removed from v.1.683  
changed lines
  Added in v.1.684

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