レス番指定URLを踏んだときの処理用に

TThreadItemを拡張

diff --git a/res/ExternalBoardPlugIn/Be2chPlugIn.dpr b/res/ExternalBoardPlugIn/Be2chPlugIn.dpr
index a517ec2..989551b 100644 (file)
--- a/res/ExternalBoardPlugIn/Be2chPlugIn.dpr
+++ b/res/ExternalBoardPlugIn/Be2chPlugIn.dpr
@@ -79,7 +79,7 @@ const
        MAJOR_VERSION                   = 1;
        MINOR_VERSION                   = 0;
        RELEASE_VERSION         = 'alpha';
-       REVISION_VERSION        = 1;
+       REVISION_VERSION        = 2;
 
 // =========================================================================
 // \8eG\97p\8aÖ\90\94

diff --git a/res/ExternalBoardPlugIn/MachiBBSPlugIn.dpr b/res/ExternalBoardPlugIn/MachiBBSPlugIn.dpr
index 033b628..1748e54 100644 (file)
--- a/res/ExternalBoardPlugIn/MachiBBSPlugIn.dpr
+++ b/res/ExternalBoardPlugIn/MachiBBSPlugIn.dpr
@@ -83,7 +83,7 @@ const
        MAJOR_VERSION                   = 1;
        MINOR_VERSION                   = 0;
        RELEASE_VERSION         = 'beta';
-       REVISION_VERSION        = 15;
+       REVISION_VERSION        = 16;
 
 // =========================================================================
 // \8eG\97p\8aÖ\90\94

diff --git a/res/ExternalBoardPlugIn/ShitarabaJBBSPlugIn.dpr b/res/ExternalBoardPlugIn/ShitarabaJBBSPlugIn.dpr
index a472a15..2641268 100644 (file)
--- a/res/ExternalBoardPlugIn/ShitarabaJBBSPlugIn.dpr
+++ b/res/ExternalBoardPlugIn/ShitarabaJBBSPlugIn.dpr
@@ -2,7 +2,7 @@ library ShitarabaJBBSPlugIn;
 
 {
        ShitarabaJBBSPlugIn
-       $Id: ShitarabaJBBSPlugIn.dpr,v 1.41 2005/07/28 14:14:37 h677 Exp $
+       $Id: ShitarabaJBBSPlugIn.dpr,v 1.42 2006/02/21 15:36:17 h677 Exp $
 }
 
 uses
@@ -83,7 +83,7 @@ const
        MAJOR_VERSION                   = 1;
        MINOR_VERSION                   = 1;
        RELEASE_VERSION         = 'alpha';
-       REVISION_VERSION        = 12;
+       REVISION_VERSION        = 13;
 
        SYNCRONIZE_MENU_CAPTION = '\82µ\82½\82ç\82ÎJBBS\94Â\8dX\90V';
 

diff --git a/res/ExternalBoardPlugIn/ShitarabaJBBSPlugIn.res b/res/ExternalBoardPlugIn/ShitarabaJBBSPlugIn.res
index b058540..920b122 100644 (file)
Binary files a/res/ExternalBoardPlugIn/ShitarabaJBBSPlugIn.res and b/res/ExternalBoardPlugIn/ShitarabaJBBSPlugIn.res differ

diff --git a/res/ExternalBoardPlugIn/ThreadItem.pas b/res/ExternalBoardPlugIn/ThreadItem.pas
index af6f196..1726c77 100644 (file)
--- a/res/ExternalBoardPlugIn/ThreadItem.pas
+++ b/res/ExternalBoardPlugIn/ThreadItem.pas
@@ -38,7 +38,8 @@ type
                tipDownloadHost,                                // : string                     // \8d¡\82Ì\83z\83X\83g\82Æ\88á\82¤\8fê\8d\87\82Ì\83z\83X\83g
                tipAgeSage,                                                     // : TThreadAgeSage     // \83A\83C\83e\83\80\82Ì\8fã\82°\89º\82°
                tipURL,                                                                 // : string                     // \83X\83\8c\83b\83h\82ð\83u\83\89\83E\83U\82Å\95\\8e¦\82·\82é\8dÛ\82Ì URL
-               tipFilePath                                                     // : string                     // \82±\82Ì\83X\83\8c\82ª\95Û\91¶\82³\82ê\82Ä\82¢\82é\83p\83X
+               tipFilePath,                                                    // : string                     // \82±\82Ì\83X\83\8c\82ª\95Û\91¶\82³\82ê\82Ä\82¢\82é\83p\83X
+               tipJumpAddress                                                  // : Integer            // JUMP\90æ\83\8c\83X\94Ô\8d\86
        );
 
 
@@ -301,7 +302,8 @@ type
                procedure       SetURL( param : string );
                function        GetFilePath : string;
                {procedure      SetFilePath( param : string );}
-
+               procedure       SetJumpAddress( param : Integer );
+               function        GetJumpAddress : Integer;
        protected
                property        Instance                        : DWORD                                         read FInstance;
 
@@ -358,6 +360,8 @@ type
                property        URL                                             : string                                        read GetURL write SetURL;
                // \82±\82Ì\83X\83\8c\82ª\95Û\91¶\82³\82ê\82Ä\82¢\82é\83p\83X
                property        FilePath                        : string                                        read GetFilePath {write SetFilePath};
+               // JUMP\90æ\83\8c\83X\94Ô\8d\86
+               property        JumpAddress             : Integer       read GetJumpAddress write SetJumpAddress;
        end;
 
 var
@@ -765,6 +769,15 @@ begin
        Result  := string( tmp );
        DisposeResultString( tmp );
 end;
+function       TThreadItem.GetJumpAddress : Integer;
+begin
+       Result := GetLong( tipJumpAddress );
+end;
+
+procedure      TThreadItem.SetJumpAddress( param : Integer );
+begin
+       SetLong( tipJumpAddress, param );
+end;
 {
 procedure      TThreadItem.SetFilePath( param : string );
 begin