Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

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

revision 1.232 by h677, Sat Apr 3 03:43:12 2004 UTC revision 1.233 by q9_, Sat Apr 3 09:12:27 2004 UTC
# Line 907  type Line 907  type
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    
# Line 3115  begin Line 3115  begin
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;
# Line 3493  procedure TGikoForm.DownloadList(Board: Line 3494  procedure TGikoForm.DownloadList(Board:
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;
# Line 3527  procedure TGikoForm.DownloadContent(Thre Line 3523  procedure TGikoForm.DownloadContent(Thre
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;

Legend:
Removed from v.1.232  
changed lines
  Added in v.1.233

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