// --- MTSTransactionMode = 0 'NotAnMTSObject // NotAnMTSObject
// --- END
-static char *VB_Name = "DDScrollBuffer";
-static boolean VB_GlobalNameSpace = False;
-static boolean VB_Creatable = True;
-static boolean VB_PredeclaredId = False;
-static boolean VB_Exposed = False;
+// static char *VB_Name = "DDScrollBuffer";
+// static boolean VB_GlobalNameSpace = False;
+// static boolean VB_Creatable = True;
+// static boolean VB_PredeclaredId = False;
+// static boolean VB_Exposed = False;
+
// --- Option Explicit
// needs reference to: DirectX7 for Visual Basic Type Library
if (IS_NOTHING(&PrimarySurface, sizeof(PrimarySurface)))
return;
- L = PrimarySurface_Blt(DR, Buffer, SR, DDBLT_WAIT);
+ L = PrimarySurface.Blt(DR, &Buffer, SR, DDBLT_WAIT);
if (L != DD_OK)
{
switch (L)
{
+#if 0
case DDERR_GENERIC:
Debug.Assert(False);
break;
case DDERR_SURFACEBUSY:
Debug.Assert(False);
break;
+#endif
case DDERR_SURFACELOST:
DDraw.RestoreAllSurfaces();
// ClipToWindow 0
break;
+#if 0
case DDERR_UNSUPPORTED:
Debug.Assert(False);
break;
default:
Debug.Assert(False);
break;
+#endif
}
}
void DDScrollBuffer_SoftScrollTo(int X, int Y, long TimeMS, int FPS)
{
double dx, dY;
+#if 0
TickCountObject Tick;
+#endif
long dT, StepCount;
double T, tStep;
long oldX, oldY, maxD;
- boolean AlreadyRunning;
+ static boolean AlreadyRunning = False;
+
+#if 1
+ printf("::: 3: X,Y == %d, %d [%f]\n", X, Y, Stretch);
+#endif
if (NoDisplayFlag)
return;
if (StepCount == 0)
StepCount = 1;
+#if 1
+ printf("::: MARK 1: %f, %d, %ld, %ld [%d, %d, %ld, %ld]\n",
+ tStep, FPS, TimeMS, maxD,
+ X, Y, mScrollX, mScrollY);
+#endif
+
dT = 1000 / FPS;
tStep = (double)1 / StepCount;
oldX = mScrollX;
goto SoftScrollEH;
// If Claim Then Exit For
+
+#if 0
Tick.DelayMS(dT, False);
+#endif
+
mScrollX = oldX + T * dx;
mScrollY = oldY + T * dY;
ScrollX = mScrollX;
// Blt();
}
+#if 1
+ printf("::: MARK 2\n");
+#endif
+
if (UserDragFlag)
goto SoftScrollEH;
+#if 0
Tick.DelayMS(dT, False);
+#endif
+
mScrollX = X;
mScrollY = Y;
ScrollX = mScrollX;