Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 10681 |
|
|
| 10682 |
procedure TGikoForm.TabOpenClick(Sender: TObject); |
procedure TGikoForm.TabOpenClick(Sender: TObject); |
| 10683 |
var |
var |
| 10684 |
i, bound : Integer; |
i, bound, Tab : Integer; |
| 10685 |
item : TThreadItem; |
item : TThreadItem; |
| 10686 |
URLs : TStringList; |
URLs : TStringList; |
| 10687 |
begin |
begin |
| 10696 |
GikoSys.Setting.BrowserTabAppend := TGikoTabAppend(1); |
GikoSys.Setting.BrowserTabAppend := TGikoTabAppend(1); |
| 10697 |
for i := 0 to bound do begin |
for i := 0 to bound do begin |
| 10698 |
item := BBSsFindThreadFromURL( URLs[ i ] ); |
item := BBSsFindThreadFromURL( URLs[ i ] ); |
| 10699 |
if item <> nil then |
if item <> nil then |
| 10700 |
InsertBrowserTab( item, false ); |
InsertBrowserTab( item, false ); |
| 10701 |
end; |
end; |
| 10702 |
|
GikoSys.Setting.BrowserTabAppend := TGikoTabAppend(0); |
| 10703 |
end; |
end; |
| 10704 |
|
|
| 10705 |
initialization |
initialization |
|
|
Legend:
| Removed from v.1.357 |
|
| changed lines |
| |
Added in v.1.358 |
|
|
|