Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.511.2.5 by h677, Tue May 17 13:39:54 2005 UTC revision 1.511.2.6 by h677, Tue May 17 14:32:51 2005 UTC
# Line 3874  var Line 3874  var
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;
# Line 3925  begin Line 3925  begin
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    
# Line 7621  var Line 7621  var
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;
# Line 12043  var Line 12043  var
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

Legend:
Removed from v.1.511.2.5  
changed lines
  Added in v.1.511.2.6

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26