FOrigenCaption: String; //\82¨\8bC\82É\93ü\82è\83c\83\8a\81[\82Ì\83A\83C\83e\83\80\95Ò\8fW\8e\9e\82Ì\95Ò\8fW\91O\82Ì\95¶\8e\9a\97ñ
FPreviewBrowserRect: TRect; ///< \83v\83\8c\83r\83\85\81[\82Ì\95\\8e¦\88Ê\92u\82ð\8bL\89¯\82·\82é
FActionListGroupIndexes: array of Integer; ///<GikoDM\8fã\82Ì\83A\83N\83V\83\87\83\93\83\8a\83X\83g\82Ì\8ae\83A\83N\83V\83\87\83\93\82É\90Ý\92è\82³\82ê\82½GroupIndex\82ð\95Û\91¶\82·\82é\94z\97ñ
- FListDrawTime: TDateTime; ///< ListView\82ð\95`\89æ\82µ\82æ\82¤\82Æ\82µ\82½\8e\9e\8d\8f(\90¨\82¢\82Ì\8cv\8eZ\97p)
procedure DownloadEnd(Sender: TObject; Item: TDownloadItem);
procedure DownloadMsg(Sender: TObject; Item: TDownloadItem; Msg: string; Icon: TGikoMessageIcon);
procedure WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer; Number: Integer; const AWorkTitle: string);
property ScreenCursor : TCursor read GetScreenCursor write SetScreenCursor;
property ActiveBBS : TBBS read FActiveBBS write FActiveBBS;
property WorkCount: Integer read FWorkCount write FWorkCount;
- property ListDrawTime: TDateTime read FListDrawTime;
procedure SetContent(inThread: TBrowserRecord);
function GetActiveContent: TThreadItem;
function GetActiveList: TObject;
Writeln('============================================================');
{$ENDIF}
//try
+ Sort.SetSortDate(Now());
+
FTreeType := gttNone;
// \8bN\93®\8e\9e\82É\95Û\91¶\82³\82ê\82Ä\82µ\82Ü\82¤\91Î\8dô
FStartUp := true;
GikoSys.Setting.BoardSortIndex := 0;
GikoSys.Setting.BoardSortOrder := True;
end;
+ Sort.SetSortDate(Now());
SetActiveList(Item.Board);
end;
Item.Board.Modified := True;
(ListView.ClientHeight div 2) - (ListView.Canvas.TextHeight(s) div 2));
ListView.Canvas.TextOut(p.X, p.Y, s);
end else begin
- FListDrawTime := Now();
DefaultDraw := True;
end;
end;
end else begin
if Item <> FActiveList then begin
ActiveListColumnSave;
-
if (Item is TBBS) or (Item is TCategory) then begin
ListView.Columns.Clear;
SetActiveList( Item );
Screen.Cursor := crDefault;
end;
end;
+ Sort.SetSortDate(Now());
SetActiveList( Item );
end;
end;
Screen.Cursor := crDefault;
end;
end;
+ Sort.SetSortDate(Now());
SetActiveList(Node.data);
end;
Item.SubItems[ idx ] := FormatDateTime('yyyy/mm/dd hh:mm:ss', Thread.LastModified);
gbcVigor:
begin
- spanday := DaySpan(GikoForm.ListDrawTime, Thread.CreateDate);
+ spanday := DaySpan(Sort.GetSortDate, Thread.CreateDate);
if (spanday > 0) then begin
- Item.SubItems[ idx ] := Format('%5.2f', [Thread.AllResCount / spanday]);
+ Item.SubItems[ idx ] := Format('%f', [Thread.AllResCount / spanday]);
end else begin
Item.SubItems[ idx ] := '';
end;
Item.SubItems[ idx ] := '';
gbcVigor:
begin
- spanday := DaySpan(GikoForm.ListDrawTime, Thread.CreateDate);
+ spanday := DaySpan(Sort.GetSortDate, Thread.CreateDate);
if (spanday > 0) then begin
- Item.SubItems[ idx ] := Format('%5.2f', [Thread.AllResCount / spanday]);
+ Item.SubItems[ idx ] := Format('%f', [Thread.AllResCount / spanday]);
end else begin
Item.SubItems[ idx ] := '';
end;
end;
if FBoardColumnOrder.Count = 0 then begin
// \90Ý\92è\82ª\96³\82¢\82Ì\82Å\8dì\90¬
- for i := 0 to Integer( High( TGikoBoardColumnID ) ) do
- FBoardColumnOrder.Add( TGikoBoardColumnID( i ) );
+ for i := 0 to Integer( High( TGikoBoardColumnID ) ) do begin
+ // \90¨\82¢\82Ì\83J\83\89\83\80\82Í\83f\83t\83H\83\8b\83g\82Å\94ñ\95\\8e¦\82É\82·\82é
+ if ( i <> Ord(gbcVigor) ) then begin
+ FBoardColumnOrder.Add( TGikoBoardColumnID( i ) );
+ end;
+ end;
end;
finally
wkList.Free;
function CompareBool(Item1, Item2: Boolean): integer;
function CompareInt(Item1, Item2: Integer): Integer;
function CompareDate(Item1, Item2: TDateTime): Integer;
-
+ procedure SetSortDate(Date: TDateTime);
+ function GetSortDate(): TDateTime;
var
SortOrder: Boolean;
SortIndex: Integer;
SortNoFlag: Boolean;
implementation
+var
+ FSortDate: TDateTime;
function CategorySortProc(Item1, Item2: Pointer): integer;
var
gbcLastModified: Result := CompareDateTime(ThreadItem1.LastModified, ThreadItem2.LastModified); {gbcLastModified:}
gbcVigor:
begin
- NowDateTime := Now();
- SpanDay1 := DaySpan(NowDateTime, ThreadItem1.CreateDate);
- SpanDay2 := DaySpan(NowDateTime, ThreadItem2.CreateDate);
+ SpanDay1 := DaySpan(FSortDate, ThreadItem1.CreateDate);
+ SpanDay2 := DaySpan(FSortDate, ThreadItem2.CreateDate);
if (SpanDay1 > 0) and (SpanDay2 > 0) then begin
Result := CompareValue(
ThreadItem1.AllResCount / SpanDay1,
else
Result := 0;
end;
-
+procedure SetSortDate(Date: TDateTime);
+begin
+ FSortDate := Date;
+end;
+function GetSortDate(): TDateTime;
+begin
+ Result := FSortDate;
+end;
end.