Помогите с DelphiX
От: megalom  
Дата: 04.07.05 21:20
Оценка:
Работаю на Delphi7, пишу игрушку используя DelphiХ,
на моём компе всё работает без проблем, но на
некоторых компах происходит затормаживание
прорисовки кадров. В кодах по обработке поведения
спрайтов ошибок нет, компы тоже не слабые,
догадываюсь что это из-за тймера код привидён ниже.
Может кто встречался с подобной проблемой помоготе

procedure TForm2.DXTimer1Timer(Sender: TObject; LagCount: Integer);
begin
  if not DXDraw1.CanDraw then exit;
  DXInput1.Update;
  DXSpriteEngine1.Move(LagCount);
  DXSpriteEngine1.Dead;
  DXDraw1.Surface.Fill(0);
  DXSpriteEngine1.Draw;
  with DXDraw1.Surface.Canvas do
  begin
    Textout(20, 30, 'Demo');
    Release;
  end;
  DXDraw1.Flip;
end;
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.