・TThreadItem に SizeByte プロパティを追加。

diff --git a/BoardGroup.pas b/BoardGroup.pas
index a597d33..e23081c 100644 (file)
--- a/BoardGroup.pas
+++ b/BoardGroup.pas
@@ -4,7 +4,7 @@ interface
 
 uses
        Windows, SysUtils, Classes, ComCtrls, IniFiles, {HTTPApp,} YofUtils, IdGlobal,
-  ExternalBoardManager;
+       ExternalBoardManager;
 
 type
        //\83\8a\83X\83g\82Ì\95\\8e¦\83A\83C\83e\83\80\91I\91ð
@@ -254,8 +254,9 @@ type
                FUpdate: Boolean;
                FExpand: Boolean;
                FURL                                    : string;                               // \82±\82Ì\83X\83\8c\82ð\83u\83\89\83E\83U\82Å\95\\8e¦\82·\82é\8dÛ\82Ì URL
-    FBoardPlugIn       : TBoardPlugIn; // \82±\82Ì\83X\83\8c\82ð\83T\83|\81[\83g\82·\82é\83v\83\89\83O\83C\83\93
-    FFilePath                  : string;                               // \82±\82Ì\83X\83\8c\82ª\95Û\91¶\82³\82ê\82Ä\82¢\82é\83p\83X
+               FBoardPlugIn    : TBoardPlugIn; // \82±\82Ì\83X\83\8c\82ð\83T\83|\81[\83g\82·\82é\83v\83\89\83O\83C\83\93
+               FFilePath                       : string;                               // \82±\82Ì\83X\83\8c\82ª\95Û\91¶\82³\82ê\82Ä\82¢\82é\83p\83X
+               FSizeByte                       : Integer;                      // CreateHTML2 \82ð\8eÀ\8ds\82µ\82Ä\82¢\82é\8dÅ\92\86\82É\88ê\8e\9e\93I\82É\95Û\91¶\82³\82ê\82é\92l
 
                procedure SetLastModified(d: TDateTime);
                procedure SetRound(b: Boolean);
@@ -266,7 +267,7 @@ type
                function GetURLWrapper: string;
        public
                constructor Create; overload;
-    constructor Create( inPlugIn : TBoardPlugIn; inURL : string = '' ); overload;
+               constructor Create( inPlugIn : TBoardPlugIn; inURL : string = '' ); overload;
                destructor Destroy; override;
 
                function GetDatURL: string;
@@ -307,8 +308,9 @@ type
 //             property SPID: string read FSPID write FSPID;
 
                property        URL                                     : string                                read GetURLWrapper write FURL;
-    property   BoardPlugIn     : TBoardPlugIn  read FBoardPlugIn;
-    property   FilePath                : string                                read FFilePath write FFilePath;
+               property        BoardPlugIn     : TBoardPlugIn  read FBoardPlugIn;
+               property        FilePath                : string                                read FFilePath write FFilePath;
+               property        SizeByte                : Integer                               read FSizeByte write FSizeByte;
        end;
 
 
@@ -1157,8 +1159,8 @@ begin
        FNewArrival := False;
 
        FUpdate := True;
-  FURL := '';
-  FBoardPlugIn := nil;
+       FURL := '';
+       FBoardPlugIn := nil;
 end;
 
 // *************************************************************************
@@ -1166,7 +1168,7 @@ end;
 // *************************************************************************
 constructor TThreadItem.Create(
        inPlugIn        : TBoardPlugIn;
-  inURL                        : string = ''
+       inURL                   : string = ''
 );
 begin
 
@@ -1175,14 +1177,14 @@ begin
        FBoardPlugIn    := inPlugIn;
        URL                                             := inURL;
 
-  inPlugIn.CreateThreadItem( DWORD( Self ) );
+       inPlugIn.CreateThreadItem( DWORD( Self ) );
 
 end;
 
 destructor TThreadItem.Destroy;
 begin
        if Assigned( Pointer( FBoardPlugIn ) ) then
-       FBoardPlugIn.DisposeThreadItem( DWORD( Self ) );
+               FBoardPlugIn.DisposeThreadItem( DWORD( Self ) );
 
        inherited;
 end;
@@ -1324,10 +1326,10 @@ end;
 function TThreadItem.GetThreadFileName: string;
 begin
        if Length( FilePath ) > 0 then
-       Result := FilePath
-  else
-    Result := ParentBoard.ParentCategory.ParentBBS2ch.GetLogFolder
-            + ParentBoard.BBSID + PATH_DELIM + FileName;
+               Result := FilePath
+       else
+               Result := ParentBoard.ParentCategory.ParentBBS2ch.GetLogFolder
+                                               + ParentBoard.BBSID + PATH_DELIM + FileName;
 end;
 
 procedure TThreadItem.SetLastModified(d: TDateTime);