Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/NewBoard.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 51 |
|
|
| 52 |
implementation |
implementation |
| 53 |
|
|
| 54 |
uses Giko, IdHeaderList, MojuUtils; |
uses Giko, IdHeaderList, MojuUtils, GikoDataModule; |
| 55 |
|
|
| 56 |
{$R *.dfm} |
{$R *.dfm} |
| 57 |
|
|
| 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 |
|
|
|