Changeset 192 for Include/basic

Timestamp:

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

Author:

イグトランス (egtra)

Message:

Currencyを追加、その他修正

Location:

Include/basic

Files:

• function.sbp (modified) (1 diff)
• prompt.sbp (modified) (3 diffs)

Include/basic/function.sbp

@@ -555 +555 @@
     '値が0の場合
     If value = 0 Then
-        _System_FillChar(_System_ecvt_buffer, count, &H30)
+        _System_FillChar(_System_ecvt_buffer, count As SIZE_T, &H30 As StrChar)
         _System_ecvt_buffer[count] = 0
         dec = 0

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)