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.288 by h677, Tue Apr 20 14:25:34 2004 UTC revision 1.289 by yoffy, Wed Apr 21 00:08:41 2004 UTC
# Line 992  type Line 992  type
992                  // ブラウザのキーダウンイベント                  // ブラウザのキーダウンイベント
993                  // イベントを取り扱った場合は True を返す                  // イベントを取り扱った場合は True を返す
994                  function BrowserKeydown(var Msg: TMsg; Key: Word; State:TShiftState) : Boolean;                  function BrowserKeydown(var Msg: TMsg; Key: Word; State:TShiftState) : Boolean;
995                    // 各所にあるキャビネット・ BBS メニューをセット/更新
996                    procedure SetBBSMenu;
997    
998          protected          protected
999                  procedure CreateParams(var Params: TCreateParams); override;                  procedure CreateParams(var Params: TCreateParams); override;
# Line 1165  var Line 1167  var
1167          i: Integer;          i: Integer;
1168          wp: TWindowPlacement;          wp: TWindowPlacement;
1169          s: string;          s: string;
         item : TBBSMenuItem;  
1170  begin  begin
1171  {$IFDEF DEBUG}  {$IFDEF DEBUG}
1172          AllocConsole;          AllocConsole;
# Line 1214  begin Line 1215  begin
1215                  GikoSys.ListBoardFile;                  GikoSys.ListBoardFile;
1216    
1217          // メニューに追加          // メニューに追加
1218          for i := Length( BBSs ) - 1 downto 0 do begin          SetBBSMenu;
                 try  
                         item                                    := TBBSMenuItem.Create( PopupMenu );  
                         item.Caption    := BBSs[ i ].Title;  
                         item.Data                       := BBSs[ i ];  
                         item.OnClick    := BBSMenuItemOnClick;  
                         CabinetSelectPopupMenu.Items.Insert( 0, item );  
                         item                                    := TBBSMenuItem.Create( PopupMenu );  
                         item.Caption    := BBSs[ i ].Title;  
                         item.Data                       := BBSs[ i ];  
                         item.OnClick    := BBSMenuItemOnClick;  
                         CabinetMenu.Insert( 0, item );  
                         item                                    := TBBSMenuItem.Create( PopupMenu );  
                         item.Caption    := BBSs[ i ].Title;  
                         item.Data                       := BBSs[ i ];  
                         item.OnClick    := BBSMenuItemOnClick;  
                         BBSSelectPopupMenu.Items.Insert( 0, Item );  
                 except  
                 end;  
         end;  
   
1219    
1220          // ヒストリリスト(LoadHistory よりも先に行うこと)          // ヒストリリスト(LoadHistory よりも先に行うこと)
1221          FHistoryList := TList.Create;          FHistoryList := TList.Create;
# Line 1899  begin Line 1880  begin
1880  //      CabinetPanelVisible(false);  //      CabinetPanelVisible(false);
1881  end;  end;
1882    
1883  procedure TGikoForm.ReloadBBS;  // 各所にあるキャビネット・ BBS メニューをセット/更新
1884    procedure TGikoForm.SetBBSMenu;
1885  var  var
1886          i                       : Integer;          i                       : Integer;
1887          item    : TBBSMenuItem;          item    : TBBSMenuItem;
1888  begin  begin
         //タブクローズ  
         NotSelectTabCloseAction.Execute;  
         if BrowserTab.Tabs.Count >= 1 then  
                 DeleteTab(TThreadItem(BrowserTab.Tabs.Objects[0]));  
         //TreeViewクリア(BBS2ch.Freeの後にクリアするとXPスタイル時にエラー出る)  
         TreeView.Items.Clear;  
   
         //BBS破棄  
         try  
                 for i := Length( BBSs ) - 1 downto 0 do begin  
                         if BBSs[ i ] <> nil then  
                                 BBSs[ i ].Free;  
                         BBSs[ i ] := nil;  
                 end;  
         except  
         end;  
1889    
         ActiveList := nil;  
   
         FTreeType := gttNone;  
   
         GikoSys.ListBoardFile;          //ボードファイル読込  
