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.233 by q9_, Sat Apr 3 09:12:27 2004 UTC revision 1.234 by h677, Sun Apr 4 14:15:33 2004 UTC
# Line 1413  begin Line 1413  begin
1413      KeepDefaultToolButton(StdToolBar, TmpToolBar);      KeepDefaultToolButton(StdToolBar, TmpToolBar);
1414      KeepDefaultToolButton(ListToolBar, TmpToolBar);      KeepDefaultToolButton(ListToolBar, TmpToolBar);
1415      KeepDefaultToolButton(BrowserToolBar, TmpToolBar);      KeepDefaultToolButton(BrowserToolBar, TmpToolBar);
1416    
1417      MakeDefaultINIFile();      MakeDefaultINIFile();
1418          //ツールボタン読み込み          //ツールボタン読み込み
1419          ReadToolBarSetting(ActionList, StdToolBar);          ReadToolBarSetting(ActionList, StdToolBar);
# Line 1431  begin Line 1432  begin
1432                                  // スレッド絞込ボタンを隠す                                  // スレッド絞込ボタンを隠す
1433                                  ListToolBar.Controls[ i ].Visible := False;                                  ListToolBar.Controls[ i ].Visible := False;
1434                                  // スレッド絞込フィールドを挿入                                  // スレッド絞込フィールドを挿入
1435                    SelectComboBox.Parent := ListToolBar;
1436                                  SelectComboBox.Left := ListToolBar.Controls[ i ].Left;                                  SelectComboBox.Left := ListToolBar.Controls[ i ].Left;
1437                                  SelectComboBox.Width := GikoSys.Setting.SelectComboBoxWidth;                                  SelectComboBox.Width := GikoSys.Setting.SelectComboBoxWidth;
                                 SelectComboBox.Parent := ListToolBar;  
1438                                  // スレッド絞込用独自セパレータを挿入                                  // スレッド絞込用独自セパレータを挿入
1439                    SelectComboBoxSplitter.Parent := ListToolBar;
1440                                  SelectComboBoxSplitter.Left := SelectComboBox.Left + SelectComboBox.Width;                                  SelectComboBoxSplitter.Left := SelectComboBox.Left + SelectComboBox.Width;
                                 SelectComboBoxSplitter.Parent := ListToolBar;  
