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.308 by h677, Sun May 23 08:17:45 2004 UTC revision 1.309 by h677, Sun May 23 08:21:36 2004 UTC
# Line 3212  begin Line 3212  begin
3212          if Threaditem = nil then Exit;          if Threaditem = nil then Exit;
3213    
3214          if ThreadItem.IsLogFile then begin          if ThreadItem.IsLogFile then begin
3215                    //お気に入りの全て開くとかやると、今開いてるスレのbrowserを付け替える恐れがある
3216                    //常に4番目にActiveのブラウザが来ないように移動させる
3217                    if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil) then begin
3218                            j := FBrowsers.IndexOf(FActiveContent.FBrowser);
3219                            if j = 4 then
3220                                    FBrowsers.Move(4, 0);
3221                    end;
3222                  favItem := TFavoriteThreadItem.Create(ThreadItem.URL, ThreadItem.Title );                  favItem := TFavoriteThreadItem.Create(ThreadItem.URL, ThreadItem.Title );
3223                  if not AddHistory( favItem ) then                  if not AddHistory( favItem ) then
3224                          favItem.Free;                          favItem.Free;
# Line 3245  begin Line 3252  begin
3252                  end;                  end;
3253                  idx := BrowserTab.TabIndex;                  idx := BrowserTab.TabIndex;
3254                  BrowserTab.Tabs.BeginUpdate;                  BrowserTab.Tabs.BeginUpdate;
                 //お気に入りの全て開くとかやると、今開いてるスレのbrowserを付け替える恐れがある  
                 //常に4番目にActiveのブラウザが来ないように移動させる  
                 if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil) then begin  
                         j := FBrowsers.IndexOf(FActiveContent.FBrowser);  
                         if j = 4 then  
                                 FBrowsers.Move(4, 0);  
                 end;  
3255                  if GikoSys.Setting.BrowserTabAppend = gtaFirst then begin                  if GikoSys.Setting.BrowserTabAppend = gtaFirst then begin
3256                          newBrowser := TBrowserRecord.Create;                          newBrowser := TBrowserRecord.Create;
3257                          for j := BrowserTab.Tabs.Count - 1 downto 0 do begin                          for j := BrowserTab.Tabs.Count - 1 downto 0 do begin

Legend:
Removed from v.1.308  
changed lines
  Added in v.1.309

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