svnno****@sourc*****
svnno****@sourc*****
2010年 11月 1日 (月) 18:05:07 JST
Revision: 1017
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1017
Author: anis774
Date: 2010-11-01 18:05:06 +0900 (Mon, 01 Nov 2010)
Log Message:
-----------
リストのアイコンを縦方向にセンタリングして描画するように変更
Modified Paths:
--------------
trunk/Tween/Tween.vb
-------------- next part --------------
Modified: trunk/Tween/Tween.vb
===================================================================
--- trunk/Tween/Tween.vb 2010-11-01 04:46:02 UTC (rev 1016)
+++ trunk/Tween/Tween.vb 2010-11-01 09:05:06 UTC (rev 1017)
@@ -4087,6 +4087,8 @@
Next
Dim iconRect As Rectangle = Rectangle.Intersect(New Rectangle(e.Item.GetBounds(ItemBoundsPortion.Icon).Location, New Size(_iconSz, _iconSz)), itemRect)
+ iconRect.Offset(0, CType(Math.Max(0, (itemRect.Height - _iconSz) / 2), Integer))
+
If iconRect.Width > 0 Then
e.Graphics.FillRectangle(Brushes.White, iconRect)
e.Graphics.InterpolationMode = Drawing2D.InterpolationMode.High