Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/GikoSystem.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 2510 |
boardFileList : TStringList; |
boardFileList : TStringList; |
| 2511 |
i, l : Integer; |
i, l : Integer; |
| 2512 |
sCategory : TCategory; |
sCategory : TCategory; |
|
sBoard : TBoard; |
|
| 2513 |
begin |
begin |
| 2514 |
// BBS の開放 |
// BBS の開放 |
| 2515 |
try |
try |
| 2562 |
sCategory.No := 1; |
sCategory.No := 1; |
| 2563 |
sCategory.Title := '特殊用途(非表示)'; |
sCategory.Title := '特殊用途(非表示)'; |
| 2564 |
SpecialBBS.Add(sCategory); |
SpecialBBS.Add(sCategory); |
| 2565 |
sBoard := TSpecialBoard.Create(nil, 'http://localhost/gikonavi/special/index.html'); |
BoardGroup.SpecialBoard := TSpecialBoard.Create(nil, 'http://localhost/gikonavi/special/index.html'); |
| 2566 |
sBoard.IsThreadDatRead := True; |
BoardGroup.SpecialBoard.Title := 'タブ一覧'; |
| 2567 |
sCategory.Add(sBoard); |
BoardGroup.SpecialBoard.IsThreadDatRead := True; |
| 2568 |
|
sCategory.Add(BoardGroup.SpecialBoard); |
| 2569 |
end; |
end; |
| 2570 |
|
|
| 2571 |
{! |
{! |
|
|
Legend:
| Removed from v.1.244 |
|
| changed lines |
| |
Added in v.1.245 |
|
|
|