Changeset 25294

Timestamp:

11/29/08 02:00:36 (4 years ago)

Author:

kiri_feather

Message:

起動時画面レイアウト復元に失敗する問題に対応

Location:

lang/vb2005/Tween/Tween

Files:

• TwConfig.vb (modified) (3 diffs)
• Tween.vb (modified) (2 diffs)

lang/vb2005/Tween/Tween/TwConfig.vb

@@ -1 +1 @@
 ' Tween - Client of Twitter
-' Copyright © 2007-2008 kiri_feather (@kiri_feather) <kiri_feather@gmail.com>
-'           © 2008      Moz (@syo68k) <http://iddy.jp/profile/moz/>
-'           © 2008      takeshik (@takeshik) <http://www.takeshik.org/>
+' Copyright c 2007-2008 kiri_feather (@kiri_feather) <kiri_feather@gmail.com>
+'           c 2008      Moz (@syo68k) <http://iddy.jp/profile/moz/>
+'           c 2008      takeshik (@takeshik) <http://www.takeshik.org/>
 ' All rights reserved.
 ' 
@@ -465 +465 @@
     Public Property SplitterDistance() As Integer
         Get
-            Dim dis As Integer = DirectCast(Me("splitterdistance"), Integer)
-            If dis < 0 Then dis = 320
-            Return dis
-        End Get
-        Set(ByVal value As Integer)
-            If value < 0 Then value = 320
+            Return DirectCast(Me("splitterdistance"), Integer)
+        End Get
+        Set(ByVal value As Integer)
             Me("splitterdistance") = value
         End Set
@@ -478 +475 @@
     Public Property FormSize() As Size
         Get
-            Dim sz As Size = CType(Me("formsize"), Size)
-            If sz.Height < 0 Then sz.Height = 476
-            If sz.Width < 0 Then sz.Width = 436
-            Return sz
+            Return CType(Me("formsize"), Size)
         End Get
         Set(ByVal value As Size)
-            Dim sz As Size = value
-            If sz.Height < 0 Then sz.Height = 476
-            If sz.Width < 0 Then sz.Width = 436
-            Me("formsize") = sz
+            Me("formsize") = value
         End Set
     End Property

lang/vb2005/Tween/Tween/Tween.vb

@@ -306 +306 @@
         '新着取得時のリストスクロールをするか。Trueならスクロールしない
         ListLockMenuItem.Checked = _section.ListLock
-        '発言欄複数行
-        MultiLineMenuItem.Checked = _section.StatusMultiline
-        StatusText.Multiline = _section.StatusMultiline
-        If StatusText.Multiline Then
-            SplitContainer2.SplitterDistance = SplitContainer2.Height - _section.StatusTextHeight - SplitContainer2.SplitterWidth
-        Else
-            SplitContainer2.SplitterDistance = SplitContainer2.Height - SplitContainer2.Panel2MinSize - SplitContainer2.SplitterWidth
-        End If
         SettingDialog.IconSz = _section.IconSize
         '文末ステータス
@@ -422 +414 @@
         Me.SplitContainer1.SplitterDistance = _section.SplitterDistance     'Splitterの位置設定
         _mySpDis = Me.SplitContainer1.SplitterDistance
+        '発言欄複数行
+        MultiLineMenuItem.Checked = _section.StatusMultiline
+        StatusText.Multiline = _section.StatusMultiline
+        If StatusText.Multiline Then
+            SplitContainer2.SplitterDistance = SplitContainer2.Height - _section.StatusTextHeight - SplitContainer2.SplitterWidth
+        Else
+            SplitContainer2.SplitterDistance = SplitContainer2.Height - SplitContainer2.Panel2MinSize - SplitContainer2.SplitterWidth
+        End If
         Me.TopMost = SettingDialog.AlwaysTop