frmWindowAboutの描画を修正

Author: 47_TT

frmWindowAbout.vb

@@ -10,6 +10,8 @@ Friend Class frmWindowAbout
 
         Dim intTemp As Short
 
+        SetBkMode(hDC, TRANSPARENT)
+
         intTemp = LenB(Text_Renamed)
 
         With Me
@@ -190,7 +192,7 @@ Friend Class frmWindowAbout
 
             Call PrintText(hDC, strTemp, 1, 1)
 
-            Call PrintText(hDC, "Undo Counter: " & g_InputLog.GetPos & " / " & g_InputLog.Max, 1, 13)
+            Call PrintText(hDC, "Undo Counter: " & g_InputLog.GetPos & " / " & g_InputLog.Max, 1, 16)
 
             '.Font.SIZE = 12 * (Screen.TwipsPerPixelX / 15)
             '.Font.Underline = True

modDraw.vb

@@ -22,6 +22,7 @@ Module modDraw
 
     Public Declare Function TextOut Lib "gdi32" Alias "TextOutW" (ByVal hdc As Integer, ByVal X As Integer, ByVal Y As Integer, <MarshalAs(UnmanagedType.LPWStr)> ByVal lpString As String, ByVal nCount As Integer) As Integer
     Public Declare Function SetTextColor Lib "gdi32" (ByVal hdc As Integer, ByVal crColor As Integer) As Integer
+    Public Declare Function SetBkMode Lib "gdi32" (ByVal hdc As Integer, ByVal iBkMode As Integer) As Integer
 
     Public Declare Function Rectangle Lib "gdi32" (ByVal hdc As Integer, ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer) As Integer
     Public Declare Function LineTo Lib "gdi32" (ByVal hdc As Integer, ByVal X As Integer, ByVal Y As Integer) As Integer
@@ -57,6 +58,11 @@ Module modDraw
     Public Const BS_PATTERN8X8 As Short = 7
     Public Const BS_DIBPATTERN8X8 As Short = 8
 
+    'SetBkMode 関連
+    Public Const TRANSPARENT As Integer = 1
+    Public Const OPAQUE As Integer = 2
+    Public Const BKMODE_LAST As Integer = 2
+
     <StructLayout(LayoutKind.Sequential)> Public Structure LOGBRUSH
         Dim lbStyle As Integer
         Dim lbColor As Integer