Changeset 89 for Include/basic/prompt.sbp

Timestamp:

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

Author:

イグトランス (egtra)

Message:

型関連の修正 by konisi

File:

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

Include/basic/prompt.sbp

@@ -519 +519 @@
     'Circle (x, y), radius [, color] [, start] [, end] [, aspect] [, f] [, color2]
 
-    Dim hDC As Long
-    Dim hPen As Long, hOldPen As Long
-    Dim hBrush As Long, hOldBrush As Long
+    Dim hDC As HDC
+    Dim hPen As HPEN, hOldPen As VoidPtr
+    Dim hBrush As HBRUSH, hOldBrush As VoidPtr
     Dim radi2 As Long
     Dim sw As Long
@@ -540 +540 @@
 
     If Aspect<1 Then
-        radi2=CDbl(radius)*Aspect
+        radi2=(CDbl(radius)*Aspect) As Long
     Else
         radi2=radius
-        radius=CDbl(radius)/Aspect
+        radius=(CDbl(radius)/Aspect) As Long
     End If
 
@@ -649 +649 @@
     End If
 
-    Dim hDC As Long
-    Dim hPen As Long, hOldPen As Long
-    Dim hBrush As Long, hOldBrush As Long
+    Dim hDC As HDC
+    Dim hPen As HPEN, hOldPen As VoidPtr
+    Dim hBrush As HBRUSH, hOldBrush As VoidPtr
 
     hDC=GetDC(_PromptSys_hWnd)
@@ -695 +695 @@
     'PSet (x,y),ColorCode
 
-    Dim hDC As Long
+    Dim hDC As HDC
 
     hDC=GetDC(_PromptSys_hWnd)
@@ -710 +710 @@
     'Paint (x,y),BrushColor,LineColor
 
-    Dim hDC As Long
-    Dim hBrush As Long, hOldBrush As Long
-
+    Dim hDC As HDC
+    Dim hBrush As HBRUSH, hOldBrush As VoidPtr
+    
     hBrush=CreateSolidBrush(GetBasicColor(BrushColor))