| 3874 |
ThreadItem: TThreadItem; |
ThreadItem: TThreadItem; |
| 3875 |
Thread: TBrowserRecord; |
Thread: TBrowserRecord; |
| 3876 |
ThreadTitle, ThreadPTitle: string; |
ThreadTitle, ThreadPTitle: string; |
| 3877 |
ThreadScrollTop: Integer; |
//ThreadScrollTop: Integer; |
| 3878 |
ThreadIsLog, ThreadUnRead, ThreadNewArraical: boolean; |
ThreadIsLog, {ThreadUnRead,} ThreadNewArraical: boolean; |
| 3879 |
begin |
begin |
| 3880 |
// AddMessageList('SetContent', nil, gmiWhat); |
// AddMessageList('SetContent', nil, gmiWhat); |
| 3881 |
Thread := inThread; |
Thread := inThread; |
| 3925 |
|
|
| 3926 |
ThreadTitle := Thread.Thread.Title; |
ThreadTitle := Thread.Thread.Title; |
| 3927 |
ThreadPTitle := Thread.Thread.ParentBoard.Title; |
ThreadPTitle := Thread.Thread.ParentBoard.Title; |
| 3928 |
ThreadScrollTop := Thread.Thread.ScrollTop; |
//ThreadScrollTop := Thread.Thread.ScrollTop; |
| 3929 |
ThreadIsLog := Thread.Thread.IsLogFile; |
ThreadIsLog := Thread.Thread.IsLogFile; |
| 3930 |
ThreadItem := Thread.Thread; |
ThreadItem := Thread.Thread; |
| 3931 |
ThreadNewArraical := Thread.Thread.NewArrival; |
ThreadNewArraical := Thread.Thread.NewArrival; |
| 3932 |
ThreadUnRead := Thread.Thread.UnRead; |
//ThreadUnRead := Thread.Thread.UnRead; |
| 3933 |
BBSID := ThreadItem.ParentBoard.BBSID; |
BBSID := ThreadItem.ParentBoard.BBSID; |
| 3934 |
FileName := ThreadItem.FileName; |
FileName := ThreadItem.FileName; |
| 3935 |
|
|
| 7621 |
URL, protocol2, host2, path2, document2, port2, bookmark2 : string; |
URL, protocol2, host2, path2, document2, port2, bookmark2 : string; |
| 7622 |
tmp1, tmp2: string; |
tmp1, tmp2: string; |
| 7623 |
BBSID, BBSKey: string; |
BBSID, BBSKey: string; |
| 7624 |
tmpBoard, Board: TBoard; |
{tmpBoard,} Board: TBoard; |
| 7625 |
ThreadItem: TThreadItem; |
ThreadItem: TThreadItem; |
| 7626 |
i, bi : Integer; |
i, bi : Integer; |
| 7627 |
boardURL : string; |
boardURL : string; |
| 12043 |
msg : String; |
msg : String; |
| 12044 |
ReadList : TStringList; |
ReadList : TStringList; |
| 12045 |
wordCount : TWordCount; |
wordCount : TWordCount; |
| 12046 |
i : Integer; |
{i : Integer;} |
| 12047 |
begin |
begin |
| 12048 |
IndividualForm := TIndividualAbonForm.Create(Self); |
IndividualForm := TIndividualAbonForm.Create(Self); |
| 12049 |
try |
try |