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.268 by yoffy, Fri Apr 9 11:46:01 2004 UTC revision 1.269 by yoffy, Sat Apr 10 12:03:43 2004 UTC
# Line 5568  begin Line 5568  begin
5568    
5569  //      if NewTab = -1 then  //      if NewTab = -1 then
5570          if not BrowserTab.Dragging then begin          if not BrowserTab.Dragging then begin
5571          FTabHintIndex := -1;                  FTabHintIndex := -1;
5572          BrowserTab.Hint := '';                  BrowserTab.Hint := '';
5573          idx := BrowserTab.TabIndex;                  idx := BrowserTab.TabIndex;
5574          if idx = -1 then                  if idx = -1 then begin
5575                  SetContent(BrowserNullTab)                          SetContent(BrowserNullTab);
5576          else if BrowserTab.Tabs.Objects[idx] is TThreadItem then begin                  end else if BrowserTab.Tabs.Objects[idx] is TThreadItem then begin
5577                  ThreadItem := TThreadItem(BrowserTab.Tabs.Objects[idx]);                          ThreadItem := TThreadItem(BrowserTab.Tabs.Objects[idx]);
5578                  SetContent(ThreadItem);                          SetContent(ThreadItem);
5579                  if GikoSys.Setting.URLDisplay then                          if GikoSys.Setting.URLDisplay then
5580                          AddressComboBox.Text := ThreadItem.URL;                                  AddressComboBox.Text := ThreadItem.URL;
5581                  end;                  end;
5582    
5583                    if ThreadItem = nil then Exit;
5584                  if ThreadItem.IsLogFile then begin                  if ThreadItem.IsLogFile then begin
5585                          if GikoSys.Setting.ListOrientation = gloHorizontal then begin                          if GikoSys.Setting.ListOrientation = gloHorizontal then begin
5586                                  if GikoSys.Setting.ListWidthState = glsMin then begin                                  if GikoSys.Setting.ListWidthState = glsMin then begin

Legend:
Removed from v.1.268  
changed lines
  Added in v.1.269

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