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.469 by yoffy, Thu Oct 21 04:59:00 2004 UTC revision 1.470 by yoffy, Thu Oct 21 05:05:27 2004 UTC
# Line 9321  begin Line 9321  begin
9321          ReadList                := TStringList.Create;          ReadList                := TStringList.Create;
9322          wordCount               := TWordCount.Create;          wordCount               := TWordCount.Create;
9323          try          try
9324                    ThreadItem.ScrollTop := OleVariant(IHTMLDocument2(FActiveContent.Browser.Document)).Body.ScrollTop;
9325                  // スパムに設定                  // スパムに設定
9326                  ReadList.LoadFromFile( ThreadItem.GetThreadFileName );                  ReadList.LoadFromFile( ThreadItem.GetThreadFileName );
9327                  GikoSys.Bayesian.CountWord( ReadList[ KokoPopupMenu.Tag - 1 ], wordCount );                  GikoSys.Bayesian.CountWord( ReadList[ KokoPopupMenu.Tag - 1 ], wordCount );
# Line 9347  begin Line 9348  begin
9348          ReadList                := TStringList.Create;          ReadList                := TStringList.Create;
9349          wordCount               := TWordCount.Create;          wordCount               := TWordCount.Create;
9350          try          try
9351                    ThreadItem.ScrollTop := OleVariant(IHTMLDocument2(FActiveContent.Browser.Document)).Body.ScrollTop;
9352                  // スパムに設定                  // スパムに設定
9353                  ReadList.LoadFromFile( ThreadItem.GetThreadFileName );                  ReadList.LoadFromFile( ThreadItem.GetThreadFileName );
9354                  GikoSys.Bayesian.CountWord( ReadList[ KokoPopupMenu.Tag - 1 ], wordCount );                  GikoSys.Bayesian.CountWord( ReadList[ KokoPopupMenu.Tag - 1 ], wordCount );
# Line 9374  begin Line 9376  begin
9376          IndividualForm := TIndividualAbonForm.Create(Self);          IndividualForm := TIndividualAbonForm.Create(Self);
9377          try          try
9378                  ThreadItem := GetActiveContent;                  ThreadItem := GetActiveContent;
9379                    ThreadItem.ScrollTop := OleVariant(IHTMLDocument2(FActiveContent.Browser.Document)).Body.ScrollTop;
9380                  if (ThreadItem <> nil) and (ThreadItem.IsLogFile) then begin                  if (ThreadItem <> nil) and (ThreadItem.IsLogFile) then begin
9381                          if IndividualForm.SetThreadLogFileName(ThreadItem.GetThreadFileName) then begin                          if IndividualForm.SetThreadLogFileName(ThreadItem.GetThreadFileName) then begin
9382                                  ReadList                := TStringList.Create;                                  ReadList                := TStringList.Create;
# Line 9413  begin Line 9416  begin
9416          IndividualForm := TIndividualAbonForm.Create(Self);          IndividualForm := TIndividualAbonForm.Create(Self);
9417          try          try
9418                  ThreadItem := GetActiveContent;                  ThreadItem := GetActiveContent;
9419                    ThreadItem.ScrollTop := OleVariant(IHTMLDocument2(FActiveContent.Browser.Document)).Body.ScrollTop;
9420                  if (ThreadItem <> nil) and (ThreadItem.IsLogFile) then begin                  if (ThreadItem <> nil) and (ThreadItem.IsLogFile) then begin
9421                          if IndividualForm.SetThreadLogFileName(ThreadItem.GetThreadFileName) then begin                          if IndividualForm.SetThreadLogFileName(ThreadItem.GetThreadFileName) then begin
9422                                  if IndividualForm.ShowModal = mrOK then begin                                  if IndividualForm.ShowModal = mrOK then begin

Legend:
Removed from v.1.469  
changed lines
  Added in v.1.470

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