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.311 by h677, Sun May 23 12:02:44 2004 UTC revision 1.312 by h677, Sun May 23 15:37:07 2004 UTC
# Line 1725  end; Line 1725  end;
1725    
1726  procedure TGikoForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);  procedure TGikoForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
1727  begin  begin
1728            SaveCoolBarSettings;
1729          if ( GikoSys.Setting.ShowDialogForEnd ) and          if ( GikoSys.Setting.ShowDialogForEnd ) and
1730                          (MessageDlg('ギコナビを終了してよろしいですか?', mtConfirmation,[mbOk, mbCancel], 0) = mrCancel ) then begin                          (MessageDlg('ギコナビを終了してよろしいですか?', mtConfirmation,[mbOk, mbCancel], 0) = mrCancel ) then begin
1731                  CanClose := false;                  CanClose := false;
# Line 3214  begin Line 3215  begin
3215          if ThreadItem.IsLogFile then begin          if ThreadItem.IsLogFile then begin
3216                  //お気に入りの全て開くとかやると、今開いてるスレのbrowserを付け替える恐れがある                  //お気に入りの全て開くとかやると、今開いてるスレのbrowserを付け替える恐れがある
3217                  //常に4番目にActiveのブラウザが来ないように移動させる                  //常に4番目にActiveのブラウザが来ないように移動させる
3218                  if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil) then begin                  if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil) and
3219                            (FActiveContent.FBrowser <> BrowserNullTab.Browser)then begin
3220                          j := FBrowsers.IndexOf(FActiveContent.FBrowser);                          j := FBrowsers.IndexOf(FActiveContent.FBrowser);
3221                          if j = 4 then                          if j = 4 then
3222                                  FBrowsers.Move(4, 0);                                  FBrowsers.Move(4, 0);
# Line 3349  begin Line 3351  begin
3351          if inThread = nil then          if inThread = nil then
3352                  Exit                  Exit
3353          else if inThread.Browser = nil then begin          else if inThread.Browser = nil then begin
3354                    if FActiveContent.Browser = TWebBrowser(FBrowsers[4]) then
3355                            FBrowsers.Move(4, 0);
3356                  for i := BrowserTab.Tabs.Count - 1 downto 0 do begin                  for i := BrowserTab.Tabs.Count - 1 downto 0 do begin
3357                          if TBrowserRecord(BrowserTab.Tabs.Objects[i]).FBrowser = TWebBrowser(FBrowsers[4]) then begin                          if TBrowserRecord(BrowserTab.Tabs.Objects[i]).FBrowser = TWebBrowser(FBrowsers[4]) then begin
3358                                  TBrowserRecord(BrowserTab.Tabs.Objects[i]).FBrowser := nil;                                  TBrowserRecord(BrowserTab.Tabs.Objects[i]).FBrowser := nil;
# Line 3390  begin Line 3394  begin
3394    
3395          Screen.Cursor := crHourGlass;          Screen.Cursor := crHourGlass;
3396          try          try
3397                  if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil) then                  //if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil) then
3398                          TOleControl(FActiveContent.FBrowser).BringToFront;                  //      TOleControl(FActiveContent.FBrowser).BringToFront;
3399                  if inThread.FThread.UnRead then begin                  if inThread.FThread.UnRead then begin
3400                          inThread.FThread.ParentBoard.UnRead := inThread.FThread.ParentBoard.UnRead - 1;                          inThread.FThread.ParentBoard.UnRead := inThread.FThread.ParentBoard.UnRead - 1;
3401                          if inThread.FThread.ParentBoard.UnRead < 0 then inThread.FThread.ParentBoard.UnRead := 0;                          if inThread.FThread.ParentBoard.UnRead < 0 then inThread.FThread.ParentBoard.UnRead := 0;
# Line 3400  begin Line 3404  begin
3404                  LockWindowUpdate(Self.Handle);                  LockWindowUpdate(Self.Handle);
3405                  if not TOleControl(inThread.FBrowser).Visible then                  if not TOleControl(inThread.FBrowser).Visible then
3406                          TOleControl(inThread.FBrowser).Visible := true;         //ここで表示しておかないと描画で止まる                          TOleControl(inThread.FBrowser).Visible := true;         //ここで表示しておかないと描画で止まる
                 TOleControl(inThread.FBrowser).BringToFront;  
