|
@@ -123,9 +123,6 @@ var
|
|
|
i: LongWord;
|
|
|
t: Double;
|
|
|
newTimer: zglPTimer;
|
|
|
- {$IFDEF DELPHI7_AND_DOWN}
|
|
|
- z: Pointer;
|
|
|
- {$ENDIF}
|
|
|
begin
|
|
|
Result := 255;
|
|
|
if managerTimer.Count >= managerTimer.maxTimers then
|
|
@@ -155,12 +152,7 @@ begin
|
|
|
|
|
|
if not Assigned(newTimer) then
|
|
|
begin
|
|
|
- {$IFDEF DELPHI7_AND_DOWN}
|
|
|
- zgl_GetMem(z, SizeOf(zglTTimer));
|
|
|
- newTimer := z;
|
|
|
- {$ELSE}
|
|
|
- zgl_GetMem(newTimer, SizeOf(zglTTimer));
|
|
|
- {$ENDIF}
|
|
|
+ zgl_GetMem(Pointer(newTimer), SizeOf(zglTTimer));
|
|
|
managerTimer.Timers[i] := newTimer;
|
|
|
end;
|
|
|
|