Сообщение от impersonalis
И вот так ещё:
[highlight=blitzbasic]
Graphics3D 800,600,32,2
size_y# = 10
size_x# = 202
min# = 1
max# = 100
Color 255,0,0
Rect 20, 20, size_x, size_y, 0
For i# = min To max
Rect 22, 22, (i/max)*size_x-4, size_y-4, 1
Delay 30
Flip
Next
[/highlight]
|
В твоем варианте невозможно будет преобразовать в функцию.
Да и прогрессбар по идее должен весь перерисовываться, а не по отдельности.