GOAR, значит это на андроиде проблемы. Там еще вроде есть метод для частичной перерисовки, может он поможит

vl@volk, отрисовку и очистку ставлю один раз.
  если ставить delay (25) то мерцания нет, все работает.
но на скорость роботы программы падает оч, пробовал выводить fps так у меня с delay(25) fps:7 а без delay 58-60

крч без выходная ситуэйшен

vl@volk, чё за метод? в форме show?

Цитата vl@volk:

---

возможно тебе cls не нужен https://www.kansoftware.ru/?tid=5122крч, репаинт надо использовать только тогда, когда что-то отрисовал и надо обновить экран. Но не в каждой итерации цикла.
У тебя в целом неправильная последовательность. И ты в этом цикле ожидаешь ввод пользователя?

По идее должно быть так:

Вот здесь работает иначе, у меня там нет таких циклов. У тебя оно так и будет мигать скорее всего, пока не изменишь условие этого цикла и не добавишь процедуры. Если надо, могу примеры скинуть.

Витаминыч, прост на экране могут двигаться объекты, поэтому перерисовывать надо часто. В джава ме помню был частичный репейнт, когда обновлялись только те области которые изменились

vl@volk, ну тут для такого библиотека нужна, где все эти методы в процедуры закодировали. У него то ничего не двигается, смысл так часто перерисовывать. Даже на компе если запускать что-то в qbasic, то скорость отрисовки норм, а вот в той же программе, но собранной в QB64 все мгновенно - Пост #416630

Остается оптимизировать, оптимизировать и оптимизировать.

Витаминыч, возможно. Наверное просто мерцает из-за того что криво отрисовка реализована в рантайме мидлетпаскаля для андроида. Надо фиксить, гг

vl@volk, Витаминыч, за примеры буду благодарен. и ты говорил lib нужна.

у тебя всё и за того что delay(24), с таким условием у меня тоже отрисовку гуд.
но сказывается на скорости из 60 ФПС стает 11-7.

GOAR, На жабке пиши, но там будут другие проблемы

GOAR, если ты только начал, то попробуй пока стандартными средствами обойтись. С либами можешь запутаться. Но если они нужны, то сюда - Пост #468209

Ты хоть какую-то играбельную основу сделай, и потом запили нормальный счетчик.

Пример

Пример

[копировать] [скачать]

1. procedure Cls; // Очистка экрана
2. begin
3. SetColor(255, 255, 255);
4. FillRect(0, 0, 239, 319);
5. Repaint;
6. end;
7.  
8. begin
9. while True do
10. begin
11. // Menu ON|OFF
12. tCurY := curY;
13. ShowMainMenu;
14. key := keyToAction(getKeyClicked);
15. if key = GA_UP then
16. begin
17. if curY <> 40 then
18. CurUp;
19. end;
20. if key = GA_DOWN then
21. begin
22. if curY <> 124 then
23. CurDn;
24. end;
25. if key = GA_FIRE then
26. begin
27. initGame;
28. end;
29. end;
30. end.

Вот под твой случай ничего не нашел. У меня есть основной цикл, но там все завязано на процедурах. Это первый экран из RoachDrom. initGame выглядит так:

[копировать] [скачать]

1. procedure InitGame;
2. begin
3. // Draw Field
4. DrawImage(imgRes[10], 0, 0);
5. x := 115;
6. for i := 0 to 4 do
7. begin
8. DrawImage(imgTar[i], x, 231);
9. x := x + 23;
10. end;
11. // потом перенести
12. font32.Color(255, 0, 0, 0);
13. DrawString(integerToString(nRound), 81, 94);
14. Repaint;
15. Delay(2000);
16. PlayersDoBets;
17. end;

А вообще, я щас для теста собрал пример из ампасиде Cubes (это из заставки тараканчиков, только универсальная) - ничего не мигает, скорость отрисовки такая же, как в яве. Дай-ка код счетчика фпс, мне даже интересно стало, что ты там такое накодил