Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/ItemDownload.pas

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

revision 1.22 by h677, Wed Mar 31 08:57:08 2004 UTC revision 1.23 by q9_, Sat Apr 3 09:12:27 2004 UTC
# Line 15  type Line 15  type
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;
# Line 41  type Line 41  type
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;
# Line 163  begin Line 164  begin
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;
# Line 175  begin Line 178  begin
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;
# Line 183  begin Line 187  begin
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
# Line 781  end; Line 787  end;
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);

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

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