1441    
1442                                  break;                                  break;
1443                          end;                          end;
# Line 1666  begin Line 1667  begin
1667                  end;                  end;
1668  //      Application.OnDeactivate := nil;  //      Application.OnDeactivate := nil;
1669  //      Self.OnDeactivate := nil;  //      Self.OnDeactivate := nil;
1670        try
1671          //column幅                  //column幅
1672          if GetActiveList is TBBS then begin                  if GetActiveList is TBBS then begin
1673                  for i := 0 to ListView.Columns.Count - 1 do                          for i := 0 to ListView.Columns.Count - 1 do
1674                          GikoSys.Setting.BBSColumnWidth[i] := ListView.Column[i].Width;                                  GikoSys.Setting.BBSColumnWidth[i] := ListView.Column[i].Width;
1675          end else if GetActiveList is TCategory then begin                  end else if GetActiveList is TCategory then begin
1676                  for i := 0 to ListView.Columns.Count - 1 do                          for i := 0 to ListView.Columns.Count - 1 do
1677                          GikoSys.Setting.CategoryColumnWidth[i] := ListView.Column[i].Width;                                  GikoSys.Setting.CategoryColumnWidth[i] := ListView.Column[i].Width;
1678          end else if GetActiveList is TBoard then begin                  end else if GetActiveList is TBoard then begin
1679                  for i := 0 to ListView.Columns.Count - 1 do                          for i := 0 to ListView.Columns.Count - 1 do
1680                          GikoSys.Setting.BoardColumnWidth[i] := ListView.Column[i].Width;                                  GikoSys.Setting.BoardColumnWidth[i] := ListView.Column[i].Width;
1681                    end;
1682        except
1683        end;
1684        try
1685                    //最大化・ウィンドウ位置保存
1686                    wp.length := sizeof(wp);
1687                    GetWindowPlacement(Handle, @wp);
1688                    GikoSys.Setting.WindowTop := wp.rcNormalPosition.Top;
1689                    GikoSys.Setting.WindowLeft := wp.rcNormalPosition.Left;
1690                    GikoSys.Setting.WindowHeight := wp.rcNormalPosition.Bottom - wp.rcNormalPosition.Top;
1691                    GikoSys.Setting.WindowWidth := wp.rcNormalPosition.Right - wp.rcNormalPosition.Left;
1692                    GikoSys.Setting.WindowMax := WindowState = wsMaximized;
1693    
1694                    GikoSys.Setting.ListStyle := ListView.ViewStyle;
1695                    GikoSys.Setting.CabinetVisible := CabinetVisibleAction.Checked;
1696                    GikoSys.Setting.CabinetWidth := CabinetPanel.Width;
1697                    GikoSys.Setting.ListHeight := FBrowserSizeHeight;
1698                    GikoSys.Setting.ListWidth := FBrowserSizeWidth;
1699                    if ArrangeAction.Checked then
1700                            GikoSys.Setting.ListOrientation := gloVertical
1701                    else
1702                            GikoSys.Setting.ListOrientation := gloHorizontal;
1703                    GikoSys.Setting.MessegeBarHeight := MessagePanel.Height;
1704        except
1705          end;          end;
1706    
         //最大化・ウィンドウ位置保存  
         wp.length := sizeof(wp);  
         GetWindowPlacement(Handle, @wp);  
         GikoSys.Setting.WindowTop := wp.rcNormalPosition.Top;  
         GikoSys.Setting.WindowLeft := wp.rcNormalPosition.Left;  
         GikoSys.Setting.WindowHeight := wp.rcNormalPosition.Bottom - wp.rcNormalPosition.Top;  
         GikoSys.Setting.WindowWidth := wp.rcNormalPosition.Right - wp.rcNormalPosition.Left;  
         GikoSys.Setting.WindowMax := WindowState = wsMaximized;  
   
         GikoSys.Setting.ListStyle := ListView.ViewStyle;  
         GikoSys.Setting.CabinetVisible := CabinetVisibleAction.Checked;  
         GikoSys.Setting.CabinetWidth := CabinetPanel.Width;  
         GikoSys.Setting.ListHeight := FBrowserSizeHeight;  
         GikoSys.Setting.ListWidth := FBrowserSizeWidth;  
         if ArrangeAction.Checked then  
                 GikoSys.Setting.ListOrientation := gloVertical  
         else  
                 GikoSys.Setting.ListOrientation := gloHorizontal;  
         GikoSys.Setting.MessegeBarHeight := MessagePanel.Height;  
   
1707    // リアルタイムに保存されるので、また、ウィンドウサイズが CoolBar より    // リアルタイムに保存されるので、また、ウィンドウサイズが CoolBar より
1708          // 小さくなっているときに保存すると値が上書きされてしまうのでここでは保存しない          // 小さくなっているときに保存すると値が上書きされてしまうのでここでは保存しない
1709      {      {
1710          // CoolBar 保存          // CoolBar 保存
1711          SaveCoolBarSettings;          SaveCoolBarSettings;
1712      }      }
1713        try
1714          GikoSys.Setting.WriteWindowSettingFile;                  GikoSys.Setting.WriteWindowSettingFile;
1715          GikoSys.Setting.WriteNameMailSettingFile;                  GikoSys.Setting.WriteNameMailSettingFile;
1716        except
1717            end;
1718    
1719          //お気に入り保存          //お気に入り保存
1720          try          try
1721            //FavoriteDMは自動生成フォームなので、解放は自動的にされる
1722                  FavoriteDM.WriteFavorite;                  FavoriteDM.WriteFavorite;
1723          FavoriteDM.Clear;          FavoriteDM.Clear;
                 try  
                 //      if FavoriteDM <> nil then  
                 //              FavoriteDM.Free;  
                 //      FavoriteDM := nil;  
                 except  
                 end;  
1724          except          except
1725          end;          end;
 //      Favorite.Free;  