3407                  LockWindowUpdate(0);                  LockWindowUpdate(0);
3408                    if (not Assigned(inThread.Browser.Document)) then begin
3409                            inThread.Browser.Navigate('about:blank');
3410                    end;
3411                  if not inThread.FThread.IsLogFile then begin                  if not inThread.FThread.IsLogFile then begin
                         if (not Assigned(inThread.Browser.Document)) then begin  
                                 inThread.Browser.Navigate('about:blank');  
                                 //while (not Assigned(Thread.Browser.Document)) do begin  
                                 //      Application.ProcessMessages;  
                                 //end;  
                         end;  
3412                          try                          try
3413                                  s := '<HTML><BODY><CENTER>このスレッドは取得していません</CENTER></BODY></HTML>';                                  s := '<HTML><BODY><CENTER>このスレッドは取得していません</CENTER></BODY></HTML>';
3414                                  doc := Idispatch( olevariant(inThread.Browser.ControlInterface).Document) as IHTMLDocument2;                                  doc := Idispatch( olevariant(BrowserNullTab.Browser.ControlInterface).Document) as IHTMLDocument2;
3415                                  doc.open;                                  doc.open;
3416                                  doc.charset := 'Shift_JIS';                                  doc.charset := 'Shift_JIS';
3417                                  doc.Write(s);                                  doc.Write(s);
# Line 3427  begin Line 3427  begin
3427                                  try                                  try
3428                                          doc := Idispatch( olevariant(inThread.Browser.ControlInterface).Document) as IHTMLDocument2;                                          doc := Idispatch( olevariant(inThread.Browser.ControlInterface).Document) as IHTMLDocument2;
3429                                          GikoSys.CreateHTML2(doc, inThread.FThread, sTitle);                                          GikoSys.CreateHTML2(doc, inThread.FThread, sTitle);
3430                                            //なぜかここで明示的にDocumentCompleteを呼ばないとうまくいかない
3431                      inThread.FBrowser.OnDocumentComplete(inThread.FBrowser, inThread.FBrowser.Parent, url);                      inThread.FBrowser.OnDocumentComplete(inThread.FBrowser, inThread.FBrowser.Parent, url);
3432                                          inThread.OnlyHundred := GikoSys.OnlyAHundredRes;                                          inThread.OnlyHundred := GikoSys.OnlyAHundredRes;
3433                                          Application.ProcessMessages;                                          Application.ProcessMessages;
# Line 5343  begin Line 5344  begin
5344                          end else begin                          end else begin
5345                                  BrowserTab.TabIndex := idx;                                  BrowserTab.TabIndex := idx;
5346                          end;                          end;
                         if idx > (BrowserTab.Tabs.Count - 1) then  
                                 BrowserTab.TabIndex := BrowserTab.Tabs.Count - 1  
                         else  
                                 BrowserTab.TabIndex := idx - 1;  
                         if BrowserTab.Tabs.Count = 0 then begin  
                                 BrowserNullTab.Thread := nil;  
                         end;  
