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.16 by h677, Mon Oct 25 11:39:50 2004 UTC revision 1.17 by h677, Fri Nov 5 14:25:48 2004 UTC
# Line 70  begin Line 70  begin
70                  if FAbort then                  if FAbort then
71                          Exit;                          Exit;
72                  if Item.FContent <> '' then begin                  if Item.FContent <> '' then begin
73                            GikoForm.TabsSaveAction.Tag := 1;
74                            GikoForm.TabsOpenAction.Tag := 1;
75                          GikoForm.TabsSaveAction.Execute;                          GikoForm.TabsSaveAction.Execute;
76                          UpdateURL(Item.FContent);                          UpdateURL(Item.FContent);
77                          GikoForm.ReloadBBS;                          GikoForm.ReloadBBS;
78                            GikoForm.TabsSaveAction.Tag := 0;
79                            GikoForm.TabsOpenAction.Tag := 0;
80                  end else                  end else
81                          MessageMemo.Lines.Add('ダウンロードが失敗しました[' + IntToStr(Item.FResponseCode) + ']');                          MessageMemo.Lines.Add('ダウンロードが失敗しました[' + IntToStr(Item.FResponseCode) + ']');
82          finally          finally

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

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