1726    
1727          try          try
1728                  //タブクローズ                  //タブクローズ
1729                  NotSelectTabCloseAction.Execute;                  //NotSelectTabCloseAction.Execute;
1730                  if BrowserTab.Tabs.Count >= 1 then begin                  {if BrowserTab.Tabs.Count >= 1 then begin
1731                          DeleteTab(TThreadItem(BrowserTab.Tabs.Objects[0]));                          DeleteTab(TThreadItem(BrowserTab.Tabs.Objects[0]));
1732                  end;                  end;
1733            }
1734          except          except
1735          end;          end;
1736    
# Line 1740  begin Line 1742  begin
1742                  TreeView.Items.Clear;                  TreeView.Items.Clear;
1743          TreeView.Items.EndUpdate;          TreeView.Items.EndUpdate;
1744          except          except
   
1745          end;          end;
1746    
   
   
   
1747          //アドレス履歴保存          //アドレス履歴保存
1748          try          try
1749            //AddressHistoryDMは自動生成フォームなので、解放は自動的にされる。
1750                  AddressHistoryDM.WriteHistory(AddressComboBox.Items, GikoSys.Setting.AddressHistoryCount);                  AddressHistoryDM.WriteHistory(AddressComboBox.Items, GikoSys.Setting.AddressHistoryCount);
                 //if AddressHistoryDM <> nil then  
                 //      AddressHistoryDM.Free;  
                 //AddressHistoryDM := nil;  
         except  
         end;  
   
   
   
 //      FDownload.Free;  
         try  
                 //SetActiveList(nil);  
1751          except          except
1752          end;          end;
     try  
         //ClearLinkBar;  
     except  
     end;  
1753    
         //TreeViewクリア(BBS2ch.Freeの後にクリアするとXPスタイル時にエラー出る)  
         //Sleep(10);  
     //Application.ProcessMessages;  
 {   FavoriteDMの中でも解放してるからここではやらなくてよかった。  
     try  
         FavoriteTreeView.Items.BeginUpdate;  
         for i := FavoriteTreeView.Items.Count - 1 downto 0 do begin  
                 TObject(FavoriteTreeView.Items.Item[i].Data).Free;  
                 FavoriteTreeView.Items.Item[i].Free;  
         end;  
         FavoriteTreeView.Items.EndUpdate;  
         FavoriteTreeView.Items.Clear;  
     except  
     end;  
 }  
1754          //ヒストリリスト保存          //ヒストリリスト保存
1755          try          try
1756                  SaveHistory;                  SaveHistory;
             ClearHistory;  
   
1757          except          except
1758          end;          end;
1759            try
1760            ClearHistory;
1761        except
1762        end;
1763    
1764          //巡回リスト保存&破棄          //巡回リスト保存&破棄
1765          try          try
1766                  RoundList.SaveRoundFile;                  RoundList.SaveRoundFile;
1767          except          except
1768          end;          end;
1769        try
1770                    try
1771                            RoundList.Clear;
1772                    except
1773                    end;
1774        finally
1775            RoundList.Free;
1776        end;
1777    
1778          try      try
1779                    try
1780                  RoundList.Clear;                          FControlThread.Terminate;
1781          except                  FControlThread.WaitFor;
1782          end;                  except
         try  
                 RoundList.Free;  
         except  
         end;  
   
         try  
                 {for i := CabinetSelectPopupMenu.Items.Count - 1 downto 0 do begin  
                         if CabinetSelectPopupMenu.Items[ i ] is TBBSMenuItem then begin  
                                 TBBSMenuItem(CabinetSelectPopupMenu.Items[ i ]).Free;  
                                 CabinetMenu.Items[ i ].Free;  
                         end;  
1783                  end;                  end;
1784          }      finally
1785          except              FControlThread.Free;
1786          end;      end;
         try  
                 FControlThread.Terminate;  
         FControlThread.WaitFor;  
         FControlThread.Free;  
         except  
         end;  
