pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Prevent VpNavBar component editor playing sounds in design mode.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6376 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-05-03 22:17:43 +00:00
parent 6542115d09
commit 47138e4412
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/tvplanit/source/vpnavbar.pas
View File

@ -2747,7 +2747,9 @@ begin
{animated scroll} {animated scroll}
if FActiveFolder > -1 then begin if FActiveFolder > -1 then begin
{play sound} {play sound}
if FPlaySounds and (FSoundAlias <> '') and FileExists(FSoundAlias) then if not (csDesigning in ComponentState) and FPlaySounds and
(FSoundAlias <> '') and FileExists(FSoundAlias)
then
PlaySound(FSoundAlias, psmAsync); PlaySound(FSoundAlias, psmAsync);
(* (*
if FPlaySounds and (FSoundAlias > '') then begin if FPlaySounds and (FSoundAlias > '') then begin