・TThreadItem.InternalSkin を PlugInMain.InternalSkin から ThreadItemDat2HTML を利用するようにし...

diff --git a/res/ExternalBoardPlugIn/ThreadItem.pas b/res/ExternalBoardPlugIn/ThreadItem.pas
index 0eac3a4..25683c3 100644 (file)
--- a/res/ExternalBoardPlugIn/ThreadItem.pas
+++ b/res/ExternalBoardPlugIn/ThreadItem.pas
@@ -79,6 +79,17 @@ type
        ); stdcall;
 
        // *************************************************************************
+       // ThreadItemDat2HTML
+       // TThreadItem \83N\83\89\83X\82ð\8c³\82É\82Q\82¿\82á\82ñ\82Ë\82é\82Ì dat \8c`\8e® 1 \8ds\82ð HTML \82É\95Ï\8a·\82·\82é
+       // *************************************************************************
+       TThreadItemDat2HTML = function(
+               inInstance      : DWORD;                // \83N\83\89\83X\82Ì\83C\83\93\83X\83^\83\93\83X
+               inDatRes                : PChar;                // \96¼\91O<>\83\81\81[\83\8b<>\93ú\95tID<>\96{\95¶<> \82Å\8d\\90¬\82³\82ê\82½\83e\83L\83X\83g
+               inResNo                 : DWORD;                // \83\8c\83X\94Ô\8d\86
+               inIsNew                 : Boolean               // \90V\92\85\83\8c\83X\82È\82ç True
+       ) : PChar; stdcall;                             // \90®\8c`\82³\82ê\82½ HTML
+
+       // *************************************************************************
        // TThreadItem \82ª\90¶\90¬\82³\82ê\82½
        // *************************************************************************
        TThreadItemOnCreate = procedure(
@@ -120,9 +131,11 @@ type
        public
                // \83R\83\93\83X\83g\83\89\83N\83^
                constructor Create( inInstance : DWORD );
-               // \83f\83t\83H\83\8b\83g\82Ì\83X\83L\83\93\8f\88\97\9d
-               function        InternalSkin( inDatRes : string; inNo : Integer ) : string;
-               
+               // \83f\83t\83H\83\8b\83g\82Ì HTML \90®\8c`
+               function        Dat2HTML( inDatRes : string; inNo : Integer; inIsNew : Boolean ) : string; overload;
+               // \83f\83t\83H\83\8b\83g\82Ì HTML \90®\8c`(\8fÈ\97ª\8c`)
+               function        Dat2HTML( inDatRes : string; inNo : Integer ) : string; overload;
+
        private
                function        GetLong( propertyID : TThreadItemProperty ) : DWORD;
                procedure       SetLong( propertyID : TThreadItemProperty; param : DWORD );
@@ -221,6 +234,7 @@ var
        ThreadItemSetLong               : TThreadItemSetLong;
        ThreadItemGetDouble     : TThreadItemGetDouble;
        ThreadItemSetDouble     : TThreadItemSetDouble;
+       ThreadItemDat2HTML      : TThreadItemDat2HTML;
        ThreadItemOnCreate      : TThreadItemOnCreate;
        ThreadItemOnDispose     : TThreadItemOnDispose;
 
@@ -249,14 +263,34 @@ begin
 
 end;
 
-// \83f\83t\83H\83\8b\83g\82Ì\83X\83L\83\93\8f\88\97\9d
-function       TThreadItem.InternalSkin(
-       inDatRes : string;                                                                                      // \96¼\91O<>\83\81\81[\83\8b<>\93ú\95tID<>\96{\95¶<> \82Å\8d\\90¬\82³\82ê\82½\83e\83L\83X\83g
-       inNo : Integer                                                                                                  // \83\8c\83X\94Ô\8d\86
-) : string;
+// *************************************************************************
+// \83f\83t\83H\83\8b\83g\82Ì HTML \90®\8c`
+// *************************************************************************
+function       TThreadItem.Dat2HTML(
+       inDatRes        : string;                                                                                       // \96¼\91O<>\83\81\81[\83\8b<>\93ú\95tID<>\96{\95¶<> \82Å\8d\\90¬\82³\82ê\82½\83e\83L\83X\83g
+       inNo                    : Integer;                                                                              // \83\8c\83X\94Ô\8d\86
+       inIsNew         : Boolean                                                                                       // \90V\92\85\83\8c\83X\82È\82ç True
+) : string;                                                                                                                            // \90®\8c`\82³\82ê\82½ HTML
+var
+       tmp                             : PChar;
 begin
 
-       PlugInMain.InternalSkin( PChar( inDatRes ), inNo, inNo >= NewReceive );
+       tmp                     := ThreadItemDat2HTML( FInstance, PChar( inDatRes ), inNo, inIsNew );
+       Result  := string( tmp );
+       DisposeResultString( tmp );
+
+end;
+
+// *************************************************************************
+// \83f\83t\83H\83\8b\83g\82Ì HTML \90®\8c`(\8fÈ\97ª\8c`)
+// *************************************************************************
+function       TThreadItem.Dat2HTML(
+       inDatRes        : string;                                                                                       // \96¼\91O<>\83\81\81[\83\8b<>\93ú\95tID<>\96{\95¶<> \82Å\8d\\90¬\82³\82ê\82½\83e\83L\83X\83g
+       inNo                    : Integer                                                                                       // \83\8c\83X\94Ô\8d\86
+) : string;                                                                                                                            // \90®\8c`\82³\82ê\82½ HTML
+begin
+
+       Result := Dat2HTML( inDatRes, inNo, inNo >= NewReceive );
 
 end;
 
@@ -563,6 +597,9 @@ begin
        ThreadItemSetDouble := GetProcAddress( inModule, 'ThreadItemSetDouble' );
        if not Assigned( @ThreadItemSetDouble ) then
                System.ExitCode := 1;
+       ThreadItemDat2HTML := GetProcAddress( inModule, 'ThreadItemDat2HTML' );
+       if not Assigned( @ThreadItemDat2HTML ) then
+               System.ExitCode := 1;
 
 end;