tvplanit: Hide sound finder btn in event editor if OnPlaySound event handler is not assigned in non-windows systems.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5005 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/tvplanit/source/vpevnteditdlg.pas

@@ -619,12 +619,11 @@ end;
 procedure TDlgEventEdit.FormShow(Sender: TObject);
 begin
   PositionControls;
-  (*
-  {$IFDEF LCL}
-  ScaleDPI(Self, DesigntimeDPI);
-  {$ENDIF}
-    *)
   DescriptionEdit.SetFocus;
+ {$IFNDEF MSWINDOWS}
+  if not Assigned(FDatastore.OnPlaySound) then
+    SoundFinderBtn.Hide;
+ {$ENDIF}
 end;
 {=====}
 

components/tvplanit/source/vpwavdlg.pas

@@ -166,6 +166,7 @@ begin
   Label4.Caption := RSNothingToSelectFrom;
   if DingPath = '' then begin
     CBDefault.Checked := true;
+    if (MediaFolder <> '') and DirectoryExists(MediaFolder) then
       ShellTreeView.Path := MediaFolder;
   end else
   if FileExists(DingPath) then begin