- procedure BassUpdate;
- begin
- if not GUI.StaticForms[0].ProgressBars[0].InChanging then
- begin
- Bass_Pos := BASS_ChannelGetPosition(str);
- GUI.StaticForms[0].ProgressBars[0].Position := Bass_Pos;
- GUI.StaticForms[0].ProgressBars[0].Render;
- end;
- end;