Показать сообщение отдельно
Старый 02.11.2011, 09:38   #1
leonid
Оператор ЭВМ
 
Регистрация: 01.11.2011
Сообщений: 35
Написано 0 полезных сообщений
(для 0 пользователей)
Помогите исправить ошибку

Здрасте. Я в МП совсем салага. Хотел сделать что-то наподобие полосы загрузки, но она не продвигается. Почему?

program Load;

var
progress,i:Integer;

begin
SetColor(0,0,0);
DrawRect(10,10,100,10);
for i:=0 to 100 do

begin
progress:=1;
FillRect(12,12,progress,7);
repaint;
progress:=progress+1;
repaint;
end;

end.
(Offline)
 
Ответить с цитированием