RG Catalyst

[Bilawal]

Originally Posted by Stor31

after testing
Logo ok (Thx)
Splash does not launch

Change

;#define Splash

to

#define Splash

EDIT: If music don't work.

Do this

procedure InitializeWizard();
begin
#ifdef Splash
  ExtractTemporaryFile('isgsg.dll');
  ExtractTemporaryFile('splash.png');
  ShowSplashScreen(0,ExpandConstant('{tmp}\splash.png'),1000,1000,1000,0,255,False,$FFFFFF,10);
#endif
  RedesignWizardForm;
  ExtractTemporaryFile('Click.wav');
  ExtractTemporaryFile('music.mp3');
  if BASS_Init(-1, 44100, 0, 0, 0) then
  begin
    SoundStream := BASS_StreamCreateFile(False,
    ExpandConstant('{tmp}\music.mp3'), 0, 0, 0, 0,
    EncodingFlag or BASS_SAMPLE_LOOP);
    BASS_SetConfig(BASS_CONFIG_GVOL_STREAM, 2500);
    BASS_ChannelPlay(SoundStream, False);
    SoundCtrlButton.Caption :=ExpandConstant('{cm:SoundCtrlButtonCaptionSoundOff}');
    SoundCtrlButton.OnClick := @SoundCtrlButtonClick;
    end;
end;

to

procedure InitializeWizard();
begin
  RedesignWizardForm;
  ExtractTemporaryFile('Click.wav');
  ExtractTemporaryFile('music.mp3');
#ifdef Splash
  ExtractTemporaryFile('isgsg.dll');
  ExtractTemporaryFile('splash.png');
  ShowSplashScreen(0,ExpandConstant('{tmp}\splash.png'),1000,1000,1000,0,255,False,$FFFFFF,10);
#endif
  if BASS_Init(-1, 44100, 0, 0, 0) then
  begin
    SoundStream := BASS_StreamCreateFile(False,
    ExpandConstant('{tmp}\music.mp3'), 0, 0, 0, 0,
    EncodingFlag or BASS_SAMPLE_LOOP);
    BASS_SetConfig(BASS_CONFIG_GVOL_STREAM, 2500);
    BASS_ChannelPlay(SoundStream, False);
    SoundCtrlButton.Caption :=ExpandConstant('{cm:SoundCtrlButtonCaptionSoundOff}');
    SoundCtrlButton.OnClick := @SoundCtrlButtonClick;
    end;
end;