| 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 |
|
|
| 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 |
| 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 |
| 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 |
|
|