Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 464 |
N41: TMenuItem; |
N41: TMenuItem; |
| 465 |
IndividualAbon2: TMenuItem; |
IndividualAbon2: TMenuItem; |
| 466 |
N42: TMenuItem; |
N42: TMenuItem; |
| 467 |
|
CancellIndividualAbon: TAction; |
| 468 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 469 |
procedure FormDestroy(Sender: TObject); |
procedure FormDestroy(Sender: TObject); |
| 470 |
procedure CabinetPanelHide(Sender: TObject); |
procedure CabinetPanelHide(Sender: TObject); |
| 6054 |
FileName := IncludeTrailingPathDelimiter(BBS2ch.GetLogFolder + sBoard) + sThread + '.dat'; |
FileName := IncludeTrailingPathDelimiter(BBS2ch.GetLogFolder + sBoard) + sThread + '.dat'; |
| 6055 |
tmp := GikoSys.ReadThreadFile(FileName, Line); |
tmp := GikoSys.ReadThreadFile(FileName, Line); |
| 6056 |
|
|
| 6057 |
if (tmp <> '') And ( not GikoSys.FAbon.CheckAbonPopupRes(tmp)) then begin |
if (tmp <> '') And ( not GikoSys.FAbon.CheckAbonPopupRes(tmp) And( not GikoSys.FAbon.CheckIndividualAbonList(line))) then begin |
| 6058 |
Res := GikoSys.DivideStrLine(tmp); |
Res := GikoSys.DivideStrLine(tmp); |
| 6059 |
|
|
| 6060 |
Header := IntToStr(Line) + ' 名前: ' + Res.FName + ' 投稿日: ' + Res.FDateTime; |
Header := IntToStr(Line) + ' 名前: ' + Res.FName + ' 投稿日: ' + Res.FDateTime; |
|
|
Legend:
| Removed from v.1.36 |
|
| changed lines |
| |
Added in v.1.37 |
|
|
|