Что не так?

[DIMMON4IK]

написал я себе приложение. на сначало работало, потом после неких изменений - отказалось

Что я пишу не так?

PS Хочу на тел. фоновым рисунком зделать

[Tronix]

Ну не плохо было бы где-нить там в процедуре povtor или цикле Repaint делать

Еще советую пройтись по файлам img1.png..img4.png утилитой pngout - их размер сократиться до 37 kb (в оригинале - 52Kb).

И очень озадачил меня этот код:

if n=1 then
begin
no:=1 
end else
if n=2 then
begin
no:=2 
end else
if n=3 then 
begin
no:=3 
end else
if n=4 then 
begin
no:=4 
end; 


По-моему можно заменить на no := n;

[DIMMON4IK]

//Im:=LoadImage('/img' + n + '.png');
//DrawImage(Im,0,0);

в проэкте нужно
заменить на

Im:=LoadImage('/img' + n + '.png');
DrawImage(Im,0,0);

забыл



Спасибо, сработало!

И за PNG спасибо потому, что мне нужно чтобы приложение минимум памяти ело( фон таки)

[Phantom]

Памяти изображение всё равно будет столько же есть, потому что в памяти любое изображение хранится как массив пикселей.

[DIMMON4IK]

to Phantom
Не знаешь как можно уменьшить количество пищи для памяти?