| 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; |
| 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 |
|
|
| 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 |
| 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 |
| 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; |
| 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 |
| 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); |