修订版 | 8 (tree) |
---|---|
时间 | 2013-01-11 22:17:42 |
作者 | mushikudashi |
(empty log message)
@@ -88,8 +88,20 @@ | ||
88 | 88 | ' アイコン画像を取り込み/表示位置調整 |
89 | 89 | Me.LoadCurrentIcons() |
90 | 90 | Me.FrameLocationSetting() |
91 | + | |
92 | + Me.OnDoWork() | |
91 | 93 | End Sub |
92 | 94 | |
95 | + Private Sub OnDoWork() | |
96 | + For Each icon As IconInfo In Me.mDatas.PageIcons.AllIconInfo | |
97 | + Dim imag As ImageSource | |
98 | + If Not Me.mImageDic.ContainsKey(icon.Path) Then | |
99 | + imag = SellApis.GetIcon(icon.Path, SellApis.SHIL_EXTRALARGE) | |
100 | + Me.mImageDic.Add(icon.Path, imag) | |
101 | + End If | |
102 | + Next | |
103 | + End Sub | |
104 | + | |
93 | 105 | #Region "多重起動処理、およびスタート位置設定" |
94 | 106 | |
95 | 107 | Delegate Sub RelocationWindowHandler(sendMsg As Integer) |