・将来の拡張のため、TThreadItem にスレの URL を持たせるようになった。

diff --git a/BoardGroup.pas b/BoardGroup.pas
index 157251a..4ee2089 100644 (file)
--- a/BoardGroup.pas
+++ b/BoardGroup.pas
@@ -250,6 +250,7 @@ type
 
                FUpdate: Boolean;
                FExpand: Boolean;
+    FURL: string;
 
                procedure SetLastModified(d: TDateTime);
                procedure SetRound(b: Boolean);
@@ -257,6 +258,7 @@ type
                procedure SetKokomade(i: Integer);
                procedure SetUnRead(b: Boolean);
                procedure SetScrollTop(i: Integer);
+    function GetURLWrapper: string;
        public
                constructor Create;
                destructor Destroy; override;
@@ -295,6 +297,8 @@ type
                property DownloadHost: string read FDownloadHost write FDownloadHost;
                property AgeSage: TGikoAgeSage read FAgeSage write FAgeSage;
 //             property SPID: string read FSPID write FSPID;
+
+               property URL: string read GetURLWrapper write FURL;
        end;
 
 
@@ -1360,6 +1364,16 @@ begin
        FUpdate := True;
 end;
 
+function TThreadItem.GetURLWrapper: string;
+begin
+
+  If FURL = '' Then
+       Result := GikoSys.GetURL( ParentBoard.BBSID, FileName )
+  Else
+       Result := FURL;
+
+end;
+
 {initialization
        BBS2ch := TBBS2ch.Create;