[BLACKFIRE69]

FMXInno Updates

Just added Button sounds and LockScreen lock/unlock sounds. ;)

* Button Sounds:
   1. Clear Buttons.
   2. ClearGradient Buttons.
   3. Color Buttons.
   4. ColorGradient Buttons.
   5. Picture Buttons.
   6. WinRound Buttons.
   7. FMX Default Buttons.

* Custom Dlgs:	
   1. Exit Page Buttons.
   2. DirBrowse Dlg Buttons.
   3. StartMenu Dlg Buttons.
	
* LockScreen Sounds: 
   1. Lock.
   2. Unlock.

Examples:

{ Dir Browse Btn }
  BrowseBtn.FCreate(FMXForm.Handle, Ns(WizardForm.InnerNotebook.Left + WizardForm.DirBrowseButton.Left),
    Ns(WizardForm.InnerNotebook.Top + WizardForm.DirBrowseButton.Top), '&Browse...');
  BrowseBtn.BackColor($FF3DFA85, $FF0885EB);
  BrowseBtn.GradientPosition(False);
  BrowseBtn.OnClick(@BrowseBtnOnClick);
#ifdef ButtonSounds
  BrowseBtn.ButtonSounds(ExtractAndLoad('Enter.wav'), '', ExtractAndLoad('Click.wav'));
#endif


{ Dir Browse Dlg }
  DirBrowseDlg.FCreate(0, 'Select Install Directory', WizardForm.DirEdit.Text);
  DirBrowseDlg.ChangeBckgndClr($00AAFA05);
  DirBrowseDlg.Transparency(26);
#ifdef ButtonSounds
  DirBrowseDlg.ButtonSounds(ExtractAndLoad('Enter.wav'), '', ExtractAndLoad('Click.wav'));
#endif


{ Exit Page }
  ExitMsg.FCreate(FMXForm.Handle, NS(170), ALCrimson, CustomMessage('YesBtn'), 
	CustomMessage('NoBtn'), CustomMessage('ExitMsg1'), CustomMessage('ExitMsg2'), False, False, False);
  ExitMsg.Opacity(0.9);
  ExitMsg.YesBtnClick(@ExitYesBtnOnClick);
  ExitMsg.NoBtnClick(@ExitNoBtnOnClick);
#ifdef ButtonSounds
  ExitMsg.ButtonSounds(ExtractAndLoad('Enter.wav'), '', ExtractAndLoad('Click.wav'));
#endif


{ Lock Screen }
  LockScreen.FCreate(FMXForm.Handle, txCenter, True);
  LockScreen.AutoActivate(FMXForm.HandleHWND, WizardForm.Handle);
#ifdef LockScreenSounds
  LockScreen.LockSounds(ExtractAndLoad('Lock.wav'), ExtractAndLoad('UnLock.wav'));
#endif