修复Builder第一次创建工程忽略代码变化的问题

Builder/Process.bas

@@ -435,7 +435,7 @@ SkipName:
         If Dir(p & "\assets\debug", vbDirectory) = "" Then MkDir p & "\assets\debug"
         If Dir(p & "\music", vbDirectory) = "" Then MkDir p & "\music"
 
-        CopyInto App.path & "\core", p & "\core"
+        CopyInto App.path & "\core", p & "\core", True
         CopyInto App.path & "\assets\debug", p & "\assets\debug"
         CopyInto App.path & "\framework", p
 
@@ -481,7 +481,7 @@ Function Dialog(t As String, c As String, ParamArray b()) As Integer
     Dialog = DialogPage.Key
     ECore.NewTransform transFadeIn, 700, last
 End Function
-Sub CopyInto(Src As String, Dst As String)
+Sub CopyInto(Src As String, Dst As String, Optional WriteCache As Boolean = False)
     Dim f As String, p As Boolean
     p = Dir(Dst & "\Core.bas") <> ""
     f = Dir(Src & "\")
@@ -490,6 +490,12 @@ Sub CopyInto(Src As String, Dst As String)
             If p Then GoTo skip
         End If
         FileCopy Src & "\" & f, Dst & "\" & f
+        If WriteCache Then
+            Open Cmd & "\.emr\cache\" & f For Output As #1
+            Print #1, FileLen(Dst & "\" & f)
+            Close #1
+        End If
+
         DoEvents
 skip:
         f = Dir()

Core/AboutMe.bas

@@ -42,6 +42,7 @@ Attribute VB_Name = "AboutMe"
 '========================================================
 '   更新内容(ver.629)
 '   -新增PaintPolygon2方法
+'   -修复Builder第一次创建工程忽略代码变化的问题
 '   更新内容(ver.628)
 '   -点击检测支持不规则图片
 '   -碰撞检测支持可缩放图片

Core/GCore.bas

@@ -11,7 +11,7 @@ Attribute VB_Name = "GCore"
         y As Single
     End Type
     Public Enum imgIndex
-        imgGetwidth = 0
+        imgGetWidth = 0
         imgGetHeight = 1
         imgGetGIFFrameCount = 2
     End Enum
@@ -98,7 +98,7 @@ Attribute VB_Name = "GCore"
     Public FPSWarn As Long
     Public EmeraldInstalled As Boolean
     Public BassInstalled As Boolean
-    Public Const Version As Long = 19062503
+    Public Const Version As Long = 19062902
     Public TextHandle As Long, WaitChr As String
     Dim AssetsTrees() As AssetsTree
     Dim LastKeyUpRet As Boolean
@@ -258,7 +258,7 @@ sth:
 
         GetWinNTVersion = Left(strOSversion, 3)
     End Function
-    Public Sub BlurTo(DC As Long, srcDC As Long, buffWin As Form, Optional Radius As Long = 60)
+    Public Sub BlurTo(DC As Long, srcDC As Long, buffWin As Form, Optional radius As Long = 60)
         Dim i As Long, g As Long, e As Long, b As BlurParams, w As Long, h As Long
         '粘贴到缓冲窗口
         buffWin.AutoRedraw = True
@@ -268,7 +268,7 @@ sth:
         GdipCreateBitmapFromHBITMAP buffWin.Image.handle, buffWin.Image.hpal, i
 
         '模糊操作
-        GdipCreateEffect2 GdipEffectType.Blur, e: b.Radius = Radius: GdipSetEffectParameters e, b, LenB(b)
+        GdipCreateEffect2 GdipEffectType.Blur, e: b.radius = radius: GdipSetEffectParameters e, b, LenB(b)
         GdipGetImageWidth i, w: GdipGetImageHeight i, h
         GdipBitmapApplyEffect i, e, NewRectL(0, 0, w, h), 0, 0, 0
 
@@ -278,12 +278,12 @@ sth:
         GdipDisposeImage i: GdipDeleteGraphics g: GdipDeleteEffect e '垃圾处理
         buffWin.AutoRedraw = False
     End Sub
-    Public Sub BlurImg(img As Long, Radius As Long)
+    Public Sub BlurImg(img As Long, radius As Long)
         Dim b As BlurParams, e As Long, w As Long, h As Long
 
         '模糊操作
 
-        GdipCreateEffect2 GdipEffectType.Blur, e: b.Radius = Radius: GdipSetEffectParameters e, b, LenB(b)
+        GdipCreateEffect2 GdipEffectType.Blur, e: b.radius = radius: GdipSetEffectParameters e, b, LenB(b)
         GdipGetImageWidth img, w: GdipGetImageHeight img, h
         GdipBitmapApplyEffect img, e, NewRectL(0, 0, w, h), 0, 0, 0
 

Version.txt

@@ -1 +1 @@
-19062702
+19062902