| 3859 |
|
|
| 3860 |
|
|
| 3861 |
try |
try |
| 3862 |
|
{ |
| 3863 |
if ThreadItem.UnRead then begin |
if ThreadItem.UnRead then begin |
| 3864 |
ThreadItem.ParentBoard.UnRead := ThreadItem.ParentBoard.UnRead - 1; |
ThreadItem.ParentBoard.UnRead := ThreadItem.ParentBoard.UnRead - 1; |
| 3865 |
if ThreadItem.ParentBoard.UnRead < 0 then ThreadItem.ParentBoard.UnRead := 0; |
if ThreadItem.ParentBoard.UnRead < 0 then ThreadItem.ParentBoard.UnRead := 0; |
| 3866 |
TreeView.Refresh; |
TreeView.Refresh; |
| 3867 |
end; |
end; |
| 3868 |
|
} |
| 3869 |
if(FActiveContent <> nil) and (FActiveContent <> Thread) then begin |
if(FActiveContent <> nil) and (FActiveContent <> Thread) then begin |
| 3870 |
if (FActiveContent.Browser <> BrowserNullTab.Browser) then |
if (FActiveContent.Browser <> BrowserNullTab.Browser) then |
| 3871 |
ShowWindow(FActiveContent.Browser.Handle, SW_HIDE); |
ShowWindow(FActiveContent.Browser.Handle, SW_HIDE); |
| 4008 |
procedure TGikoForm.SetListViewType(AViewType: TGikoViewType; SelectText: string; KubetsuChk: Boolean); |
procedure TGikoForm.SetListViewType(AViewType: TGikoViewType; SelectText: string; KubetsuChk: Boolean); |
| 4009 |
var |
var |
| 4010 |
Board: TBoard; |
Board: TBoard; |
| 4011 |
|
i: Integer; |
| 4012 |
begin |
begin |
| 4013 |
if ActiveList is TBoard then begin |
if ActiveList is TBoard then begin |
| 4014 |
|
for i := Length( BBSs ) - 1 downto 0 do begin |
| 4015 |
|
BBSs[i].SelectText := SelectText; |
| 4016 |
|
BBSs[i].KubetsuChk := KubetsuChk; |
| 4017 |
|
end; |
| 4018 |
Board := TBoard(ActiveList); |
Board := TBoard(ActiveList); |
| 4019 |
|
// Board.ParentCategory.ParenTBBS.SelectText := SelectText; |
| 4020 |
Board.ParentCategory.ParenTBBS.SelectText := SelectText; |
// Board.ParentCategory.ParenTBBS.KubetsuChk := KubetsuChk; |
|
Board.ParentCategory.ParenTBBS.KubetsuChk := KubetsuChk; |
|
| 4021 |
// Board.SelectText := SelectText; |
// Board.SelectText := SelectText; |
| 4022 |
// Board.KubetsuChk := KubetsuChk; |
// Board.KubetsuChk := KubetsuChk; |
| 4023 |
ViewType := AViewType; |
ViewType := AViewType; |
| 6695 |
threadItem := BrowserRecord.Thread; |
threadItem := BrowserRecord.Thread; |
| 6696 |
|
|
| 6697 |
if (BrowserRecord <> nil) and (Length( BrowserRecord.Movement ) > 0) then begin |
if (BrowserRecord <> nil) and (Length( BrowserRecord.Movement ) > 0) then begin |
| 6698 |
threadItem.UnRead := False; |
if threadItem.UnRead then begin |
| 6699 |
|
threadItem.UnRead := False; |
| 6700 |
|
threadItem.ParentBoard.UnRead := ThreadItem.ParentBoard.UnRead - 1; |
| 6701 |
|
if threadItem.ParentBoard.UnRead < 0 then threadItem.ParentBoard.UnRead := 0; |
| 6702 |
|
TreeView.Refresh; |
| 6703 |
|
ListView.Refresh; |
| 6704 |
|
end; |
| 6705 |
BrowserMovement( BrowserRecord.Movement, BrowserRecord ); |
BrowserMovement( BrowserRecord.Movement, BrowserRecord ); |
| 6706 |
BrowserRecord.Movement := ''; |
BrowserRecord.Movement := ''; |
| 6707 |
end else if threadItem.UnRead then begin |
end else if threadItem.UnRead then begin |
| 6708 |
threadItem.UnRead := False; |
threadItem.UnRead := False; |
| 6709 |
|
threadItem.ParentBoard.UnRead := ThreadItem.ParentBoard.UnRead - 1; |
| 6710 |
|
if threadItem.ParentBoard.UnRead < 0 then threadItem.ParentBoard.UnRead := 0; |
| 6711 |
|
TreeView.Refresh; |
| 6712 |
BrowserMovement( 'new', BrowserRecord ); |
BrowserMovement( 'new', BrowserRecord ); |
| 6713 |
ListView.Refresh; |
ListView.Refresh; |
| 6714 |
end else if threadItem.ScrollTop <> 0 then begin |
end else if threadItem.ScrollTop <> 0 then begin |
| 11164 |
SelectListItem(List); |
SelectListItem(List); |
| 11165 |
for i := 0 to List.Count - 1 do begin |
for i := 0 to List.Count - 1 do begin |
| 11166 |
if TObject(List[i]) is TThreadItem then begin |
if TObject(List[i]) is TThreadItem then begin |
| 11167 |
TThreadItem(List[i]).UnRead := false; |
if (TThreadItem(List[i]).UnRead) then begin |
| 11168 |
TThreadItem(List[i]).ParentBoard.UnRead := TThreadItem(List[i]).ParentBoard.UnRead - 1; |
TThreadItem(List[i]).UnRead := false; |
| 11169 |
|
TThreadItem(List[i]).ParentBoard.UnRead := TThreadItem(List[i]).ParentBoard.UnRead - 1; |
| 11170 |
|
end; |
| 11171 |
end; |
end; |
| 11172 |
end; |
end; |
| 11173 |
if TreeView.Visible then |
if TreeView.Visible then |
| 11187 |
SelectListItem(List); |
SelectListItem(List); |
| 11188 |
for i := 0 to List.Count - 1 do begin |
for i := 0 to List.Count - 1 do begin |
| 11189 |
if TObject(List[i]) is TThreadItem then begin |
if TObject(List[i]) is TThreadItem then begin |
| 11190 |
TThreadItem(List[i]).UnRead := true; |
if (TThreadItem(List[i]).IsLogFile) and (not TThreadItem(List[i]).UnRead) then begin |
| 11191 |
TThreadItem(List[i]).ParentBoard.UnRead := TThreadItem(List[i]).ParentBoard.UnRead + 1; |
TThreadItem(List[i]).UnRead := true; |
| 11192 |
|
TThreadItem(List[i]).ParentBoard.UnRead := TThreadItem(List[i]).ParentBoard.UnRead + 1; |
| 11193 |
|
end; |
| 11194 |
end; |
end; |
| 11195 |
end; |
end; |
| 11196 |
if TreeView.Visible then |
if TreeView.Visible then |