5347                          if(BrowserTab.TabIndex <> -1) and                          if(BrowserTab.TabIndex <> -1) and
5348                                  ( TBrowserRecord(BrowserTab.Tabs.Objects[BrowserTab.TabIndex]).Browser = nil) then begin                                  ( TBrowserRecord(BrowserTab.Tabs.Objects[BrowserTab.TabIndex]).Browser = nil) then begin
5349                                  for j := BrowserTab.Tabs.Count - 1 downto 0 do begin                                  for j := BrowserTab.Tabs.Count - 1 downto 0 do begin
# Line 5945  begin Line 5939  begin
5939                                  if j <> -1 then                                  if j <> -1 then
5940                                          FBrowsers.Move(j ,0);                                          FBrowsers.Move(j ,0);
5941                          end else begin                          end else begin
5942                                    if( FActiveContent <> nil ) and (FActiveContent.Browser <> nil) and
5943                                            (FActiveContent.Browser <> BrowserNullTab.Browser) and
5944                                            (FActiveContent.Browser = TWebBrowser(FBrowsers[4])) then
5945                                            FBrowsers.Move(4, 0);
5946    
5947                                  for i := 0 to BrowserTab.Tabs.Count - 1 do begin                                  for i := 0 to BrowserTab.Tabs.Count - 1 do begin
5948                                          if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser = TWebBrowser(FBrowsers[4]) then begin                                          if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser = TWebBrowser(FBrowsers[4]) then begin
5949                                                  TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser := nil;                                                  TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser := nil;
# Line 5955  begin Line 5954  begin
5954                                          end;                                          end;
5955                                  end;                                  end;
5956                                  TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser := TWebBrowser(FBrowsers[4]);                                  TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser := TWebBrowser(FBrowsers[4]);
5957                  TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Repaint := true;                                  TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Repaint := true;
5958                                  FBrowsers.Move(4, 0);                                  FBrowsers.Move(4, 0);
5959                          end;                          end;
5960                          ThreadItem := TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Thread;                          ThreadItem := TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Thread;
5961              TOleControl(TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser).BringToFront;                          TOleControl(TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser).BringToFront;
5962                          GikoSys.OnlyAHundredRes := TBrowserRecord(BrowserTab.Tabs.Objects[idx]).OnlyHundred;                          GikoSys.OnlyAHundredRes := TBrowserRecord(BrowserTab.Tabs.Objects[idx]).OnlyHundred;
5963                          OnlyAHundredRes.Checked := TBrowserRecord(BrowserTab.Tabs.Objects[idx]).OnlyHundred;                          OnlyAHundredRes.Checked := TBrowserRecord(BrowserTab.Tabs.Objects[idx]).OnlyHundred;
5964                          SetContent(TBrowserRecord(BrowserTab.Tabs.Objects[idx]));                          SetContent(TBrowserRecord(BrowserTab.Tabs.Objects[idx]));
# Line 6124  begin Line 6123  begin
6123                  BrowserTab.EndDrag(false);                  BrowserTab.EndDrag(false);
6124                  FDragWFirst := false;                  FDragWFirst := false;
6125          end;          end;
6126            
6127          if (FTabHintIndex <> TabIdx) and (TabIdx <> -1) then begin          if (FTabHintIndex <> TabIdx) and (TabIdx <> -1) then begin
6128                  Application.CancelHint;                  Application.CancelHint;
6129                  ThreadItem := TBrowserRecord(BrowserTab.Tabs.Objects[TabIdx]).Thread;                  ThreadItem := TBrowserRecord(BrowserTab.Tabs.Objects[TabIdx]).Thread;
# Line 8862  begin Line 8861  begin
8861                  Node := FavoriteDM.TreeView.Items.AddChildObject(FavNode, ThreadItem.Title, FavoThreadItem);                  Node := FavoriteDM.TreeView.Items.AddChildObject(FavNode, ThreadItem.Title, FavoThreadItem);
8862                  Node.ImageIndex := 16;                  Node.ImageIndex := 16;
8863                  Node.SelectedIndex := 16;                  Node.SelectedIndex := 16;
8864            end else if Source is TBrowserRecord then begin
8865                    ThreadItem := TBrowserRecord( Source ).FThread;
8866                    FavoThreadItem                          := TFavoriteThreadItem.CreateWithItem( ThreadItem );
8867                    Node := FavoriteDM.TreeView.Items.AddChildObject(FavNode, ThreadItem.Title, FavoThreadItem);
8868                    Node.ImageIndex := 16;
8869                    Node.SelectedIndex := 16;
8870          end else if Source is TFavoriteThreadItem then begin          end else if Source is TFavoriteThreadItem then begin
8871                  FavoThreadItem := TFavoriteThreadItem( Source );                  FavoThreadItem := TFavoriteThreadItem( Source );
8872                  ThreadItem := FavoThreadItem.Item;                  ThreadItem := FavoThreadItem.Item;
# Line 8906  begin Line 8911  begin
8911    
8912                  idx := BrowserTab.TabIndex;                  idx := BrowserTab.TabIndex;
8913                  FavoriteAddTo( SenderNode, BrowserTab.Tabs.Objects[idx] );                  FavoriteAddTo( SenderNode, BrowserTab.Tabs.Objects[idx] );
   
8914          end else if Source = ListView then begin          end else if Source = ListView then begin
8915    
8916                  FavoriteAddTo( SenderNode, ListView.Selected.Data );                  FavoriteAddTo( SenderNode, ListView.Selected.Data );

Legend:
Removed from v.1.311  
changed lines
  Added in v.1.312

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