Changeset 29521

Show
Ignore:
Timestamp:
02/04/09 18:22:37 (4 years ago)
Author:
kiri_feather
Message:

解析時のクラス要素除去で問題があったので修正＆wedataにキー追加
複数行入力のショートカットをC-tに変更
コードから行選択する場合にinvalidateするように＆選択解除を簡素化

Location:
lang/vb2005/Tween/Tween
Files:
5 modified

Legend:

Unmodified
Added
Removed

  • lang/vb2005/Tween/Tween/AnalyzeKey.vb

    r29481 r29521  
    4141    Public _parseSource2 As String = """>" 
    4242    Public _parseSourceTo As String = "</a>" 
     43    Public _removeClass As String = "<li class=""hentry" 
    4344End Module 

  • lang/vb2005/Tween/Tween/Tween.Designer.vb

    r29206 r29521  
    486486        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SettingStripMenuItem, Me.ToolStripSeparator9, Me.SaveLogMenuItem, Me.ToolStripSeparator17, Me.NewPostPopMenuItem, Me.PlaySoundMenuItem, Me.ListLockMenuItem, Me.ToolStripSeparator15, Me.MultiLineMenuItem, Me.ToolStripSeparator21, Me.EndToolStripMenuItem}) 
    487487        Me.ContextMenuStrip1.Name = "ContextMenuStrip1" 
    488         Me.ContextMenuStrip1.OwnerItem = Me.MenuItemFile 
    489488        Me.ContextMenuStrip1.RenderMode = System.Windows.Forms.ToolStripRenderMode.Professional 
    490489        Me.ContextMenuStrip1.ShowCheckMargin = True 

  • lang/vb2005/Tween/Tween/Tween.resx

    r29454 r29521  
    325325    <value>262, 128</value> 
    326326  </metadata> 
     327  <data name="IconNameToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
     328    <value>120, 22</value> 
     329  </data> 
     330  <data name="IconNameToolStripMenuItem.Text" xml:space="preserve"> 
     331    <value>IconName</value> 
     332  </data> 
     333  <data name="ToolStripMenuItem1.Size" type="System.Drawing.Size, System.Drawing"> 
     334    <value>117, 6</value> 
     335  </data> 
     336  <data name="SaveIconPictureToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
     337    <value>120, 22</value> 
     338  </data> 
     339  <data name="SaveIconPictureToolStripMenuItem.Text" xml:space="preserve"> 
     340    <value>保存(&amp;I)...</value> 
     341  </data> 
    327342  <data name="ContextMenuStrip3.Size" type="System.Drawing.Size, System.Drawing"> 
    328343    <value>121, 54</value> 
    … …  
    394409    <value>244, 17</value> 
    395410  </metadata> 
     411  <data name="SearchItem1ToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
     412    <value>145, 22</value> 
     413  </data> 
     414  <data name="SearchItem1ToolStripMenuItem.Text" xml:space="preserve"> 
     415    <value>Wikipedia</value> 
     416  </data> 
     417  <data name="SearchItem2ToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
     418    <value>145, 22</value> 
     419  </data> 
     420  <data name="SearchItem2ToolStripMenuItem.Text" xml:space="preserve"> 
     421    <value>Google</value> 
     422  </data> 
     423  <data name="SearchItem3ToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
     424    <value>145, 22</value> 
     425  </data> 
     426  <data name="SearchItem3ToolStripMenuItem.Text" xml:space="preserve"> 
     427    <value>Twitter検索</value> 
     428  </data> 
     429  <data name="SearchItem4ToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
     430    <value>145, 22</value> 
     431  </data> 
     432  <data name="SearchItem4ToolStripMenuItem.Text" xml:space="preserve"> 
     433    <value>Twitter Search</value> 
     434  </data> 
     435  <data name="CurrentTabToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
     436    <value>145, 22</value> 
     437  </data> 
     438  <data name="CurrentTabToolStripMenuItem.Text" xml:space="preserve"> 
     439    <value>現在のタブ</value> 
     440  </data> 
     441  <data name="ToolStripMenuItem2.Size" type="System.Drawing.Size, System.Drawing"> 
     442    <value>166, 22</value> 
     443  </data> 
     444  <data name="ToolStripMenuItem2.Text" xml:space="preserve"> 
     445    <value>選択文字列で検索</value> 
     446  </data> 
     447  <data name="ToolStripSeparator13.Size" type="System.Drawing.Size, System.Drawing"> 
     448    <value>163, 6</value> 
     449  </data> 
     450  <data name="ToolStripMenuItem3.Size" type="System.Drawing.Size, System.Drawing"> 
     451    <value>166, 22</value> 
     452  </data> 
     453  <data name="ToolStripMenuItem3.Text" xml:space="preserve"> 
     454    <value>選択文字列をコピー</value> 
     455  </data> 
     456  <data name="ToolStripMenuItem4.Enabled" type="System.Boolean, mscorlib"> 
     457    <value>False</value> 
     458  </data> 
     459  <data name="ToolStripMenuItem4.Size" type="System.Drawing.Size, System.Drawing"> 
     460    <value>166, 22</value> 
     461  </data> 
     462  <data name="ToolStripMenuItem4.Text" xml:space="preserve"> 
     463    <value>URLをコピー</value> 
     464  </data> 
     465  <data name="ToolStripMenuItem5.Size" type="System.Drawing.Size, System.Drawing"> 
     466    <value>166, 22</value> 
     467  </data> 
     468  <data name="ToolStripMenuItem5.Text" xml:space="preserve"> 
     469    <value>すべて選択</value> 
     470  </data> 
    396471  <data name="ContextMenuStrip4.Size" type="System.Drawing.Size, System.Drawing"> 
    397472    <value>167, 98</value> 
    … …  
    724799    <value>None</value> 
    725800  </data> 
    726   <data name="MenuStrip1.Location" type="System.Drawing.Point, System.Drawing"> 
    727     <value>0, 0</value> 
    728   </data> 
    729   <data name="MenuStrip1.Size" type="System.Drawing.Size, System.Drawing"> 
    730     <value>468, 24</value> 
    731   </data> 
    732   <data name="MenuStrip1.TabIndex" type="System.Int32, mscorlib"> 
    733     <value>10</value> 
    734   </data> 
    735   <data name="MenuStrip1.Text" xml:space="preserve"> 
    736     <value>MenuStrip1</value> 
    737   </data> 
    738   <data name="&gt;&gt;MenuStrip1.Name" xml:space="preserve"> 
    739     <value>MenuStrip1</value> 
    740   </data> 
    741   <data name="&gt;&gt;MenuStrip1.Type" xml:space="preserve"> 
    742     <value>System.Windows.Forms.MenuStrip, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> 
    743   </data> 
    744   <data name="&gt;&gt;MenuStrip1.Parent" xml:space="preserve"> 
    745     <value>ToolStripContainer1.TopToolStripPanel</value> 
    746   </data> 
    747   <data name="&gt;&gt;MenuStrip1.ZOrder" xml:space="preserve"> 
    748     <value>0</value> 
    749   </data> 
    750   <data name="&gt;&gt;ToolStripContainer1.TopToolStripPanel.Name" xml:space="preserve"> 
    751     <value>ToolStripContainer1.TopToolStripPanel</value> 
    752   </data> 
    753   <data name="&gt;&gt;ToolStripContainer1.TopToolStripPanel.Type" xml:space="preserve"> 
    754     <value>System.Windows.Forms.ToolStripPanel, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> 
    755   </data> 
    756   <data name="&gt;&gt;ToolStripContainer1.TopToolStripPanel.Parent" xml:space="preserve"> 
    757     <value>ToolStripContainer1</value> 
    758   </data> 
    759   <data name="&gt;&gt;ToolStripContainer1.TopToolStripPanel.ZOrder" xml:space="preserve"> 
    760     <value>3</value> 
    761   </data> 
    762   <data name="&gt;&gt;ToolStripContainer1.Name" xml:space="preserve"> 
    763     <value>ToolStripContainer1</value> 
    764   </data> 
    765   <data name="&gt;&gt;ToolStripContainer1.Type" xml:space="preserve"> 
    766     <value>System.Windows.Forms.ToolStripContainer, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> 
    767   </data> 
    768   <data name="&gt;&gt;ToolStripContainer1.Parent" xml:space="preserve"> 
    769     <value>$this</value> 
    770   </data> 
    771   <data name="&gt;&gt;ToolStripContainer1.ZOrder" xml:space="preserve"> 
    772     <value>5</value> 
    773   </data> 
    774   <data name="IconNameToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
    775     <value>120, 22</value> 
    776   </data> 
    777   <data name="IconNameToolStripMenuItem.Text" xml:space="preserve"> 
    778     <value>IconName</value> 
    779   </data> 
    780   <data name="ToolStripMenuItem1.Size" type="System.Drawing.Size, System.Drawing"> 
    781     <value>117, 6</value> 
    782   </data> 
    783   <data name="SaveIconPictureToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
    784     <value>120, 22</value> 
    785   </data> 
    786   <data name="SaveIconPictureToolStripMenuItem.Text" xml:space="preserve"> 
    787     <value>保存(&amp;I)...</value> 
    788   </data> 
    789   <data name="ToolStripMenuItem2.Size" type="System.Drawing.Size, System.Drawing"> 
    790     <value>166, 22</value> 
    791   </data> 
    792   <data name="ToolStripMenuItem2.Text" xml:space="preserve"> 
    793     <value>選択文字列で検索</value> 
    794   </data> 
    795   <data name="SearchItem1ToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
    796     <value>145, 22</value> 
    797   </data> 
    798   <data name="SearchItem1ToolStripMenuItem.Text" xml:space="preserve"> 
    799     <value>Wikipedia</value> 
    800   </data> 
    801   <data name="SearchItem2ToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
    802     <value>145, 22</value> 
    803   </data> 
    804   <data name="SearchItem2ToolStripMenuItem.Text" xml:space="preserve"> 
    805     <value>Google</value> 
    806   </data> 
    807   <data name="SearchItem3ToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
    808     <value>145, 22</value> 
    809   </data> 
    810   <data name="SearchItem3ToolStripMenuItem.Text" xml:space="preserve"> 
    811     <value>Twitter検索</value> 
    812   </data> 
    813   <data name="SearchItem4ToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
    814     <value>145, 22</value> 
    815   </data> 
    816   <data name="SearchItem4ToolStripMenuItem.Text" xml:space="preserve"> 
    817     <value>Twitter Search</value> 
    818   </data> 
    819   <data name="CurrentTabToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
    820     <value>145, 22</value> 
    821   </data> 
    822   <data name="CurrentTabToolStripMenuItem.Text" xml:space="preserve"> 
    823     <value>現在のタブ</value> 
    824   </data> 
    825   <data name="ToolStripSeparator13.Size" type="System.Drawing.Size, System.Drawing"> 
    826     <value>163, 6</value> 
    827   </data> 
    828   <data name="ToolStripMenuItem3.Size" type="System.Drawing.Size, System.Drawing"> 
    829     <value>166, 22</value> 
    830   </data> 
    831   <data name="ToolStripMenuItem3.Text" xml:space="preserve"> 
    832     <value>選択文字列をコピー</value> 
    833   </data> 
    834   <data name="ToolStripMenuItem4.Enabled" type="System.Boolean, mscorlib"> 
    835     <value>False</value> 
    836   </data> 
    837   <data name="ToolStripMenuItem4.Size" type="System.Drawing.Size, System.Drawing"> 
    838     <value>166, 22</value> 
    839   </data> 
    840   <data name="ToolStripMenuItem4.Text" xml:space="preserve"> 
    841     <value>URLをコピー</value> 
    842   </data> 
    843   <data name="ToolStripMenuItem5.Size" type="System.Drawing.Size, System.Drawing"> 
    844     <value>166, 22</value> 
    845   </data> 
    846   <data name="ToolStripMenuItem5.Text" xml:space="preserve"> 
    847     <value>すべて選択</value> 
    848   </data> 
    849801  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> 
    850802    <value>17, 54</value> 
    … …  
    890842  </data> 
    891843  <data name="MultiLineMenuItem.ShortcutKeys" type="System.Windows.Forms.Keys, System.Windows.Forms"> 
    892     <value>Ctrl+K</value> 
     844    <value>Ctrl+T</value> 
    893845  </data> 
    894846  <data name="MultiLineMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
    … …  
    925877    <value>ファイル(&amp;F)</value> 
    926878  </data> 
     879  <data name="CopySTOTMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
     880    <value>214, 22</value> 
     881  </data> 
     882  <data name="CopySTOTMenuItem.Text" xml:space="preserve"> 
     883    <value>コピー（STOT形式テキスト）(&amp;C)</value> 
     884  </data> 
     885  <data name="CopyURLMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
     886    <value>214, 22</value> 
     887  </data> 
     888  <data name="CopyURLMenuItem.Text" xml:space="preserve"> 
     889    <value>コピー（ステータスURL）(&amp;S)</value> 
     890  </data> 
     891  <data name="ToolStripSeparator6.Size" type="System.Drawing.Size, System.Drawing"> 
     892    <value>211, 6</value> 
     893  </data> 
     894  <data name="MenuItemSubSearch.ShortcutKeys" type="System.Windows.Forms.Keys, System.Windows.Forms"> 
     895    <value>Ctrl+F</value> 
     896  </data> 
     897  <data name="MenuItemSubSearch.Size" type="System.Drawing.Size, System.Drawing"> 
     898    <value>214, 22</value> 
     899  </data> 
     900  <data name="MenuItemSubSearch.Text" xml:space="preserve"> 
     901    <value>検索(&amp;F)...</value> 
     902  </data> 
     903  <data name="MenuItemSearchNext.ShortcutKeys" type="System.Windows.Forms.Keys, System.Windows.Forms"> 
     904    <value>F3</value> 
     905  </data> 
     906  <data name="MenuItemSearchNext.Size" type="System.Drawing.Size, System.Drawing"> 
     907    <value>214, 22</value> 
     908  </data> 
     909  <data name="MenuItemSearchNext.Text" xml:space="preserve"> 
     910    <value>次を検索(&amp;X)</value> 
     911  </data> 
     912  <data name="MenuItemSearchPrev.ShortcutKeys" type="System.Windows.Forms.Keys, System.Windows.Forms"> 
     913    <value>Shift+F3</value> 
     914  </data> 
     915  <data name="MenuItemSearchPrev.Size" type="System.Drawing.Size, System.Drawing"> 
     916    <value>214, 22</value> 
     917  </data> 
     918  <data name="MenuItemSearchPrev.Text" xml:space="preserve"> 
     919    <value>前を検索(&amp;P)</value> 
     920  </data> 
    927921  <data name="MenuItemEdit.Size" type="System.Drawing.Size, System.Drawing"> 
    928922    <value>56, 20</value> 
    … …  
    930924  <data name="MenuItemEdit.Text" xml:space="preserve"> 
    931925    <value>編集(&amp;E)</value> 
    932   </data> 
    933   <data name="CopySTOTMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
    934     <value>214, 22</value> 
    935   </data> 
    936   <data name="CopySTOTMenuItem.Text" xml:space="preserve"> 
    937     <value>コピー（STOT形式テキスト）(&amp;C)</value> 
    938   </data> 
    939   <data name="CopyURLMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
    940     <value>214, 22</value> 
    941   </data> 
    942   <data name="CopyURLMenuItem.Text" xml:space="preserve"> 
    943     <value>コピー（ステータスURL）(&amp;S)</value> 
    944   </data> 
    945   <data name="ToolStripSeparator6.Size" type="System.Drawing.Size, System.Drawing"> 
    946     <value>211, 6</value> 
    947   </data> 
    948   <data name="MenuItemSubSearch.ShortcutKeys" type="System.Windows.Forms.Keys, System.Windows.Forms"> 
    949     <value>Ctrl+F</value> 
    950   </data> 
    951   <data name="MenuItemSubSearch.Size" type="System.Drawing.Size, System.Drawing"> 
    952     <value>214, 22</value> 
    953   </data> 
    954   <data name="MenuItemSubSearch.Text" xml:space="preserve"> 
    955     <value>検索(&amp;F)...</value> 
    956   </data> 
    957   <data name="MenuItemSearchNext.ShortcutKeys" type="System.Windows.Forms.Keys, System.Windows.Forms"> 
    958     <value>F3</value> 
    959   </data> 
    960   <data name="MenuItemSearchNext.Size" type="System.Drawing.Size, System.Drawing"> 
    961     <value>214, 22</value> 
    962   </data> 
    963   <data name="MenuItemSearchNext.Text" xml:space="preserve"> 
    964     <value>次を検索(&amp;X)</value> 
    965   </data> 
    966   <data name="MenuItemSearchPrev.ShortcutKeys" type="System.Windows.Forms.Keys, System.Windows.Forms"> 
    967     <value>Shift+F3</value> 
    968   </data> 
    969   <data name="MenuItemSearchPrev.Size" type="System.Drawing.Size, System.Drawing"> 
    970     <value>214, 22</value> 
    971   </data> 
    972   <data name="MenuItemSearchPrev.Text" xml:space="preserve"> 
    973     <value>前を検索(&amp;P)</value> 
    974926  </data> 
    975927  <metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> 
    … …  
    11951147    <value>操作(&amp;O)</value> 
    11961148  </data> 
     1149  <data name="UrlConvertAutoToolStripMenuItem.ShortcutKeys" type="System.Windows.Forms.Keys, System.Windows.Forms"> 
     1150    <value>Ctrl+L</value> 
     1151  </data> 
     1152  <data name="UrlConvertAutoToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
     1153    <value>215, 22</value> 
     1154  </data> 
     1155  <data name="UrlConvertAutoToolStripMenuItem.Text" xml:space="preserve"> 
     1156    <value>短縮サービス自動選択</value> 
     1157  </data> 
     1158  <data name="UrlUndoToolStripMenuItem.Enabled" type="System.Boolean, mscorlib"> 
     1159    <value>False</value> 
     1160  </data> 
     1161  <data name="UrlUndoToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
     1162    <value>215, 22</value> 
     1163  </data> 
     1164  <data name="UrlUndoToolStripMenuItem.Text" xml:space="preserve"> 
     1165    <value>元に戻す</value> 
     1166  </data> 
     1167  <data name="TinyURLToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
     1168    <value>215, 22</value> 
     1169  </data> 
     1170  <data name="TinyURLToolStripMenuItem.Text" xml:space="preserve"> 
     1171    <value>TinyURL</value> 
     1172  </data> 
     1173  <data name="IsgdToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
     1174    <value>215, 22</value> 
     1175  </data> 
     1176  <data name="IsgdToolStripMenuItem.Text" xml:space="preserve"> 
     1177    <value>is.gd</value> 
     1178  </data> 
     1179  <data name="TinyUrlConvertToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
     1180    <value>195, 22</value> 
     1181  </data> 
     1182  <data name="TinyUrlConvertToolStripMenuItem.Text" xml:space="preserve"> 
     1183    <value>入力欄のURLを短縮変換</value> 
     1184  </data> 
     1185  <data name="GetFollowersDiffToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
     1186    <value>191, 22</value> 
     1187  </data> 
     1188  <data name="GetFollowersDiffToolStripMenuItem.Text" xml:space="preserve"> 
     1189    <value>現在からの増加分を取得</value> 
     1190  </data> 
     1191  <data name="GetFollowersAllToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
     1192    <value>191, 22</value> 
     1193  </data> 
     1194  <data name="GetFollowersAllToolStripMenuItem.Text" xml:space="preserve"> 
     1195    <value>全て再取得</value> 
     1196  </data> 
     1197  <data name="UpdateFollowersMenuItem1.Size" type="System.Drawing.Size, System.Drawing"> 
     1198    <value>195, 22</value> 
     1199  </data> 
     1200  <data name="UpdateFollowersMenuItem1.Text" xml:space="preserve"> 
     1201    <value>片思いユーザーリスト取得</value> 
     1202  </data> 
    11971203  <data name="MenuItemCommand.Size" type="System.Drawing.Size, System.Drawing"> 
    11981204    <value>68, 20</value> 
    … …  
    12011207    <value>コマンド(&amp;C)</value> 
    12021208  </data> 
    1203   <data name="TinyUrlConvertToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
    1204     <value>195, 22</value> 
    1205   </data> 
    1206   <data name="TinyUrlConvertToolStripMenuItem.Text" xml:space="preserve"> 
    1207     <value>入力欄のURLを短縮変換</value> 
    1208   </data> 
    1209   <data name="UrlConvertAutoToolStripMenuItem.ShortcutKeys" type="System.Windows.Forms.Keys, System.Windows.Forms"> 
    1210     <value>Ctrl+L</value> 
    1211   </data> 
    1212   <data name="UrlConvertAutoToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
    1213     <value>215, 22</value> 
    1214   </data> 
    1215   <data name="UrlConvertAutoToolStripMenuItem.Text" xml:space="preserve"> 
    1216     <value>短縮サービス自動選択</value> 
    1217   </data> 
    1218   <data name="UrlUndoToolStripMenuItem.Enabled" type="System.Boolean, mscorlib"> 
    1219     <value>False</value> 
    1220   </data> 
    1221   <data name="UrlUndoToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
    1222     <value>215, 22</value> 
    1223   </data> 
    1224   <data name="UrlUndoToolStripMenuItem.Text" xml:space="preserve"> 
    1225     <value>元に戻す</value> 
    1226   </data> 
    1227   <data name="TinyURLToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
    1228     <value>215, 22</value> 
    1229   </data> 
    1230   <data name="TinyURLToolStripMenuItem.Text" xml:space="preserve"> 
    1231     <value>TinyURL</value> 
    1232   </data> 
    1233   <data name="IsgdToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
    1234     <value>215, 22</value> 
    1235   </data> 
    1236   <data name="IsgdToolStripMenuItem.Text" xml:space="preserve"> 
    1237     <value>is.gd</value> 
    1238   </data> 
    1239   <data name="UpdateFollowersMenuItem1.Size" type="System.Drawing.Size, System.Drawing"> 
    1240     <value>195, 22</value> 
    1241   </data> 
    1242   <data name="UpdateFollowersMenuItem1.Text" xml:space="preserve"> 
    1243     <value>片思いユーザーリスト取得</value> 
    1244   </data> 
    1245   <data name="GetFollowersDiffToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
     1209  <data name="MatomeMenuItem.ShortcutKeys" type="System.Windows.Forms.Keys, System.Windows.Forms"> 
     1210    <value>F1</value> 
     1211  </data> 
     1212  <data name="MatomeMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
    12461213    <value>191, 22</value> 
    12471214  </data> 
    1248   <data name="GetFollowersDiffToolStripMenuItem.Text" xml:space="preserve"> 
    1249     <value>現在からの増加分を取得</value> 
    1250   </data> 
    1251   <data name="GetFollowersAllToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
     1215  <data name="MatomeMenuItem.Text" xml:space="preserve"> 
     1216    <value>Tweenまとめサイト(&amp;H)</value> 
     1217  </data> 
     1218  <data name="ToolStripSeparator12.Size" type="System.Drawing.Size, System.Drawing"> 
     1219    <value>188, 6</value> 
     1220  </data> 
     1221  <data name="OfficialMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
    12521222    <value>191, 22</value> 
    12531223  </data> 
    1254   <data name="GetFollowersAllToolStripMenuItem.Text" xml:space="preserve"> 
    1255     <value>全て再取得</value> 
     1224  <data name="OfficialMenuItem.Text" xml:space="preserve"> 
     1225    <value>公式ページ(&amp;O)</value> 
     1226  </data> 
     1227  <data name="DLPageMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
     1228    <value>191, 22</value> 
     1229  </data> 
     1230  <data name="DLPageMenuItem.Text" xml:space="preserve"> 
     1231    <value>配布ページ(&amp;D)</value> 
     1232  </data> 
     1233  <data name="ToolStripSeparator16.Size" type="System.Drawing.Size, System.Drawing"> 
     1234    <value>188, 6</value> 
     1235  </data> 
     1236  <data name="VerUpMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
     1237    <value>191, 22</value> 
     1238  </data> 
     1239  <data name="VerUpMenuItem.Text" xml:space="preserve"> 
     1240    <value>最新版の取得(&amp;G)</value> 
     1241  </data> 
     1242  <data name="WedataMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
     1243    <value>191, 22</value> 
     1244  </data> 
     1245  <data name="WedataMenuItem.Text" xml:space="preserve"> 
     1246    <value>解析キー情報更新</value> 
     1247  </data> 
     1248  <data name="ToolStripSeparator14.Size" type="System.Drawing.Size, System.Drawing"> 
     1249    <value>188, 6</value> 
     1250  </data> 
     1251  <data name="InfoTwitterMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
     1252    <value>191, 22</value> 
     1253  </data> 
     1254  <data name="InfoTwitterMenuItem.Text" xml:space="preserve"> 
     1255    <value>Twitterからのお知らせ(&amp;I)</value> 
     1256  </data> 
     1257  <data name="ToolStripSeparator7.Size" type="System.Drawing.Size, System.Drawing"> 
     1258    <value>188, 6</value> 
     1259  </data> 
     1260  <data name="AboutMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
     1261    <value>191, 22</value> 
     1262  </data> 
     1263  <data name="AboutMenuItem.Text" xml:space="preserve"> 
     1264    <value>Tweenについて(&amp;A)...</value> 
    12561265  </data> 
    12571266  <data name="MenuItemHelp.Size" type="System.Drawing.Size, System.Drawing"> 
    … …  
    12611270    <value>ヘルプ(&amp;H)</value> 
    12621271  </data> 
    1263   <data name="MatomeMenuItem.ShortcutKeys" type="System.Windows.Forms.Keys, System.Windows.Forms"> 
    1264     <value>F1</value> 
    1265   </data> 
    1266   <data name="MatomeMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
    1267     <value>191, 22</value> 
    1268   </data> 
    1269   <data name="MatomeMenuItem.Text" xml:space="preserve"> 
    1270     <value>Tweenまとめサイト(&amp;H)</value> 
    1271   </data> 
    1272   <data name="ToolStripSeparator12.Size" type="System.Drawing.Size, System.Drawing"> 
    1273     <value>188, 6</value> 
    1274   </data> 
    1275   <data name="OfficialMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
    1276     <value>191, 22</value> 
    1277   </data> 
    1278   <data name="OfficialMenuItem.Text" xml:space="preserve"> 
    1279     <value>公式ページ(&amp;O)</value> 
    1280   </data> 
    1281   <data name="DLPageMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
    1282     <value>191, 22</value> 
    1283   </data> 
    1284   <data name="DLPageMenuItem.Text" xml:space="preserve"> 
    1285     <value>配布ページ(&amp;D)</value> 
    1286   </data> 
    1287   <data name="ToolStripSeparator16.Size" type="System.Drawing.Size, System.Drawing"> 
    1288     <value>188, 6</value> 
    1289   </data> 
    1290   <data name="VerUpMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
    1291     <value>191, 22</value> 
    1292   </data> 
    1293   <data name="VerUpMenuItem.Text" xml:space="preserve"> 
    1294     <value>最新版の取得(&amp;G)</value> 
    1295   </data> 
    1296   <data name="WedataMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
    1297     <value>191, 22</value> 
    1298   </data> 
    1299   <data name="WedataMenuItem.Text" xml:space="preserve"> 
    1300     <value>解析キー情報更新</value> 
    1301   </data> 
    1302   <data name="ToolStripSeparator14.Size" type="System.Drawing.Size, System.Drawing"> 
    1303     <value>188, 6</value> 
    1304   </data> 
    1305   <data name="InfoTwitterMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
    1306     <value>191, 22</value> 
    1307   </data> 
    1308   <data name="InfoTwitterMenuItem.Text" xml:space="preserve"> 
    1309     <value>Twitterからのお知らせ(&amp;I)</value> 
    1310   </data> 
    1311   <data name="ToolStripSeparator7.Size" type="System.Drawing.Size, System.Drawing"> 
    1312     <value>188, 6</value> 
    1313   </data> 
    1314   <data name="AboutMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
    1315     <value>191, 22</value> 
    1316   </data> 
    1317   <data name="AboutMenuItem.Text" xml:space="preserve"> 
    1318     <value>Tweenについて(&amp;A)...</value> 
     1272  <data name="MenuStrip1.Location" type="System.Drawing.Point, System.Drawing"> 
     1273    <value>0, 0</value> 
     1274  </data> 
     1275  <data name="MenuStrip1.Size" type="System.Drawing.Size, System.Drawing"> 
     1276    <value>468, 24</value> 
     1277  </data> 
     1278  <data name="MenuStrip1.TabIndex" type="System.Int32, mscorlib"> 
     1279    <value>10</value> 
     1280  </data> 
     1281  <data name="MenuStrip1.Text" xml:space="preserve"> 
     1282    <value>MenuStrip1</value> 
     1283  </data> 
     1284  <data name="&gt;&gt;MenuStrip1.Name" xml:space="preserve"> 
     1285    <value>MenuStrip1</value> 
     1286  </data> 
     1287  <data name="&gt;&gt;MenuStrip1.Type" xml:space="preserve"> 
     1288    <value>System.Windows.Forms.MenuStrip, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> 
     1289  </data> 
     1290  <data name="&gt;&gt;MenuStrip1.Parent" xml:space="preserve"> 
     1291    <value>ToolStripContainer1.TopToolStripPanel</value> 
     1292  </data> 
     1293  <data name="&gt;&gt;MenuStrip1.ZOrder" xml:space="preserve"> 
     1294    <value>0</value> 
     1295  </data> 
     1296  <data name="&gt;&gt;ToolStripContainer1.TopToolStripPanel.Name" xml:space="preserve"> 
     1297    <value>ToolStripContainer1.TopToolStripPanel</value> 
     1298  </data> 
     1299  <data name="&gt;&gt;ToolStripContainer1.TopToolStripPanel.Type" xml:space="preserve"> 
     1300    <value>System.Windows.Forms.ToolStripPanel, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> 
     1301  </data> 
     1302  <data name="&gt;&gt;ToolStripContainer1.TopToolStripPanel.Parent" xml:space="preserve"> 
     1303    <value>ToolStripContainer1</value> 
     1304  </data> 
     1305  <data name="&gt;&gt;ToolStripContainer1.TopToolStripPanel.ZOrder" xml:space="preserve"> 
     1306    <value>3</value> 
     1307  </data> 
     1308  <data name="&gt;&gt;ToolStripContainer1.Name" xml:space="preserve"> 
     1309    <value>ToolStripContainer1</value> 
     1310  </data> 
     1311  <data name="&gt;&gt;ToolStripContainer1.Type" xml:space="preserve"> 
     1312    <value>System.Windows.Forms.ToolStripContainer, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> 
     1313  </data> 
     1314  <data name="&gt;&gt;ToolStripContainer1.Parent" xml:space="preserve"> 
     1315    <value>$this</value> 
     1316  </data> 
     1317  <data name="&gt;&gt;ToolStripContainer1.ZOrder" xml:space="preserve"> 
     1318    <value>5</value> 
    13191319  </data> 
    13201320  <metadata name="TimerTimeline.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> 

  • lang/vb2005/Tween/Tween/Tween.vb

    r29502 r29521  
    841841                End If 
    842842                lst.VirtualListSize = tabInfo.AllCount 'リスト件数更新 
    843                 Me.SelectListItem(lst, _ 
    844                                   _statuses.GetIndex(tab.Text, selId(tab.Text)), _ 
    845                                   _statuses.GetIndex(tab.Text, focusedId(tab.Text))) 
     843                If lst.Equals(_curList) Then 
     844                    Me.SelectListItem(lst, _ 
     845                                      _statuses.GetIndex(tab.Text, selId(tab.Text)), _ 
     846                                      _statuses.GetIndex(tab.Text, focusedId(tab.Text))) 
     847                End If 
    846848            End If 
    847849            If tabInfo.UnreadCount > 0 AndAlso tab.ImageIndex = -1 Then tab.ImageIndex = 0 'タブアイコン 
    … …  
    24572459        If e.ItemState = 0 Then Exit Sub 
    24582460        If e.ColumnIndex > 0 Then 
     2461            Dim rct As RectangleF = e.Bounds 
     2462            rct.Width = e.Header.Width 
    24592463            'アイコン以外の列 
    24602464            If Not e.Item.Selected Then     'e.ItemStateでうまく判定できない？？？ 
    … …  
    24742478                        brs = New SolidBrush(e.Item.ForeColor) 
    24752479                End Select 
    2476                 e.Graphics.DrawString(e.SubItem.Text, e.Item.Font, brs, e.Bounds, sf) 
     2480                If rct.Width > 0 Then e.Graphics.DrawString(e.SubItem.Text, e.Item.Font, brs, rct, sf) 
    24772481            Else 
    2478                 '選択中の行 
    2479                 If DirectCast(sender, Windows.Forms.Control).Focused Then 
    2480                     e.Graphics.DrawString(e.SubItem.Text, e.Item.Font, _brsHighLightText, e.Bounds, sf) 
    2481                 Else 
    2482                     e.Graphics.DrawString(e.SubItem.Text, e.Item.Font, _brsForeColorUnread, e.Bounds, sf) 
    2483                 End If 
    2484             End If 
    2485         Else 
    2486             'アイコン列はデフォルト描画 
    2487             e.DrawDefault = True 
     2482                If rct.Width > 0 Then 
     2483                    '選択中の行 
     2484                    If DirectCast(sender, Windows.Forms.Control).Focused Then 
     2485                        e.Graphics.DrawString(e.SubItem.Text, e.Item.Font, _brsHighLightText, rct, sf) 
     2486                    Else 
     2487                        e.Graphics.DrawString(e.SubItem.Text, e.Item.Font, _brsForeColorUnread, rct, sf) 
     2488                    End If 
     2489                End If 
     2490            End If 
     2491        Else 
     2492                'アイコン列はデフォルト描画 
     2493                e.DrawDefault = True 
    24882494        End If 
    24892495    End Sub 
    … …  
    26852691 
    26862692        If lst.VirtualListSize > 0 AndAlso idx > -1 Then 
    2687             Dim bnd As Rectangle = lst.FocusedItem.GetBounds(ItemBoundsPortion.Entire) 
    26882693            SelectListItem(lst, idx) 
    2689             lst.Invalidate(bnd) 
    26902694            If _statuses.SortMode = IdComparerClass.ComparerMode.Id Then 
    26912695                If _statuses.SortOrder = SortOrder.Ascending AndAlso lst.Items(idx).Position.Y > lst.ClientSize.Height - _iconSz - 10 OrElse _ 
    … …  
    45704574            Case 5 
    45714575                _section.Width6 = e.NewWidth 
    4572             Case 5 
     4576            Case 6 
    45734577                _section.Width7 = e.NewWidth 
    45744578            Case 7 
    … …  
    47564760    Private Sub SelectListItem(ByVal LView As DetailsListView, ByVal Index As Integer) 
    47574761        '単一 
    4758         For i As Integer = _curList.SelectedIndices.Count - 1 To 0 Step -1 
    4759             LView.Items(i).Selected = False 
    4760         Next 
     4762        Dim bnd As Rectangle 
     4763        Dim flg As Boolean = False 
     4764        If LView.FocusedItem IsNot Nothing Then 
     4765            bnd = LView.FocusedItem.Bounds 
     4766            flg = True 
     4767        End If 
     4768        'For i As Integer = _curList.SelectedIndices.Count - 1 To 0 Step -1 
     4769        '    LView.Items(i).Selected = False 
     4770        'Next 
    47614771        LView.SelectedIndices.Clear() 
    47624772        LView.Items(Index).Selected = True 
    47634773        LView.Items(Index).Focused = True 
     4774        If flg Then LView.Invalidate(bnd) 
    47644775    End Sub 
    47654776 
    47664777    Private Sub SelectListItem(ByVal LView As DetailsListView, ByVal Index() As Integer, ByVal FocusedIndex As Integer) 
    47674778        '複数 
    4768         For i As Integer = LView.SelectedIndices.Count - 1 To 0 Step -1 
    4769             LView.Items(LView.SelectedIndices(i)).Selected = False 
    4770         Next 
     4779        Dim bnd As Rectangle 
     4780        Dim flg As Boolean = False 
     4781        If LView.FocusedItem IsNot Nothing Then 
     4782            bnd = LView.FocusedItem.Bounds 
     4783            flg = True 
     4784        End If 
     4785        'For i As Integer = LView.SelectedIndices.Count - 1 To 0 Step -1 
     4786        '    LView.Items(LView.SelectedIndices(i)).Selected = False 
     4787        'Next 
    47714788        LView.SelectedIndices.Clear() 
    47724789        If Index IsNot Nothing Then 
    47734790            For Each idx As Integer In Index 
    4774                 LView.Items(idx).Selected = True 
     4791                'LView.Items(idx).Selected = True 
     4792                LView.SelectedIndices.Add(idx) 
    47754793            Next 
    47764794        End If 
    … …  
    47784796            LView.Items(FocusedIndex).Focused = True 
    47794797        End If 
     4798        If flg Then LView.Invalidate(bnd) 
    47804799    End Sub 
    47814800 

  • lang/vb2005/Tween/Tween/Twitter.vb

    r29481 r29521  
    129129    '''Wedata対応 
    130130    Private Const wedataUrl As String = "http://wedata.net/databases/Tween/items.json" 
    131     'テーブル 
    132     Private Const tbGetMsgDM As String = "GetMsgDM" 
    133     Private Const tbSplitDM As String = "SplitDM" 
    134     Private Const tbFollower As String = "Follower" 
    135     Private Const tbGetStar As String = "GetStar" 
    136     Private Const tbIsReply As String = "IsReply" 
    137     Private Const tbGetDate As String = "GetDate" 
    138     Private Const tbGetMsg As String = "GetMsg" 
    139     Private Const tbIsProtect As String = "IsProtect" 
    140     Private Const tbGetImagePath As String = "GetImagePath" 
    141     Private Const tbGetNick As String = "GetNick" 
    142     Private Const tbGetName As String = "GetName" 
    143     'Private Const tbGetSiv As String = "GetSiv" 
    144     Private Const tbStatusID As String = "StatusID" 
    145     Private Const tbSplitPostRecent As String = "SplitPostRecent" 
    146     Private Const tbAuthKey As String = "AuthKey" 
    147     Private Const tbInfoTwitter As String = "InfoTwitter" 
    148     Private Const tbSplitPostReply As String = "SplitPostReply" 
    149     Private Const tbGetDMCount As String = "GetDMCount" 
    150     '属性 
    151     Private Const tbTagFrom As String = "tagfrom" 
    152     Private Const tbTagTo As String = "tagto" 
    153     Private Const tbTag As String = "tag" 
    154     Private Const tbTagMbrFrom As String = "tagmbrfrom" 
    155     Private Const tbTagMbrFrom2 As String = "tagmbrfrom2" 
    156     Private Const tbTagMbrTo As String = "tagmbrto" 
    157     Private Const tbTagStatus As String = "status" 
    158     Private Const tbTagJpnFrom As String = "tagjpnfrom" 
    159     Private Const tbTagEngFrom As String = "tagengfrom" 
     131    'テーブル（未使用） 
     132    'Private Const tbGetMsgDM As String = "GetMsgDM" 
     133    'Private Const tbSplitDM As String = "SplitDM" 
     134    'Private Const tbFollower As String = "Follower" 
     135    'Private Const tbGetStar As String = "GetStar" 
     136    'Private Const tbIsReply As String = "IsReply" 
     137    'Private Const tbGetDate As String = "GetDate" 
     138    'Private Const tbGetMsg As String = "GetMsg" 
     139    'Private Const tbIsProtect As String = "IsProtect" 
     140    'Private Const tbGetImagePath As String = "GetImagePath" 
     141    'Private Const tbGetNick As String = "GetNick" 
     142    'Private Const tbGetName As String = "GetName" 
     143    ''Private Const tbGetSiv As String = "GetSiv" 
     144    'Private Const tbStatusID As String = "StatusID" 
     145    'Private Const tbSplitPostRecent As String = "SplitPostRecent" 
     146    'Private Const tbAuthKey As String = "AuthKey" 
     147    'Private Const tbInfoTwitter As String = "InfoTwitter" 
     148    'Private Const tbSplitPostReply As String = "SplitPostReply" 
     149    'Private Const tbGetDMCount As String = "GetDMCount" 
     150    'Private Const tbRemoveClass As String = "RemoveClass" 
     151    ''属性 
     152    'Private Const tbTagFrom As String = "tagfrom" 
     153    'Private Const tbTagTo As String = "tagto" 
     154    'Private Const tbTag As String = "tag" 
     155    'Private Const tbTagMbrFrom As String = "tagmbrfrom" 
     156    'Private Const tbTagMbrFrom2 As String = "tagmbrfrom2" 
     157    'Private Const tbTagMbrTo As String = "tagmbrto" 
     158    'Private Const tbTagStatus As String = "status" 
     159    'Private Const tbTagJpnFrom As String = "tagjpnfrom" 
     160    'Private Const tbTagEngFrom As String = "tagengfrom" 
    160161 
    161162    'Public Sub New(ByVal Username As String, _ 
    … …  
    307308            ' tr 要素の class 属性を消去 
    308309            Do 
    309                 Dim idx As Integer = retMsg.IndexOf(" class=""hentry", StringComparison.Ordinal) 
     310                Dim idx As Integer = retMsg.IndexOf(_removeClass, StringComparison.Ordinal) 
    310311                If idx = -1 Then Exit Do 
    311                 retMsg = retMsg.Remove(idx, retMsg.IndexOf("""", idx + 14, StringComparison.Ordinal) - idx + 1) ' 11 = "<tr class=""".Length 
     312                retMsg = retMsg.Remove(idx + 3, retMsg.IndexOf("""", idx + _removeClass.Length, StringComparison.Ordinal) - idx + 1 - 3) 
    312313            Loop 
    313314 
    … …  
    742743            ' tr 要素の class 属性を消去 
    743744            Do 
    744                 Dim idx As Integer = retMsg.IndexOf(" class=""hentry", StringComparison.Ordinal) 
     745                Dim idx As Integer = retMsg.IndexOf(_removeClass, StringComparison.Ordinal) 
    745746                If idx = -1 Then Exit Do 
    746                 retMsg = retMsg.Remove(idx, retMsg.IndexOf("""", idx + 14, StringComparison.Ordinal) - idx + 1) ' 11 = "<tr class=""".Length 
     747                retMsg = retMsg.Remove(idx + 3, retMsg.IndexOf("""", idx + _removeClass.Length, StringComparison.Ordinal) - idx + 1 - 3) 
    747748            Loop 
    748749 
    … …  
    17961797                                If ln.StartsWith("      ""tagto"": """) Then 
    17971798                                    _parseSource2 = ln.Substring(16, ln.Length - 1 - 16).Replace("\", "") 
     1799                                End If 
     1800                            Case "RemoveClass" 
     1801                                If ln.StartsWith("      ""tagfrom"": """) Then 
     1802                                    _removeClass = ln.Substring(18, ln.Length - 1 - 18).Replace("\", "") 
    17981803                                End If 
    17991804                        End Select 
    … …  
    20082013        sw.WriteLine("    Public _parseSource2 As String = " + Chr(34) + _parseSource2.Replace(Chr(34), Chr(34) + Chr(34)) + Chr(34)) 
    20092014        sw.WriteLine("    Public _parseSourceTo As String = " + Chr(34) + _parseSourceTo.Replace(Chr(34), Chr(34) + Chr(34)) + Chr(34)) 
     2015        sw.WriteLine("    Public _removeClass As String = " + Chr(34) + _removeclass.Replace(Chr(34), Chr(34) + Chr(34)) + Chr(34)) 
    20102016        sw.WriteLine("End Module") 
    20112017