[angvelem]

Юнит DrawUnit, процедура DrawSongInfo, в конце процедуры

Код:

  Dest.Canvas.Brush.Style := bsClear;
  Dest.Canvas.Font.Name := 'Lucida Sans';//'Tahoma';
  Dest.Canvas.Font.Color := $CCFF00;//clWhite;
  Dest.Canvas.TextOut(20, 30, Format('kbps:   %d', [BPS]));
  Dest.Canvas.TextOut(20, 42, Format('~khz:   %d', [Trunc(Freq / 1000)]));
  Dest.Canvas.TextOut(20, 54, Format('Chans: %s', [Chans[ci.chans > 0]]));
  Dest.Canvas.TextOut(20, 66, 'CPU%  ' + FloatToStrF(BASS_GetCPU, ffFixed, 4, 2);
  Canvas.Draw(Left, Top, Dest);