| 18 |
FOnWorkEnd: TGikoWorkEndEvent; |
FOnWorkEnd: TGikoWorkEndEvent; |
| 19 |
FOnDownloadEnd: TDownloadEndEvent; |
FOnDownloadEnd: TDownloadEndEvent; |
| 20 |
FOnDownloadMsg: TDownloadMsgEvent; |
FOnDownloadMsg: TDownloadMsgEvent; |
| 21 |
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); |
| 22 |
procedure WorkEnd(Sender: TObject; AWorkMode: TWorkMode; Number: Integer); |
procedure WorkEnd(Sender: TObject; AWorkMode: TWorkMode; Number: Integer); |
| 23 |
procedure Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer; Number: Integer); |
procedure Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer; Number: Integer); |
| 24 |
procedure DownloadEnd(Sender: TObject; Item: TDownloadItem); |
procedure DownloadEnd(Sender: TObject; Item: TDownloadItem); |
| 167 |
FMaxThreadCount := Count; |
FMaxThreadCount := Count; |
| 168 |
end; |
end; |
| 169 |
|
|
| 170 |
procedure TThreadControl.WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer; Number: Integer); |
procedure TThreadControl.WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer; Number: Integer; const AWorkTitle: string); |
| 171 |
begin |
begin |
| 172 |
if Assigned(OnWorkBegin) then |
if Assigned(OnWorkBegin) then |
| 173 |
OnWorkBegin(Sender, AWorkMode, AWorkCountMax, Number); |
OnWorkBegin(Sender, AWorkMode, AWorkCountMax, Number, AWorkTitle); |
| 174 |
end; |
end; |
| 175 |
|
|
| 176 |
procedure TThreadControl.WorkEnd(Sender: TObject; AWorkMode: TWorkMode; Number: Integer); |
procedure TThreadControl.WorkEnd(Sender: TObject; AWorkMode: TWorkMode; Number: Integer); |