Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/ThreadControl.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.5 by h677, Fri Apr 2 10:59:00 2004 UTC revision 1.6 by q9_, Sat Apr 3 09:12:27 2004 UTC
# Line 18  type Line 18  type
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);
# Line 167  begin Line 167  begin
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);

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26