Changeset 89 for Include/basic/command.sbp

Timestamp:

Feb 11, 2007, 11:53:12 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

型関連の修正 by konisi

File:

• Include/basic/command.sbp (modified) (5 diffs)

Include/basic/command.sbp

@@ -6 +6 @@
 
 
-Const _System_Type_Char =   1
-Const _System_Type_Byte =   2
+Const _System_Type_Char = 1
+Const _System_Type_Byte = 2
 Const _System_Type_Integer = 3
-Const _System_Type_Word =   4
-Const _System_Type_Long =   5
-Const _System_Type_DWord =  6
-Const _System_Type_Int64 =  7
-Const _System_Type_QWord =  8
+Const _System_Type_Word = 4
+Const _System_Type_Long = 5
+Const _System_Type_DWord = 6
+Const _System_Type_Int64 = 7
+Const _System_Type_QWord = 8
 Const _System_Type_Single = 9
 Const _System_Type_Double = 10
@@ -64 +64 @@
 End Macro
 
-Macro WINDOW(ByRef hWnd As Long, hOwner As Long, x As Long, y As Long, nWidth As Long, nHeight As Long, lpTitle As String, dwStyle As DWord)(lpClass As String, id As DWord, lpFunc As DWord, dwExStyle As DWord)
+Macro WINDOW(ByRef hWnd As HWND, hOwner As HWND, x As Long, y As Long, nWidth As Long, nHeight As Long, lpTitle As String, dwStyle As DWord)(lpClass As String, id As HMENU, lpFunc As DWord, dwExStyle As DWord)
     If VarPtr(hWnd) Then
         hWnd=CreateWindowEx(dwExStyle,lpClass,lpTitle,dwStyle,x,y,nWidth,nHeight,hOwner,id,GetModuleHandle(0),NULL)
@@ -105 +105 @@
 '--------------
 
-Dim _System_hFile(255) As Long
+Dim _System_hFile(255) As VoidPtr
 Macro OPEN(lpFileName As String, AccessFor As Long, FileNumber As Long)
     Dim dwAccess As Long
@@ -435 +435 @@
 End Macro
 Macro MKDIR(path As String)
-    CreateDirectory(path,ByVal 0)
+    CreateDirectory(path, ByVal 0)
 End Macro
 Macro KILL(path As String)
@@ -443 +443 @@
 
 #endif '_INC_COMMAND
-