Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/NewBoard.pas

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

revision 1.25 by h677, Fri Dec 23 16:42:06 2005 UTC revision 1.26 by h677, Sat Jul 1 15:42:31 2006 UTC
# Line 81  begin Line 81  begin
81                  if FAbort then                  if FAbort then
82                          Exit;                          Exit;
83                  if Item.FContent <> '' then begin                  if Item.FContent <> '' then begin
                         GikoDM.TabsSaveAction.Tag := 1;  
84                          GikoDM.TabsOpenAction.Tag := 1;                          GikoDM.TabsOpenAction.Tag := 1;
85                          GikoDM.TabsSaveAction.Execute;                          GikoDM.TabsSaveAction.Execute;
86                          if (UpdateURL(Item.FContent)) then begin                          if (UpdateURL(Item.FContent)) then begin
87                                  GikoForm.ReloadBBS;                                  GikoForm.ReloadBBS;
88                          end;                          end;
                         GikoDM.TabsSaveAction.Tag := 0;  
89                          GikoDM.TabsOpenAction.Tag := 0;                          GikoDM.TabsOpenAction.Tag := 0;
90                  end else                  end else
91                          MessageMemo.Lines.Add('ダウンロードが失敗しました[' + IntToStr(Item.FResponseCode) + ']');                          MessageMemo.Lines.Add('ダウンロードが失敗しました[' + IntToStr(Item.FResponseCode) + ']');

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

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