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.677 by h677, Sun Jul 27 16:26:14 2008 UTC revision 1.678 by h677, Sun Aug 3 02:14:04 2008 UTC
# Line 692  type Line 692  type
692          function isValidFile(FileName: String) : boolean;          function isValidFile(FileName: String) : boolean;
693          //! ListViewのD&D受け取り          //! ListViewのD&D受け取り
694          procedure AcceptDropFiles(var Msg: TMsg);          procedure AcceptDropFiles(var Msg: TMsg);
695            //! スレッド一覧更新処理
696            procedure UpdateListView();
697    
698          protected          protected
699                  procedure CreateParams(var Params: TCreateParams); override;                  procedure CreateParams(var Params: TCreateParams); override;
700                  procedure WndProc(var Message: TMessage); override;                  procedure WndProc(var Message: TMessage); override;
# Line 2581  begin Line 2584  begin
2584                                  end;                                  end;
2585                                  TreeView.Refresh;                                  TreeView.Refresh;
2586                                  //ListViewでこのスレが含まれる板を表示しているときの更新処理                                  //ListViewでこのスレが含まれる板を表示しているときの更新処理
2587                                  if (ActiveList <> nil) and (ActiveList is TBoard) then begin                  UpdateListView();
                                         TBoard(ActiveList).LogThreadCount := TBoard(ActiveList).GetLogThreadCount;  
                                         TBoard(ActiveList).NewThreadCount := TBoard(ActiveList).GetNewThreadCount;  
                                         TBoard(ActiveList).UserThreadCount:= TBoard(ActiveList).GetUserThreadCount;  
                     //ListViewのアイテムの個数も更新  
                                         case GikoForm.ViewType of  
                                                 gvtAll: ListView.Items.Count := TBoard(ActiveList).Count;  
                                                 gvtLog: ListView.Items.Count := TBoard(ActiveList).LogThreadCount;  
                                                 gvtNew: ListView.Items.Count := TBoard(ActiveList).NewThreadCount;  
                                                 gvtArch: ListView.Items.Count := TBoard(ActiveList).ArchiveThreadCount;  
                                                 gvtLive: ListView.Items.Count := TBoard(ActiveList).LiveThreadCount;  
                                                 gvtUser: ListView.Items.Count := TBoard(ActiveList).UserThreadCount;  
                                         end;  
                                 end;  
2588                                  RefreshListView(Item.ThreadItem);                                  RefreshListView(Item.ThreadItem);
2589                          end;                          end;
2590    
# Line 6794  var Line 6784  var
6784      FOleInPlaceActiveObject: IOleInPlaceActiveObject;      FOleInPlaceActiveObject: IOleInPlaceActiveObject;
6785          p : TPoint;          p : TPoint;
6786          AID: string;          AID: string;
         stlist : TStringList;  
     i : Integer;  
6787  begin  begin
6788          result := true;          result := true;
6789      if not Assigned(FActiveContent) then      if not Assigned(FActiveContent) then
# Line 7853  var Line 7841  var
7841      Board: TBoard;      Board: TBoard;
7842      LogFolder: String;      LogFolder: String;
7843      datList: TStringList;      datList: TStringList;
     p: TPoint;  
7844  begin  begin
7845      // 表示しているの板のとき以外は拒否      // 表示しているの板のとき以外は拒否
7846      if GetActiveList is TBoard then begin      if GetActiveList is TBoard then begin
# Line 7890  begin Line 7877  begin
7877                  if (datList.Count > 0) then begin                  if (datList.Count > 0) then begin
7878                      GikoSys.AddOutofIndexDat(Board, datList, False);                      GikoSys.AddOutofIndexDat(Board, datList, False);
7879                      ShowMessage(IntToStr(datList.Count) + '個のdatファイルがコピーされました。' );                      ShowMessage(IntToStr(datList.Count) + '個のdatファイルがコピーされました。' );
7880                          if GikoForm.TreeView.Visible then                          if GikoForm.TreeView.Visible then begin
7881                                  GikoForm.TreeView.Refresh;                                  GikoForm.TreeView.Refresh;
7882                              if GikoForm.ListView.Visible then                      end;
7883                                  GikoForm.ListView.Refresh;                              if GikoForm.ListView.Visible then begin
7884                                    UpdateListView();
7885                        end;
7886                  end else begin                  end else begin
7887                      ShowMessage('一つもコピーされませんでした。' );                      ShowMessage('一つもコピーされませんでした。' );
7888                  end;                  end;
# Line 7906  begin Line 7895  begin
7895          ShowMessage('板を表示してください。');          ShowMessage('板を表示してください。');
7896      end;      end;
7897  end;  end;
7898    procedure TGikoForm.UpdateListView();
7899    begin
7900        //ListViewでこのスレが含まれる板を表示しているときの更新処理
7901        if (ActiveList <> nil) and (ActiveList is TBoard) then begin
7902            TBoard(ActiveList).LogThreadCount := TBoard(ActiveList).GetLogThreadCount;
7903            TBoard(ActiveList).NewThreadCount := TBoard(ActiveList).GetNewThreadCount;
7904            TBoard(ActiveList).UserThreadCount:= TBoard(ActiveList).GetUserThreadCount;
7905            //ListViewのアイテムの個数も更新
7906            case GikoForm.ViewType of
7907                gvtAll: ListView.Items.Count := TBoard(ActiveList).Count;
7908                gvtLog: ListView.Items.Count := TBoard(ActiveList).LogThreadCount;
7909                gvtNew: ListView.Items.Count := TBoard(ActiveList).NewThreadCount;
7910                gvtArch: ListView.Items.Count := TBoard(ActiveList).ArchiveThreadCount;
7911                gvtLive: ListView.Items.Count := TBoard(ActiveList).LiveThreadCount;
7912                gvtUser: ListView.Items.Count := TBoard(ActiveList).UserThreadCount;
7913            end;
7914        end;
7915        ListView.Refresh;
7916    end;
7917  //! ファイルチェック  //! ファイルチェック
7918  function TGikoForm.isValidFile(FileName: String) : boolean;  function TGikoForm.isValidFile(FileName: String) : boolean;
7919  var  var
# Line 7923  begin Line 7930  begin
7930      end else begin      end else begin
7931          // ログファイルの拡張子をはずしたものがスレ作成日時          // ログファイルの拡張子をはずしたものがスレ作成日時
7932          try          try
7933              dt := GikoSys.GetCreateDateFromName(FileName);              dt := GikoSys.GetCreateDateFromName(ExtractFileName(FileName));
7934              if ((UnixToDateTime(ZERO_DATE) + OffsetFromUTC) = dt) then begin              if ((UnixToDateTime(ZERO_DATE) + OffsetFromUTC) = dt) then begin
7935                  Result := False;                  Result := False;
7936                  GikoUtil.MsgBox(Handle, ExtractFileName(FileName) + 'のファイル名が不正です。', 'エラー', MB_ICONSTOP or MB_OK);                  GikoUtil.MsgBox(Handle, ExtractFileName(FileName) + 'のファイル名が不正です。', 'エラー', MB_ICONSTOP or MB_OK);

Legend:
Removed from v.1.677  
changed lines
  Added in v.1.678

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