function isValidFile(FileName: String) : boolean;
//! ListView\82ÌD&D\8eó\82¯\8eæ\82è
procedure AcceptDropFiles(var Msg: TMsg);
+ //! \83X\83\8c\83b\83h\88ê\97\97\8dX\90V\8f\88\97\9d
+ procedure UpdateListView();
+
protected
procedure CreateParams(var Params: TCreateParams); override;
procedure WndProc(var Message: TMessage); override;
end;
TreeView.Refresh;
//ListView\82Å\82±\82Ì\83X\83\8c\82ª\8aÜ\82Ü\82ê\82é\94Â\82ð\95\\8e¦\82µ\82Ä\82¢\82é\82Æ\82«\82Ì\8dX\90V\8f\88\97\9d
- if (ActiveList <> nil) and (ActiveList is TBoard) then begin
- TBoard(ActiveList).LogThreadCount := TBoard(ActiveList).GetLogThreadCount;
- TBoard(ActiveList).NewThreadCount := TBoard(ActiveList).GetNewThreadCount;
- TBoard(ActiveList).UserThreadCount:= TBoard(ActiveList).GetUserThreadCount;
- //ListView\82Ì\83A\83C\83e\83\80\82Ì\8cÂ\90\94\82à\8dX\90V
- 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;
+ UpdateListView();
RefreshListView(Item.ThreadItem);
end;
FOleInPlaceActiveObject: IOleInPlaceActiveObject;
p : TPoint;
AID: string;
- stlist : TStringList;
- i : Integer;
begin
result := true;
if not Assigned(FActiveContent) then
Board: TBoard;
LogFolder: String;
datList: TStringList;
- p: TPoint;
begin
// \95\\8e¦\82µ\82Ä\82¢\82é\82Ì\94Â\82Ì\82Æ\82«\88È\8aO\82Í\8b\91\94Û
if GetActiveList is TBoard then begin
if (datList.Count > 0) then begin
GikoSys.AddOutofIndexDat(Board, datList, False);
ShowMessage(IntToStr(datList.Count) + '\8cÂ\82Ìdat\83t\83@\83C\83\8b\82ª\83R\83s\81[\82³\82ê\82Ü\82µ\82½\81B' );
- if GikoForm.TreeView.Visible then
+ if GikoForm.TreeView.Visible then begin
GikoForm.TreeView.Refresh;
- if GikoForm.ListView.Visible then
- GikoForm.ListView.Refresh;
+ end;
+ if GikoForm.ListView.Visible then begin
+ UpdateListView();
+ end;
end else begin
ShowMessage('\88ê\82Â\82à\83R\83s\81[\82³\82ê\82Ü\82¹\82ñ\82Å\82µ\82½\81B' );
end;
ShowMessage('\94Â\82ð\95\\8e¦\82µ\82Ä\82\82¾\82³\82¢\81B');
end;
end;
-
+procedure TGikoForm.UpdateListView();
+begin
+ //ListView\82Å\82±\82Ì\83X\83\8c\82ª\8aÜ\82Ü\82ê\82é\94Â\82ð\95\\8e¦\82µ\82Ä\82¢\82é\82Æ\82«\82Ì\8dX\90V\8f\88\97\9d
+ if (ActiveList <> nil) and (ActiveList is TBoard) then begin
+ TBoard(ActiveList).LogThreadCount := TBoard(ActiveList).GetLogThreadCount;
+ TBoard(ActiveList).NewThreadCount := TBoard(ActiveList).GetNewThreadCount;
+ TBoard(ActiveList).UserThreadCount:= TBoard(ActiveList).GetUserThreadCount;
+ //ListView\82Ì\83A\83C\83e\83\80\82Ì\8cÂ\90\94\82à\8dX\90V
+ 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;
+ ListView.Refresh;
+end;
//! \83t\83@\83C\83\8b\83`\83F\83b\83N
function TGikoForm.isValidFile(FileName: String) : boolean;
var
end else begin
// \83\8d\83O\83t\83@\83C\83\8b\82Ì\8ag\92£\8eq\82ð\82Í\82¸\82µ\82½\82à\82Ì\82ª\83X\83\8c\8dì\90¬\93ú\8e\9e
try
- dt := GikoSys.GetCreateDateFromName(FileName);
+ dt := GikoSys.GetCreateDateFromName(ExtractFileName(FileName));
if ((UnixToDateTime(ZERO_DATE) + OffsetFromUTC) = dt) then begin
Result := False;
GikoUtil.MsgBox(Handle, ExtractFileName(FileName) + '\82Ì\83t\83@\83C\83\8b\96¼\82ª\95s\90³\82Å\82·\81B', '\83G\83\89\81[', MB_ICONSTOP or MB_OK);