| 15 |
TGikoDLProgress = (gdpStd, gdpAll, gdpDatOchi, gdpOfflaw); |
TGikoDLProgress = (gdpStd, gdpAll, gdpDatOchi, gdpOfflaw); |
| 16 |
|
|
| 17 |
TGikoWorkEvent = procedure(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer; ID: Integer) of object; |
TGikoWorkEvent = procedure(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer; ID: Integer) of object; |
| 18 |
TGikoWorkBeginEvent = procedure(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer; ID: Integer) of object; |
TGikoWorkBeginEvent = procedure(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer; ID: Integer; const AWorkTitle: string) of object; |
| 19 |
TGikoWorkEndEvent = procedure(Sender: TObject; AWorkMode: TWorkMode; ID: Integer) of object; |
TGikoWorkEndEvent = procedure(Sender: TObject; AWorkMode: TWorkMode; ID: Integer) of object; |
| 20 |
TDownloadEndEvent = procedure(Sender: TObject; Item: TDownloadItem) of object; |
TDownloadEndEvent = procedure(Sender: TObject; Item: TDownloadItem) of object; |
| 21 |
TDownloadMsgEvent = procedure(Sender: TObject; Item: TDownloadItem; Msg: string; Icon: TGikoMessageIcon) of object; |
TDownloadMsgEvent = procedure(Sender: TObject; Item: TDownloadItem; Msg: string; Icon: TGikoMessageIcon) of object; |
| 41 |
FOnWorkEnd: TGikoWorkEndEvent; |
FOnWorkEnd: TGikoWorkEndEvent; |
| 42 |
FOnDownloadEnd: TDownloadEndEvent; |
FOnDownloadEnd: TDownloadEndEvent; |
| 43 |
FOnDownloadMsg: TDownloadMsgEvent; |
FOnDownloadMsg: TDownloadMsgEvent; |
| 44 |
|
FDownloadTitle: string; |
| 45 |
|
|
| 46 |
procedure FireDownloadEnd; |
procedure FireDownloadEnd; |
| 47 |
procedure FireDownloadMsg; |
procedure FireDownloadMsg; |
| 164 |
ExternalBoardManager.OnWorkBegin := WorkBegin; |
ExternalBoardManager.OnWorkBegin := WorkBegin; |
| 165 |
ExternalBoardManager.OnWorkEnd := WorkEnd; |
ExternalBoardManager.OnWorkEnd := WorkEnd; |
| 166 |
|
|
| 167 |
|
FDownloadTitle := ''; |
| 168 |
case FItem.FDownType of |
case FItem.FDownType of |
| 169 |
gdtBoard: |
gdtBoard: |
| 170 |
begin |
begin |
| 171 |
|
FDownloadTitle := FItem.FBoard.Title; |
| 172 |
if FItem.FBoard <> nil then begin |
if FItem.FBoard <> nil then begin |
| 173 |
if FItem.FBoard.IsBoardPlugInAvailable then begin |
if FItem.FBoard.IsBoardPlugInAvailable then begin |
| 174 |
boardPlugIn := FItem.FBoard.BoardPlugIn; |
boardPlugIn := FItem.FBoard.BoardPlugIn; |
| 178 |
end; |
end; |
| 179 |
gdtThread: |
gdtThread: |
| 180 |
begin |
begin |
| 181 |
|
FDownloadTitle := FItem.FThreadItem.Title; |
| 182 |
if FItem.FThreadItem <> nil then begin |
if FItem.FThreadItem <> nil then begin |
| 183 |
if FItem.FThreadItem.IsBoardPlugInAvailable then begin |
if FItem.FThreadItem.IsBoardPlugInAvailable then begin |
| 184 |
boardPlugIn := FItem.FThreadItem.BoardPlugIn; |
boardPlugIn := FItem.FThreadItem.BoardPlugIn; |
| 187 |
end; |
end; |
| 188 |
end; |
end; |
| 189 |
end; |
end; |
| 190 |
|
if Length(FDownloadTitle) = 0 then |
| 191 |
|
FDownloadTitle := '(名称不明)'; |
| 192 |
|
|
| 193 |
if boardPlugIn <> nil then begin |
if boardPlugIn <> nil then begin |
| 194 |
if FAbort then |
if FAbort then |
| 787 |
procedure TDownloadThread.WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer); |
procedure TDownloadThread.WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer); |
| 788 |
begin |
begin |
| 789 |
if Assigned(OnWorkBegin) then |
if Assigned(OnWorkBegin) then |
| 790 |
OnWorkBegin(Sender, AWorkMode, AWorkCountMax, FNumber); |
OnWorkBegin(Sender, AWorkMode, AWorkCountMax, FNumber, FDownloadTitle); |
| 791 |
end; |
end; |
| 792 |
|
|
| 793 |
procedure TDownloadThread.WorkEnd(Sender: TObject; AWorkMode: TWorkMode); |
procedure TDownloadThread.WorkEnd(Sender: TObject; AWorkMode: TWorkMode); |