| 874 |
Selected: Boolean); |
Selected: Boolean); |
| 875 |
procedure SelectTimerTimer(Sender: TObject); |
procedure SelectTimerTimer(Sender: TObject); |
| 876 |
procedure SelectItemSaveForHTMLExecute(Sender: TObject); |
procedure SelectItemSaveForHTMLExecute(Sender: TObject); |
| 877 |
|
procedure KidokuActionExecute(Sender: TObject); |
| 878 |
|
procedure MidokuActionExecute(Sender: TObject); |
| 879 |
private |
private |
| 880 |
{ Private 宣言 } |
{ Private 宣言 } |
| 881 |
//RoundList : TRoundList; |
//RoundList : TRoundList; |
| 10353 |
List := TList.Create; |
List := TList.Create; |
| 10354 |
try |
try |
| 10355 |
SelectListItem(List); |
SelectListItem(List); |
| 10356 |
FileSaveAs1.Dialog.Title := '選択スレッドをHTML化して保存'; |
FileSaveAs1.Dialog.Title := '選択スレッドをHTML化して保存'; |
| 10357 |
FileSaveAs1.Dialog.Filter := 'HTMLファイル(*.html)|*.html'; |
FileSaveAs1.Dialog.Filter := 'HTMLファイル(*.html)|*.html'; |
| 10358 |
for i := 0 to List.Count - 1 do begin |
for i := 0 to List.Count - 1 do begin |
| 10359 |
if TObject(List[i]) is TThreadItem then begin |
if TObject(List[i]) is TThreadItem then begin |
| 10373 |
finally |
finally |
| 10374 |
List.Free; |
List.Free; |
| 10375 |
end; |
end; |
| 10376 |
|
end; |
| 10377 |
|
|
| 10378 |
|
procedure TGikoForm.KidokuActionExecute(Sender: TObject); |
| 10379 |
|
var |
| 10380 |
|
List: TList; |
| 10381 |
|
i: Integer; |
| 10382 |
|
begin |
| 10383 |
|
List := TList.Create; |
| 10384 |
|
try |
| 10385 |
|
SelectListItem(List); |
| 10386 |
|
for i := 0 to List.Count - 1 do begin |
| 10387 |
|
if TObject(List[i]) is TThreadItem then begin |
| 10388 |
|
TThreadItem(List[i]).UnRead := false; |
| 10389 |
|
TThreadItem(List[i]).ParentBoard.UnRead := TThreadItem(List[i]).ParentBoard.UnRead - 1; |
| 10390 |
|
end; |
| 10391 |
|
end; |
| 10392 |
|
if TreeView.Visible then |
| 10393 |
|
TreeView.Refresh; |
| 10394 |
|
finally |
| 10395 |
|
List.Free; |
| 10396 |
|
end; |
| 10397 |
|
end; |
| 10398 |
|
|
| 10399 |
|
procedure TGikoForm.MidokuActionExecute(Sender: TObject); |
| 10400 |
|
var |
| 10401 |
|
List: TList; |
| 10402 |
|
i: Integer; |
| 10403 |
|
begin |
| 10404 |
|
List := TList.Create; |
| 10405 |
|
try |
| 10406 |
|
SelectListItem(List); |
| 10407 |
|
for i := 0 to List.Count - 1 do begin |
| 10408 |
|
if TObject(List[i]) is TThreadItem then begin |
| 10409 |
|
TThreadItem(List[i]).UnRead := true; |
| 10410 |
|
TThreadItem(List[i]).ParentBoard.UnRead := TThreadItem(List[i]).ParentBoard.UnRead + 1; |
| 10411 |
|
end; |
| 10412 |
|
end; |
| 10413 |
|
if TreeView.Visible then |
| 10414 |
|
TreeView.Refresh; |
| 10415 |
|
finally |
| 10416 |
|
List.Free; |
| 10417 |
|
end; |
| 10418 |
end; |
end; |
| 10419 |
|
|
| 10420 |
initialization |
initialization |