From eb245fb18d40e6bda1fc1d1e302a762e0e413736 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 19 Jul 2016 08:43:40 +0000
Subject: [PATCH] tvplanit: Avoid dependence on new WordWrap property of TPanel
 in VpWavDlg.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5004 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../tvplanit/examples/fulldemo/demomain.lfm   |  1 -
 components/tvplanit/source/vpwavdlg.lfm       | 33 +++++++++++++++++--
 components/tvplanit/source/vpwavdlg.pas       |  6 ++--
 3 files changed, 34 insertions(+), 6 deletions(-)

diff --git a/components/tvplanit/examples/fulldemo/demomain.lfm b/components/tvplanit/examples/fulldemo/demomain.lfm
index 79b8e57ba..34fd3acfa 100644
--- a/components/tvplanit/examples/fulldemo/demomain.lfm
+++ b/components/tvplanit/examples/fulldemo/demomain.lfm
@@ -560,7 +560,6 @@ object MainForm: TMainForm
     AllowRearrange = True
     BackgroundColor = clActiveCaption
     BackgroundMethod = bmNormal
-    BorderStyle = bsSingle
     ButtonHeight = 20
     DrawingStyle = dsCoolTab
     FolderCollection = <    
diff --git a/components/tvplanit/source/vpwavdlg.lfm b/components/tvplanit/source/vpwavdlg.lfm
index 44db520ce..dca5de7c6 100644
--- a/components/tvplanit/source/vpwavdlg.lfm
+++ b/components/tvplanit/source/vpwavdlg.lfm
@@ -139,9 +139,22 @@ object FrmSoundDialog: TFrmSoundDialog
           Width = 170
           BevelOuter = bvNone
           BorderStyle = bsSingle
-          Caption = 'Nothing to select from'
+          ClientHeight = 86
+          ClientWidth = 166
           TabOrder = 3
-          Wordwrap = True
+          object Label3: TLabel
+            Left = 0
+            Height = 86
+            Top = 0
+            Width = 166
+            Align = alClient
+            Alignment = taCenter
+            AutoSize = False
+            Caption = 'Nothing to select from'
+            Layout = tlCenter
+            ParentColor = False
+            WordWrap = True
+          end
         end
       end
       object Splitter1: TSplitter
@@ -175,8 +188,22 @@ object FrmSoundDialog: TFrmSoundDialog
         Width = 170
         BevelOuter = bvNone
         BorderStyle = bsSingle
-        Caption = 'Nothing to select from'
+        ClientHeight = 86
+        ClientWidth = 166
         TabOrder = 3
+        object Label4: TLabel
+          Left = 0
+          Height = 86
+          Top = 0
+          Width = 166
+          Align = alClient
+          Alignment = taCenter
+          AutoSize = False
+          Caption = 'Nothing to select from'
+          Layout = tlCenter
+          ParentColor = False
+          WordWrap = True
+        end
       end
     end
   end
diff --git a/components/tvplanit/source/vpwavdlg.pas b/components/tvplanit/source/vpwavdlg.pas
index 842328fca..c283fecdd 100644
--- a/components/tvplanit/source/vpwavdlg.pas
+++ b/components/tvplanit/source/vpwavdlg.pas
@@ -48,12 +48,14 @@ type
   { TFrmSoundDialog }
 
   TFrmSoundDialog = class(TForm)
+    Label3: TLabel;
     PageControl1: TPageControl;
     Panel1: TPanel;
     Panel2: TPanel;
     Panel3: TPanel;
     Panel4: TPanel;
     RightPanel: TPanel;
+    Label4: TLabel;
     ShellListView: TShellListView;
     ShellTreeView: TShellTreeView;
     Splitter1: TSplitter;
@@ -160,8 +162,8 @@ begin
   CBDefault.Caption := RSDefaultSound;
   OkBtn.Caption := RSOkBtn;
   CancelBtn.Caption := RSCancelBtn;
-  Panel3.Caption := RSNothingToSelectFrom;
-  Panel4.Caption := RSNothingToSelectFrom;
+  Label3.Caption := RSNothingToSelectFrom;
+  Label4.Caption := RSNothingToSelectFrom;
   if DingPath = '' then begin
     CBDefault.Checked := true;
     ShellTreeView.Path := MediaFolder;