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.290 by h677, Sat Apr 24 13:27:25 2004 UTC revision 1.291 by h677, Sat Apr 24 14:25:29 2004 UTC
# Line 5295  var Line 5295  var
5295  begin  begin
5296          idx := BrowserTab.TabIndex;          idx := BrowserTab.TabIndex;
5297          if idx <> -1 then begin          if idx <> -1 then begin
5298                  ThreadItem := TThreadItem(BrowserTab.Tabs.Objects[idx]);                  if BrowserTab.Tabs.Objects[idx] <> nil then begin
5299                  DeleteTab(ThreadItem);                          ThreadItem := TThreadItem(BrowserTab.Tabs.Objects[idx]);
5300                            DeleteTab(ThreadItem);
5301                    end;
5302          end;          end;
5303  end;  end;
5304    
# Line 5604  var Line 5606  var
5606  begin  begin
5607    
5608  //      if NewTab = -1 then  //      if NewTab = -1 then
5609            ThreadItem := nil;
5610          if not BrowserTab.Dragging then begin          if not BrowserTab.Dragging then begin
5611                  FTabHintIndex := -1;                  FTabHintIndex := -1;
5612                  BrowserTab.Hint := '';                  BrowserTab.Hint := '';
5613                  idx := BrowserTab.TabIndex;                  idx := BrowserTab.TabIndex;
5614                  if idx = -1 then begin                  if idx = -1 then begin
5615                          SetContent(BrowserNullTab);                          SetContent(BrowserNullTab);
5616                  end else if BrowserTab.Tabs.Objects[idx] is TThreadItem then begin                  end else if(BrowserTab.Tabs.Objects[idx] <> nil) and (BrowserTab.Tabs.Objects[idx] is TThreadItem) then begin
5617                          ThreadItem := TThreadItem(BrowserTab.Tabs.Objects[idx]);                          ThreadItem := TThreadItem(BrowserTab.Tabs.Objects[idx]);
5618                          SetContent(ThreadItem);                          SetContent(ThreadItem);
5619                          if GikoSys.Setting.URLDisplay then                          if GikoSys.Setting.URLDisplay then
# Line 5648  begin Line 5651  begin
5651          idx := BrowserTab.TabIndex;          idx := BrowserTab.TabIndex;
5652          if idx = -1 then          if idx = -1 then
5653                  SetContent(BrowserNullTab)                  SetContent(BrowserNullTab)
5654          else if BrowserTab.Tabs.Objects[idx] is TThreadItem then begin          else if(BrowserTab.Tabs.Objects[idx] <> nil) and (BrowserTab.Tabs.Objects[idx] is TThreadItem) then begin
5655                  ThreadItem := TThreadItem(BrowserTab.Tabs.Objects[idx]);                  ThreadItem := TThreadItem(BrowserTab.Tabs.Objects[idx]);
5656                  SetContent(ThreadItem);                  SetContent(ThreadItem);
5657                  if GikoSys.Setting.URLDisplay then                  if GikoSys.Setting.URLDisplay then
# Line 6194  var Line 6197  var
6197  begin  begin
6198          idx := BrowserTab.TabIndex;          idx := BrowserTab.TabIndex;
6199          if idx <> -1 then begin          if idx <> -1 then begin
6200                  if GikoSys.Setting.DeleteMsg then                  if BrowserTab.Tabs.Objects[idx] <> nil then begin
6201                          if MsgBox(Handle, DEL_MSG, DEL_TITLE, MB_YESNO or MB_ICONQUESTION or MB_DEFBUTTON2) <> IDYES then                          if GikoSys.Setting.DeleteMsg then
6202                                    if MsgBox(Handle, DEL_MSG, DEL_TITLE, MB_YESNO or MB_ICONQUESTION or MB_DEFBUTTON2) <> IDYES then
6203                                  Exit;                                  Exit;
6204                  ThreadItem := TThreadItem(BrowserTab.Tabs.Objects[idx]);                          ThreadItem := TThreadItem(BrowserTab.Tabs.Objects[idx]);
6205                  DeleteTab(ThreadItem);                          DeleteTab(ThreadItem);
6206                  ThreadItem.DeleteLogFile;                          ThreadItem.DeleteLogFile;
6207                  if ThreadItem.ParentBoard = FActiveList then                          if ThreadItem.ParentBoard = FActiveList then
6208                          ListView.Refresh;                                  ListView.Refresh;
6209                    end;
6210          end;          end;
6211  end;  end;
6212    

Legend:
Removed from v.1.290  
changed lines
  Added in v.1.291

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