| changeset 3836 | 833c0f32e326 |
| parent 3764 | eb91c02f2d84 |
| child 3909 | 4ba25a3d15af |
| 3835:cbee69165c6a | 3836:833c0f32e326 |
|---|---|
384 end |
384 end |
385 end; |
385 end; |
386 |
386 |
387 procedure DrawVisualGears(Layer: LongWord); |
387 procedure DrawVisualGears(Layer: LongWord); |
388 var Gear: PVisualGear; |
388 var Gear: PVisualGear; |
389 i: LongInt; |
|
390 begin |
389 begin |
391 Gear:= VisualGearsList; |
390 Gear:= VisualGearsList; |
392 case Layer of |
391 case Layer of |
393 0: while Gear <> nil do |
392 0: while Gear <> nil do |
394 begin |
393 begin |