Changeset 192 for Include/basic/prompt.sbp

Timestamp:

Mar 28, 2007, 10:29:58 AM (17 years ago)

Author:

イグトランス (egtra)

Message:

Currencyを追加、その他修正

File:

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

Include/basic/prompt.sbp

@@ -494 +494 @@
 
     'Create Prompt Window
-    _PromptSys_hWnd = CreateWindowEx(WS_EX_CLIENTEDGE, atom As ULONG_PTR As PCTSTR, "BASIC PROMPT",
-        WS_OVERLAPPEDWINDOW, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,
+    _PromptSys_hWnd = CreateWindowEx(WS_EX_CLIENTEDGE, atom As ULONG_PTR As LPCTSTR, "BASIC PROMPT", _
+        WS_OVERLAPPEDWINDOW, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, _
         0, 0, wcl.hInstance, 0)
     ShowWindow(_PromptSys_hWnd, SW_SHOW)
@@ -540 +540 @@
         For i = 0 To 100
             With _PromptSys_TextLine[i]
-                .Text[0] = 0 '_System_FillChar(_PromptSys_TextLine[i].Text, -1 As Char, 0)
+                .Text[0] = 0 '_System_FillChar(_PromptSys_TextLine[i].Text, -1 As StrChar, 0)
                 .Length = 0
             End With
@@ -646 +646 @@
     Dim i = _PromptSys_TextLine[y].Length
     If i < x Then
-        _System_FillChar(VarPtr(_PromptSys_TextLine[y].Text[i]), x - i, &h20) 'Asc(" ")
+        _System_FillChar(VarPtr(_PromptSys_TextLine[y].Text[i]), x - i, &h20 As StrChar) 'Asc(" ")
         Dim i2 As Long
         For i2 = i To ELM(x)