1787    
1788          // TBBS は保持している TCategory, TBoard, TThreadItem すべてを開放する          // TBBS は保持している TCategory, TBoard, TThreadItem すべてを開放する
1789          // TBoard, TThreadItem のデストラクタはプラグインに破棄を伝えるので          // TBoard, TThreadItem のデストラクタはプラグインに破棄を伝えるので
# Line 1845  begin Line 1806  begin
1806          except          except
1807          end;          end;
1808    
   
1809          try          try
1810            if FEvent <> nil then
1811                    FEvent.Free;
1812    
1813                  //Hint破棄                  //Hint破棄
1814                  if FHint <> nil then begin                  if FHint <> nil then begin
1815                          FHint.ReleaseHandle;                          FHint.ReleaseHandle;
# Line 1902  begin Line 1865  begin
1865          NotSelectTabCloseAction.Execute;          NotSelectTabCloseAction.Execute;
1866          if BrowserTab.Tabs.Count >= 1 then          if BrowserTab.Tabs.Count >= 1 then
1867                  DeleteTab(TThreadItem(BrowserTab.Tabs.Objects[0]));                  DeleteTab(TThreadItem(BrowserTab.Tabs.Objects[0]));
         //ヒストリリスト  
         //FHistoryList.Clear;  
1868          //TreeViewクリア(BBS2ch.Freeの後にクリアするとXPスタイル時にエラー出る)          //TreeViewクリア(BBS2ch.Freeの後にクリアするとXPスタイル時にエラー出る)
1869          TreeView.Items.Clear;          TreeView.Items.Clear;
1870    
# Line 1952  begin Line 1913  begin
1913    
1914          // 履歴読み込み          // 履歴読み込み
1915          SaveHistory;          SaveHistory;
     {  
         try  
                 for i := FHistoryList.Count - 1 downto 0 do begin  
                         TFavoriteThreadItem( FHistoryList[ i ] ).Free;  
                 FHistoryList.Delete(i);  
         end;  
   
         except  
         end;  
         FHistoryList.Clear;  
     FHistoryList.Capacity := FHistoryList.Count;  
     }  
1916      ClearHistory;      ClearHistory;
1917          LoadHistory;          LoadHistory;
1918    
1919          //お気に入り読み込み          //お気に入り読み込み
 //      FFavorite := TFavorite.Create(FavoriteTreeView);  
         //FavoriteTreeView.Items.Clear;  
     //FavoriteDM.DataModuleDestroy(Self);  
1920      FavoriteDM.Clear;      FavoriteDM.Clear;
         //FavoriteDM.SetFavTreeView(FavoriteTreeView);  
1921          FavoriteDM.ReadFavorite;          FavoriteDM.ReadFavorite;
1922          SetLinkBar;          SetLinkBar;
1923    
# Line 2237  begin Line 2182  begin
2182                  if not TBoard(Node.Data).IsThreadDatRead then begin                  if not TBoard(Node.Data).IsThreadDatRead then begin
2183                          Screen.Cursor := crHourGlass;                          Screen.Cursor := crHourGlass;
2184                          try                          try
2185                                  GikoSys.ReadSubjectFile(Node.Data);                  if not TBoard(Node.Data).IsThreadDatRead then
2186                                            GikoSys.ReadSubjectFile(Node.Data);
2187                          finally                          finally
2188                                  Screen.Cursor := crDefault;                                  Screen.Cursor := crDefault;
2189                          end;                          end;
# Line 3925  begin Line 3871  begin
3871                          if not TBoard( Item ).IsThreadDatRead then begin                          if not TBoard( Item ).IsThreadDatRead then begin
3872                                  Screen.Cursor := crHourGlass;                                  Screen.Cursor := crHourGlass;
3873                                  try                                  try
3874                                          GikoSys.ReadSubjectFile(TBoard( Item ));                      if not TBoard( Item ).IsThreadDatRead then
3875                                                    GikoSys.ReadSubjectFile(TBoard( Item ));
3876                                  finally                                  finally
3877                                          Screen.Cursor := crDefault;                                          Screen.Cursor := crDefault;
3878                                  end;                                  end;

Legend:
Removed from v.1.233  
changed lines
  Added in v.1.234

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