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.578 by h677, Tue Dec 27 17:08:58 2005 UTC revision 1.579 by h677, Sat Dec 31 16:10:51 2005 UTC
# Line 3927  var Line 3927  var
3927          i, j: Integer;          i, j: Integer;
3928          idx: Integer;          idx: Integer;
3929  begin  begin
3930            BrowserTab.Tabs.BeginUpdate;
3931          if not BrowserTab.Dragging then begin          try
3932                  FTabHintIndex := -1;                  if not BrowserTab.Dragging then begin
3933                  BrowserTab.Hint := '';                          FTabHintIndex := -1;
3934                  idx := BrowserTab.TabIndex;                          BrowserTab.Hint := '';
3935                  if idx = -1 then begin                          idx := BrowserTab.TabIndex;
3936                          SetContent(BrowserNullTab);                          if idx = -1 then begin
3937                                    SetContent(BrowserNullTab);
3938                  end else if(BrowserTab.Tabs.Objects[idx] <> nil) and (BrowserTab.Tabs.Objects[idx] is TBrowserRecord) then begin  
3939                          if TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser <> nil then begin                          end else if(BrowserTab.Tabs.Objects[idx] <> nil) and (BrowserTab.Tabs.Objects[idx] is TBrowserRecord) then begin
3940                                  j := FBrowsers.IndexOf(TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser);                                  if TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser <> nil then begin
3941                                  if j <> -1 then                                          j := FBrowsers.IndexOf(TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser);
3942                                          FBrowsers.Move(j ,0);                                          if j <> -1 then
3943                          end else begin                                                  FBrowsers.Move(j ,0);
3944                                  if( FActiveContent <> nil ) and (FActiveContent.Browser <> nil) and                                  end else begin
3945                                          (FActiveContent.Browser <> BrowserNullTab.Browser) and                                          if( FActiveContent <> nil ) and (FActiveContent.Browser <> nil) and
3946                                          (FActiveContent.Browser = TWebBrowser(FBrowsers[BROWSER_COUNT - 1])) then                                                  (FActiveContent.Browser <> BrowserNullTab.Browser) and
3947                                          FBrowsers.Move(BROWSER_COUNT - 1, 0);                                                  (FActiveContent.Browser = TWebBrowser(FBrowsers[BROWSER_COUNT - 1])) then
3948                                                    FBrowsers.Move(BROWSER_COUNT - 1, 0);
3949                                  for i := 0 to BrowserTab.Tabs.Count - 1 do begin  
3950                                          if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser = TWebBrowser(FBrowsers[BROWSER_COUNT - 1]) then begin                                          for i := 0 to BrowserTab.Tabs.Count - 1 do begin
3951                                                  ReleaseBrowser(TBrowserRecord(BrowserTab.Tabs.Objects[i]));                                                  if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser = TWebBrowser(FBrowsers[BROWSER_COUNT - 1]) then begin
3952                                                  break;                                                          ReleaseBrowser(TBrowserRecord(BrowserTab.Tabs.Objects[i]));
3953                                                            break;
3954                                                    end;
3955                                          end;                                          end;
3956                                            TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser := TWebBrowser(FBrowsers[BROWSER_COUNT - 1]);
3957                                            TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Repaint := true;
3958                                            FBrowsers.Move(BROWSER_COUNT - 1, 0);
3959                                  end;                                  end;
3960                                  TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser := TWebBrowser(FBrowsers[BROWSER_COUNT - 1]);                                  MoveWindow(TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser.Handle, 0, 0, BrowserPanel.Width, BrowserPanel.Height, false);
3961                                  TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Repaint := true;                                  TOleControl(TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser).BringToFront;
3962                                  FBrowsers.Move(BROWSER_COUNT - 1, 0);                                  SetContent(TBrowserRecord(BrowserTab.Tabs.Objects[idx]));
3963                          end;  
3964                          MoveWindow(TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser.Handle, 0, 0, BrowserPanel.Width, BrowserPanel.Height, false);                                  if (GikoSys.Setting.URLDisplay) and (GetActiveContent <> nil) then
3965                          TOleControl(TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser).BringToFront;                                          AddressComboBox.Text := GetActiveContent.URL;
3966                          SetContent(TBrowserRecord(BrowserTab.Tabs.Objects[idx]));  
3967                                    if ((TreeView.Visible) and (TreeView.Focused)) or ((FavoriteTreeView.Visible) and (FavoriteTreeView.Focused)) or
3968                          if (GikoSys.Setting.URLDisplay) and (GetActiveContent <> nil) then                                          (ListView.Focused) or (SelectComboBox.Focused) or (AddressComboBox.Focused)
3969                                  AddressComboBox.Text := GetActiveContent.URL;                                  then
3970                                    else
3971                          if ((TreeView.Visible) and (TreeView.Focused)) or ((FavoriteTreeView.Visible) and (FavoriteTreeView.Focused)) or                                          GikoDM.SetFocusForBrowserAction.Execute;
3972                                  (ListView.Focused) or (SelectComboBox.Focused) or (AddressComboBox.Focused)                          end;
                         then  
                         else  
                                 GikoDM.SetFocusForBrowserAction.Execute;  
   
3973                  end;                  end;
3974            finally
3975                    BrowserTab.Tabs.EndUpdate;
3976          end;          end;
   
3977  end;  end;
3978    
3979    
# Line 7633  begin Line 7634  begin
7634                          ViewType := gvtNew;                          ViewType := gvtNew;
7635                  end;                  end;
7636          end;          end;
7637            if GikoSys.Setting.BrowserTabPosition = gtpTop then begin
7638                    GikoDM.BrowserTabTopAction.Checked := True;
7639            end else begin
7640                    GikoDM.BrowserTabBottomAction.Checked := True;
7641            end;
7642    
7643            if GikoSys.Setting.BrowserTabStyle = gtsTab then begin
7644                    GikoDM.BrowserTabTabStyleAction.Checked := True;
7645            end else if GikoSys.Setting.BrowserTabStyle = gtsButton then begin
7646                    GikoDM.BrowserTabButtonStyleAction.Checked := True;
7647            end else begin
7648                    GikoDM.BrowserTabFlatStyleAction.Checked := True;
7649            end;
7650  end;  end;
7651  // *************************************************************************  // *************************************************************************
7652  //! ダウンロードコントロールスレッドの生成  //! ダウンロードコントロールスレッドの生成

Legend:
Removed from v.1.578  
changed lines
  Added in v.1.579

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