svnno****@sourc*****
svnno****@sourc*****
2011年 1月 6日 (木) 08:32:02 JST
Revision: 1323
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1323
Author: anis774
Date: 2011-01-06 08:32:02 +0900 (Thu, 06 Jan 2011)
Log Message:
-----------
ビルドだけ通るように修正。サムネイル表示が不完全。
Modified Paths:
--------------
branches/OperationClean/Tween/PostBrowser.vb
branches/OperationClean/Tween/PostView.vb
branches/OperationClean/Tween/Tween.vb
-------------- next part --------------
Modified: branches/OperationClean/Tween/PostBrowser.vb
===================================================================
--- branches/OperationClean/Tween/PostBrowser.vb 2011-01-05 23:31:47 UTC (rev 1322)
+++ branches/OperationClean/Tween/PostBrowser.vb 2011-01-05 23:32:02 UTC (rev 1323)
@@ -28,7 +28,7 @@
Dim dTxt As String = createDetailHtml(If(value.IsDeleted, "(DELETED)", value.OriginalData))
- If DumpPostClassToolStripMenuItem.Checked Then
+ If Me.IsDumpPostMode Then
Dim sb As New StringBuilder(512)
sb.Append("-----Start PostClass Dump<br>")
@@ -73,11 +73,11 @@
If Me.WebBrowser1.DocumentText <> dTxt Then
Me.WebBrowser1.Visible = False
Me.WebBrowser1.DocumentText = dTxt
- Dim lnks As New List(Of String)
+
+ Me.Links.Clear()
For Each lnk As Match In Regex.Matches(dTxt, "<a target=""_self"" href=""(?<url>http[^""]+)""", RegexOptions.IgnoreCase)
- lnks.Add(lnk.Result("${url}"))
+ Me.Links.Add(lnk.Result("${url}"))
Next
- Thumbnail.thumbnail(value.Id, lnks)
End If
Catch ex As System.Runtime.InteropServices.COMException
'原因不明
@@ -89,6 +89,13 @@
End Set
End Property
+ Private _links As New List(Of String)
+ Public ReadOnly Property Links As List(Of String)
+ Get
+ Return Me._links
+ End Get
+ End Property
+
Private _isMonospace As Boolean
Public Property IsMonospace As Boolean
Get
@@ -156,6 +163,8 @@
End Set
End Property
+ Public Property IsDumpPostMode As Boolean = False
+
Public Function createDetailHtml(ByVal orgdata As String) As String
Return Me.detailHtmlFormatHeader + orgdata + Me.detailHtmlFormatFooter
End Function
Modified: branches/OperationClean/Tween/PostView.vb
===================================================================
--- branches/OperationClean/Tween/PostView.vb 2011-01-05 23:31:47 UTC (rev 1322)
+++ branches/OperationClean/Tween/PostView.vb 2011-01-05 23:32:02 UTC (rev 1323)
@@ -1,7 +1,7 @@
Imports System.Text.RegularExpressions
Public Class PostView
- Private Thumbnail As Thumbnail = New Thumbnail(Me)
+ Private Thumbnail As Thumbnail ' = New Thumbnail(Me)
Private _post As PostClass
Public Property Post As PostClass
@@ -62,6 +62,8 @@
Else
UserPicture.Image = Nothing
End If
+
+ Thumbnail.thumbnail(value.Id, Me.PostBrowser.Links)
End Set
Get
Return Me._post
Modified: branches/OperationClean/Tween/Tween.vb
===================================================================
--- branches/OperationClean/Tween/Tween.vb 2011-01-05 23:31:47 UTC (rev 1322)
+++ branches/OperationClean/Tween/Tween.vb 2011-01-05 23:32:02 UTC (rev 1323)
@@ -1024,7 +1024,7 @@
End If
'アイコンリスト作成
- TIconDic = New ImageDictionary(5000)
+ TIconDic = ImageDictionary.Instance
tw.DetailIcon = TIconDic