Вопрос Надпись при отключении и включении музыки(бегущая строка).

[Yaroslav950]

Может кто-то знает, когда пользователь отключил звук песни - должно пропадать название песни(бегущая строка), также как и при включении должна появляться.

 

[Andreo Fadio]

Может кто-то знает, когда пользователь отключил звук песни - должно пропадать название песни

И что в итоге то?

 

[Yaroslav950]

@Andreo Fadio,там нужны какие-то модули?. Или использовать Boolean. Ток я хз как его использовать.

 

[Andreo Fadio]

там нужны какие-то модули?

вы о чем вообще тут пишите\спрашиваете то?

 

[Yaroslav950]

@Andreo Fadio,да спрашиваю. Вообще можно ли реализовать такой код, при нажатии на кнопку кнопку (Button),название песни (бегущей строкой)исчезало, а если пользователь включил музыку название самой песни появилось.

Спойлер

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Code]
var
lbl1: TLabel;
#ifdef NameMusic
procedure tmr1Timer(Sender: TObject);
var
  str: string;
begin
  str:= lbl1.Caption;
  lbl1.Caption:= Copy(str, Length(str), 1) + Copy(str, -2, Length(str) - 1);
end;
#endif


/////Добавление музыки/////
  ExtractTemporaryFile('BASS.dll');
  ExtractTemporaryFile('Music.mp3');

  BASS_Init('{tmp}\Music.mp3') //Запускаем музыку
  //Можно добавить в инсталл несколько песен
  //BASS_Init(ExpandConstant('{tmp}\*'))        //Поиск по маске
BASS_OnOffBtn:=BtnCreate(WizardForm.Handle,ScaleX(600),ScaleY(310),ScaleX(30),ScaleY(30),ExpandConstant('{tmp}\MusicButton.png'),0,True);
BtnSetEvent(BASS_OnOffBtn, 1, WrapBtnCallback(@BASS_OnOffClick, 1))
BtnSetCursor(BASS_OnOffBtn,GetSysCursorHandle(32649));

procedure InitializeWizard;
begin
#ifdef NameMusic
lbl1:= TLabel.Create(WizardForm);
  with lbl1 do begin
    Parent:= WizardForm;
    Left:= ScaleX(425);
    Top:= ScaleY(340);
    Width:= ScaleX(200);
    Height:= ScaleY(20);
    AutoSize:= False;
    Caption:= '{#NameMusic}';
    Font.Color:= clAqua;
    Font.Height:= ScaleX(-16);
    Font.Name:= 'Time New Roman';
    Font.Style:= [fsBold, fsItalic];
    ParentFont:= False;
  end;

  tmr1:= TTimer.Create(WizardForm);
  with tmr1 do begin
    Interval:= 200;
    OnTimer:= @tmr1Timer;
  end;
#endif
end;

 

[Andreo Fadio]

@Yaroslav950, типа такого?

Спойлер: Пример (картинка)

 

[Yaroslav950]

Ага.

 

[Andreo Fadio]

@Yaroslav950, пример в посте: Ссылка на пост

И скрипт сделан там на опережение вашего запроса