Quote:
Originally Posted by audiofeel
the CPI font is used (there are problems with the sound image in the font, one character is lower than the other, I fixed it as best I could)
|
Fix sound image in the font.
Code:
TObject(Btn[3].GetObject):
begin
if MusicObj.IsPaused then
begin
MusicObj.Resume;
Btn[3].Top(NSSY(6.0));
Btn[3].Text('I');
end else
begin
MusicObj.Pause;
Btn[3].Top(NSSY(6.0));
Btn[3].Text('H');
end;
end;