| 666 |
procedure SetGroupIndex(ActionList: TActionList); |
procedure SetGroupIndex(ActionList: TActionList); |
| 667 |
//! 指定されたスレッドを開く(ログが無いとき or 指定JUMPまで足りないときはDLする) |
//! 指定されたスレッドを開く(ログが無いとき or 指定JUMPまで足りないときはDLする) |
| 668 |
procedure OpenThreadItem(Thread: TThreadItem; URL: String); |
procedure OpenThreadItem(Thread: TThreadItem; URL: String); |
| 669 |
|
//! ListView(スレッド一覧)を更新する |
| 670 |
|
procedure RefreshListView(Thread: TThreadItem); |
| 671 |
protected |
protected |
| 672 |
procedure CreateParams(var Params: TCreateParams); override; |
procedure CreateParams(var Params: TCreateParams); override; |
| 673 |
procedure WndProc(var Message: TMessage); override; |
procedure WndProc(var Message: TMessage); override; |
| 2324 |
Item.Board.Modified := True; |
Item.Board.Modified := True; |
| 2325 |
Item.Board.IsThreadDatRead := True; |
Item.Board.IsThreadDatRead := True; |
| 2326 |
PlaySound('New'); |
PlaySound('New'); |
| 2327 |
|
ListView.Refresh; |
| 2328 |
end else if Item.DownType = gdtThread then begin |
end else if Item.DownType = gdtThread then begin |
| 2329 |
//スレ |
//スレ |
| 2330 |
Item.SaveItemFile; |
Item.SaveItemFile; |
| 2395 |
gvtUser: ListView.Items.Count := TBoard(ActiveList).UserThreadCount; |
gvtUser: ListView.Items.Count := TBoard(ActiveList).UserThreadCount; |
| 2396 |
end; |
end; |
| 2397 |
end; |
end; |
| 2398 |
|
RefreshListView(Item.ThreadItem); |
| 2399 |
end; |
end; |
| 2400 |
ListView.Refresh; |
|
| 2401 |
end else if Item.State = gdsNotModify then begin |
end else if Item.State = gdsNotModify then begin |
| 2402 |
//変更ナシ |
//変更ナシ |
| 2403 |
{ if (Item.DownType = gdtThread) and (AddHistory(Item.ThreadItem)) then begin |
{ if (Item.DownType = gdtThread) and (AddHistory(Item.ThreadItem)) then begin |
| 2750 |
end; |
end; |
| 2751 |
end; |
end; |
| 2752 |
|
|
| 2753 |
|
RefreshListView(ThreadItem); |
|
|
|
|
//Threadの板と表示している板が同じなら描画を更新する |
|
|
if (FActiveList is TBoard) and (TBoard(ActiveList) = ThreadItem.ParentBoard) then begin |
|
|
ListView.Refresh; |
|
|
end; |
|
|
|
|
| 2754 |
finally |
finally |
| 2755 |
Screen.Cursor := crDefault; |
Screen.Cursor := crDefault; |
| 2756 |
end; |
end; |
| 4252 |
threadItem := BrowserRecord.Thread; |
threadItem := BrowserRecord.Thread; |
| 4253 |
|
|
| 4254 |
if (threadItem.JumpAddress > 0) then begin |
if (threadItem.JumpAddress > 0) then begin |
|
//if (BrowserRecord <> nil) and (Length( BrowserRecord.Movement ) > 0) then begin |
|
| 4255 |
if threadItem.UnRead then begin |
if threadItem.UnRead then begin |
| 4256 |
threadItem.UnRead := False; |
threadItem.UnRead := False; |
| 4257 |
TreeView.Refresh; |
TreeView.Refresh; |
| 4258 |
ListView.Refresh; |
RefreshListView(threadItem); |
| 4259 |
end; |
end; |
| 4260 |
// スクロール先が取得外のレスの時は終端に移動 |
// スクロール先が取得外のレスの時は終端に移動 |
| 4261 |
//if (StrToIntDef(BrowserRecord.Movement, 0) <= BrowserRecord.Thread.Count) then begin |
//if (StrToIntDef(BrowserRecord.Movement, 0) <= BrowserRecord.Thread.Count) then begin |
| 4270 |
threadItem.UnRead := False; |
threadItem.UnRead := False; |
| 4271 |
TreeView.Refresh; |
TreeView.Refresh; |
| 4272 |
BrowserRecord.Move('new'); |
BrowserRecord.Move('new'); |
| 4273 |
ListView.Refresh; |
RefreshListView(threadItem); |
| 4274 |
end else if threadItem.ScrollTop <> 0 then begin |
end else if threadItem.ScrollTop <> 0 then begin |
| 4275 |
try |
try |
| 4276 |
doc := Idispatch( OleVariant( BrowserRecord.Browser.ControlInterface ).Document ) as IHTMLDocument2; |
doc := Idispatch( OleVariant( BrowserRecord.Browser.ControlInterface ).Document ) as IHTMLDocument2; |
| 7831 |
begin |
begin |
| 7832 |
; |
; |
| 7833 |
end; |
end; |
| 7834 |
|
//! ListView(スレッド一覧)を更新する |
| 7835 |
|
procedure TGikoForm.RefreshListView(Thread: TThreadItem); |
| 7836 |
|
begin |
| 7837 |
|
//Threadの板と表示している板が同じなら描画を更新する |
| 7838 |
|
if (FActiveList is TBoard) and (TBoard(ActiveList) = Thread.ParentBoard) then begin |
| 7839 |
|
ListView.Refresh; |
| 7840 |
|
end; |
| 7841 |
|
end; |
| 7842 |
|
|
| 7843 |
initialization |
initialization |
| 7844 |
OleInitialize(nil); |
OleInitialize(nil); |