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