diff --git a/components/tvplanit/source/vpedfmtlst.lfm b/components/tvplanit/source/vpedfmtlst.lfm
index 1ac4aa839..92c0820ac 100644
--- a/components/tvplanit/source/vpedfmtlst.lfm
+++ b/components/tvplanit/source/vpedfmtlst.lfm
@@ -140,7 +140,6 @@ object frmPrnFormat: TfrmPrnFormat
     Columns = 1
     ItemHeight = 0
     OnClick = lbFormatsClick
-    Options = [lboDrawFocusRect]
     Sorted = True
     TabOrder = 0
   end
@@ -162,7 +161,6 @@ object frmPrnFormat: TfrmPrnFormat
     OnDragDrop = lbElementsDragDrop
     OnDragOver = lbElementsDragOver
     OnMouseDown = lbElementsMouseDown
-    Options = [lboDrawFocusRect]
     TabOrder = 4
   end
   object btnEditFormat: TButton
diff --git a/components/tvplanit/source/vpwavdlg.lfm b/components/tvplanit/source/vpwavdlg.lfm
index 80b015b4e..058cdb3fe 100644
--- a/components/tvplanit/source/vpwavdlg.lfm
+++ b/components/tvplanit/source/vpwavdlg.lfm
@@ -12,7 +12,7 @@ object FrmSoundDialog: TFrmSoundDialog
   OnCreate = FormCreate
   OnShow = FormShow
   Position = poScreenCenter
-  LCLVersion = '1.9.0.0'
+  LCLVersion = '1.6.4.0'
   object PageControl1: TPageControl
     Left = 0
     Height = 474
@@ -146,7 +146,6 @@ object FrmSoundDialog: TFrmSoundDialog
           Anchors = [akTop, akLeft, akBottom]
           Color = clDefault
           HideSelection = False
-          Mask = '*.wav'
           ReadOnly = True
           TabOrder = 1
           ObjectTypes = [otNonFolders]
diff --git a/components/tvplanit/source/vpwavdlg.pas b/components/tvplanit/source/vpwavdlg.pas
index d3ba870c0..a988c0a70 100644
--- a/components/tvplanit/source/vpwavdlg.pas
+++ b/components/tvplanit/source/vpwavdlg.pas
@@ -36,7 +36,7 @@ interface
 
 uses
   {$IFDEF LCL}
-  LCLProc, LCLType, LCLIntf, LResources,
+  LCLProc, LCLType, LCLIntf, LResources, LCLVersion,
   {$ELSE}
   Windows, Messages,
   {$ENDIF}
@@ -131,6 +131,11 @@ begin
   Panel4.Align := alLeft;
   ShellTreeView.Align := alClient;
   Label4.Align := alClient;
+{$IFDEF LCL}
+  {$IF lcl_fullversion >= 1080000}
+  ShellTreeView.Mask := '*.wav';
+  {$ENDIF}
+{$ENDIF}
 end;
 
 procedure TFrmSoundDialog.FormShow(Sender: TObject);