|
Re: Индикатор загрузки
И вот так ещё:
[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]
__________________
http://nabatchikov.com
Мир нужно делать лучше и чище. Иначе, зачем мы живем? tormoz
А я растила сына на преданьях
о принцах, троллях, потайных свиданьях,
погонях, похищениях невест.
Да кто же знал, что сказка душу съест?
|