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.21 by h677, Mon Aug 22 14:20:31 2005 UTC revision 1.22 by h677, Sun Nov 20 14:58:02 2005 UTC
# Line 51  var Line 51  var
51    
52  implementation  implementation
53    
54  uses Giko, IdHeaderList, MojuUtils;  uses Giko, IdHeaderList, MojuUtils, GikoDataModule;
55    
56  {$R *.dfm}  {$R *.dfm}
57    
# Line 71  begin Line 71  begin
71                  if FAbort then                  if FAbort then
72                          Exit;                          Exit;
73                  if Item.FContent <> '' then begin                  if Item.FContent <> '' then begin
74                          GikoForm.TabsSaveAction.Tag := 1;                          GikoDM.TabsSaveAction.Tag := 1;
75                          GikoForm.TabsOpenAction.Tag := 1;                          GikoDM.TabsOpenAction.Tag := 1;
76                          GikoForm.TabsSaveAction.Execute;                          GikoDM.TabsSaveAction.Execute;
77                          UpdateURL(Item.FContent);                          UpdateURL(Item.FContent);
78                          GikoForm.ReloadBBS;                          GikoForm.ReloadBBS;
79                          GikoForm.TabsSaveAction.Tag := 0;                          GikoDM.TabsSaveAction.Tag := 0;
80                          GikoForm.TabsOpenAction.Tag := 0;                          GikoDM.TabsOpenAction.Tag := 0;
81                  end else                  end else
82                          MessageMemo.Lines.Add('ダウンロードが失敗しました[' + IntToStr(Item.FResponseCode) + ']');                          MessageMemo.Lines.Add('ダウンロードが失敗しました[' + IntToStr(Item.FResponseCode) + ']');
83          finally          finally

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

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