1890          // メニューを削除          // メニューを削除
1891          for i := CabinetSelectPopupMenu.Items.Count - 1 downto 0 do begin          for i := CabinetSelectPopupMenu.Items.Count - 1 downto 0 do begin
1892                  try                  try
1893                          if CabinetSelectPopupMenu.Items[ i ] is TBBSMenuItem then begin                          if CabinetSelectPopupMenu.Items[ i ] is TBBSMenuItem then begin
1894                                  CabinetSelectPopupMenu.Items[ i ].Free;                                  CabinetSelectPopupMenu.Items[ i ].Free;
1895                                  CabinetMenu.Items[ i ].Free;                                  CabinetMenu.Items[ i ].Free;
1896                                    BBSSelectPopupMenu.Items[ i ].Free;
1897                          end;                          end;
1898                  except                  except
1899                  end;                  end;
1900          end;          end;
1901          // メニューに追加  
1902            // メニューを設定
1903          for i := Length( BBSs ) - 1 downto 0 do begin          for i := Length( BBSs ) - 1 downto 0 do begin
1904                  try                  try
1905                          item                                    := TBBSMenuItem.Create( PopupMenu );                          item                                    := TBBSMenuItem.Create( PopupMenu );
# Line 1949  begin Line 1912  begin
1912                          item.Data                       := BBSs[ i ];                          item.Data                       := BBSs[ i ];
1913                          item.OnClick    := BBSMenuItemOnClick;                          item.OnClick    := BBSMenuItemOnClick;
1914                          CabinetMenu.Insert( 0, item );                          CabinetMenu.Insert( 0, item );
1915                            item                                    := TBBSMenuItem.Create( PopupMenu );
1916                            item.Caption    := BBSs[ i ].Title;
1917                            item.Data                       := BBSs[ i ];
1918                            item.OnClick    := BBSMenuItemOnClick;
1919                            BBSSelectPopupMenu.Items.Insert( 0, Item );
1920                  except                  except
1921                  end;                  end;
1922          end;          end;
1923    
1924    end;
1925    
1926    procedure TGikoForm.ReloadBBS;
1927    var
1928            i                       : Integer;
1929    begin
1930            //タブクローズ
1931            NotSelectTabCloseAction.Execute;
1932            if BrowserTab.Tabs.Count >= 1 then
1933                    DeleteTab(TThreadItem(BrowserTab.Tabs.Objects[0]));
1934            //TreeViewクリア(BBS2ch.Freeの後にクリアするとXPスタイル時にエラー出る)
1935            TreeView.Items.Clear;
1936    
1937            //BBS破棄
1938            try
1939                    for i := Length( BBSs ) - 1 downto 0 do begin
1940                            if BBSs[ i ] <> nil then
1941                                    BBSs[ i ].Free;
1942                            BBSs[ i ] := nil;
1943                    end;
1944            except
1945            end;
1946    
1947            ActiveList := nil;
1948    
1949            FTreeType := gttNone;
1950    
1951            GikoSys.ListBoardFile;          //ボードファイル読込
1952    
1953            // BBS メニューの更新
1954            SetBBSMenu;
1955    
1956          ShowBBSTree( BBSs[ 0 ] );          ShowBBSTree( BBSs[ 0 ] );
1957    
1958          // 履歴読み込み          // 履歴読み込み
# Line 9346  var Line 9347  var
9347          toolbar                         : TToolBar;          toolbar                         : TToolBar;
9348          band                                    : TCoolBand;          band                                    : TCoolBand;
9349          affectedBand    : TCoolBand;          affectedBand    : TCoolBand;
9350          i, j                                    : Integer;          i                                                       : Integer;
9351  begin  begin
9352          if (FOldFormWidth = Width) and not IsIconic( Handle ) and not FIsIgnoreResize then begin          if (FOldFormWidth = Width) and not IsIconic( Handle ) and not FIsIgnoreResize then begin
9353                  FIsIgnoreResize := True;                  FIsIgnoreResize := True;

Legend:
Removed from v.1.288  
changed lines
  Added in v.1.289

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