-#define LongMin (-(double)2147483648) // the "#" sign is a bug of the VB environment AutoFormat function but causes no real problems; don't worry 'bout it!
-#define LongMax (2147483647)
+#define LongMin (-(double)2147483648UL) // the "#" sign is a bug of the VB environment AutoFormat function but causes no real problems; don't worry 'bout it!
+#define LongMax (2147483647UL)
-long GetTickCount();
+#if 0
+
+long MyGetTickCount();
long QueryPerformanceCounter(currency lpPerformanceCount);
long QueryPerformanceFrequency(currency lpFrequency);
long QueryPerformanceCounter(currency lpPerformanceCount);
long QueryPerformanceFrequency(currency lpFrequency);
+#endif
+
boolean DelayLoopActive;
boolean MPause, bHighPerf;
currency PFreq; // LARGE_INTEGER
double sFactor, msFactor, usFactor;
boolean DelayLoopActive;
boolean MPause, bHighPerf;
currency PFreq; // LARGE_INTEGER
double sFactor, msFactor, usFactor;
+#if 0
+
boolean TickCountObject_Get_Active()
{
boolean Active;
boolean TickCountObject_Get_Active()
{
boolean Active;
@@ -60,14+66,14 @@ void TickCountObject_DelayMS(long MSInterval, boolean DoEventsFlag) // in ms
{
currency Start;
{
currency Start;
- Start = TickNow();
+ Start = TickCountObject_Get_TickNow();
DelayLoopActive = True;
do
{
if (DoEventsFlag)
DoEvents();
DelayLoopActive = True;
do
{
if (DoEventsFlag)
DoEvents();
- if (MSInterval <= TickDiffMS(Start) && ! MPause)
+ if (MSInterval <= TickCountObject_TickDiffMS(Start) && ! MPause)