| 907 |
|
|
| 908 |
procedure DownloadEnd(Sender: TObject; Item: TDownloadItem); |
procedure DownloadEnd(Sender: TObject; Item: TDownloadItem); |
| 909 |
procedure DownloadMsg(Sender: TObject; Item: TDownloadItem; Msg: string; Icon: TGikoMessageIcon); |
procedure DownloadMsg(Sender: TObject; Item: TDownloadItem; Msg: string; Icon: TGikoMessageIcon); |
| 910 |
procedure WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer; Number: Integer); |
procedure WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer; Number: Integer; const AWorkTitle: string); |
| 911 |
procedure WorkEnd(Sender: TObject; AWorkMode: TWorkMode; Number: Integer); |
procedure WorkEnd(Sender: TObject; AWorkMode: TWorkMode; Number: Integer); |
| 912 |
procedure Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer; Number: Integer); |
procedure Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer; Number: Integer); |
| 913 |
|
|
| 3115 |
end; |
end; |
| 3116 |
end; |
end; |
| 3117 |
|
|
| 3118 |
procedure TGikoForm.WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer; Number: Integer); |
procedure TGikoForm.WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer; Number: Integer; const AWorkTitle: string); |
| 3119 |
begin |
begin |
| 3120 |
// SetProgressValue(Number, 0, AWorkCountMax); |
// SetProgressValue(Number, 0, AWorkCountMax); |
| 3121 |
// ProgressBar.Visible := True; |
// ProgressBar.Visible := True; |
| 3122 |
ProgressBar.Position := 0; |
ProgressBar.Position := 0; |
| 3123 |
ProgressBar.Max := AWorkCountMax; |
ProgressBar.Max := AWorkCountMax; |
| 3124 |
|
FDownloadTitle := AWorkTitle; |
| 3125 |
StatusBar.Panels[1].Text := FDownloadTitle + ' - ダウンロードを開始します'; |
StatusBar.Panels[1].Text := FDownloadTitle + ' - ダウンロードを開始します'; |
| 3126 |
FDownloadMax := AWorkCountMax; |
FDownloadMax := AWorkCountMax; |
| 3127 |
end; |
end; |
| 3494 |
var |
var |
| 3495 |
Item: TDownloadItem; |
Item: TDownloadItem; |
| 3496 |
begin |
begin |
|
if Board.Title = '' then |
|
|
FDownloadTitle := '(名称不明)' |
|
|
else |
|
|
FDownloadTitle := Board.Title; |
|
|
|
|
| 3497 |
if not Board.IsThreadDatRead then |
if not Board.IsThreadDatRead then |
| 3498 |
GikoSys.ReadSubjectFile(Board); |
GikoSys.ReadSubjectFile(Board); |
| 3499 |
Item := TDownloadItem.Create; |
Item := TDownloadItem.Create; |
| 3523 |
var |
var |
| 3524 |
Item: TDownloadItem; |
Item: TDownloadItem; |
| 3525 |
begin |
begin |
|
if ThreadItem.Title = '' then |
|
|
FDownloadTitle := '(名称不明)' |
|
|
else |
|
|
FDownloadTitle := ThreadItem.Title; |
|
| 3526 |
Item := TDownloadItem.Create; |
Item := TDownloadItem.Create; |
| 3527 |
try |
try |
| 3528 |
Item.ThreadItem := ThreadItem; |
Item.ThreadItem := ThreadItem; |