Changeset 110 for Include/basic/prompt.sbp

Timestamp:

Feb 18, 2007, 11:19:00 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

ByteからCharへの変更（不完全）ほか微修正

File:

• Include/basic/prompt.sbp (modified) (3 diffs)

Include/basic/prompt.sbp

@@ -16 +16 @@
 Dim _PromptSys_hFont As HFONT
 Dim _PromptSys_FontSize As SIZE
-Dim _PromptSys_InputStr[255] As Byte
+Dim _PromptSys_InputStr[255] As Char
 Dim _PromptSys_InputLen As Long
 Dim _PromptSys_KeyChar As Byte
 Dim _PromptSys_CurPos As POINTAPI
-Dim _PromptSys_Buffer[100] As BytePtr
+Dim _PromptSys_Buffer[100] As *Char
 Dim _PromptSys_TextColor[100] As DWordPtr
 Dim _PromptSys_BackColor[100] As DWordPtr
@@ -53 +53 @@
     Dim hOldFont As HFONT
     Dim sz As SIZE
-    Dim temporary[2] As Byte
+    Dim temporary[2] As Char
 
     hOldFont=SelectObject(hDC,_PromptSys_hFont)
@@ -258 +258 @@
                 Else
                     _PromptSys_InputStr[_PromptSys_InputLen]=wParam As Byte
-                    _PromptSys_InputLen=_PromptSys_InputLen+1
+                    _PromptSys_InputLen++
 
                     temporary[0]=wParam As Byte