From 19b469917e784a9771d082d32dff2193010a543e Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 18 Jan 2023 10:29:45 +0000
Subject: [PATCH] tvplanit: Fix minor details for v1.8.0

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8691 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/source/vpconst.pas  | 4 ++--
 components/tvplanit/source/vpwavdlg.lfm | 3 +--
 components/tvplanit/source/vpwavdlg.pas | 2 +-
 3 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/components/tvplanit/source/vpconst.pas b/components/tvplanit/source/vpconst.pas
index f056bf4d7..8000b87ca 100644
--- a/components/tvplanit/source/vpconst.pas
+++ b/components/tvplanit/source/vpconst.pas
@@ -47,8 +47,8 @@ uses
   Graphics, Forms, StdCtrls;
 
 const
-  BuildTime = {$I %DATE%} + ' ' + {$I %TIME}; //'09/13/2002 09:25 AM';
-  VpVersionStr = 'v1.7.0';    {Visual PlanIt library version}
+  BuildTime = {$I %DATE%} + ' ' + {$I %TIME%}; //'09/13/2002 09:25 AM';
+  VpVersionStr = 'v1.8.0';    {Visual PlanIt library version}
   VpProductName = 'Visual PlanIt';
 
   BorderStyles: array[TBorderStyle] of LongInt = (0, WS_BORDER);
diff --git a/components/tvplanit/source/vpwavdlg.lfm b/components/tvplanit/source/vpwavdlg.lfm
index 2af70f3d8..b9eee869c 100644
--- a/components/tvplanit/source/vpwavdlg.lfm
+++ b/components/tvplanit/source/vpwavdlg.lfm
@@ -12,6 +12,7 @@ object FrmSoundDialog: TFrmSoundDialog
   OnCreate = FormCreate
   OnShow = FormShow
   Position = poScreenCenter
+  LCLVersion = '2.3.0.0'
   object PageControl1: TPageControl
     Left = 0
     Height = 474
@@ -147,7 +148,6 @@ object FrmSoundDialog: TFrmSoundDialog
             Alignment = taCenter
             AutoSize = False
             Caption = 'Nothing to select from'
-            Color = clDefault
             Layout = tlCenter
             ParentColor = False
             WordWrap = True
@@ -196,7 +196,6 @@ object FrmSoundDialog: TFrmSoundDialog
           Alignment = taCenter
           AutoSize = False
           Caption = 'Nothing to select from'
-          Color = clDefault
           Layout = tlCenter
           ParentColor = False
           WordWrap = True
diff --git a/components/tvplanit/source/vpwavdlg.pas b/components/tvplanit/source/vpwavdlg.pas
index 344b62150..98ea4d742 100644
--- a/components/tvplanit/source/vpwavdlg.pas
+++ b/components/tvplanit/source/vpwavdlg.pas
@@ -179,7 +179,7 @@ begin
   OkBtn.Caption := RSOkBtn;
   CancelBtn.Caption := RSCancelBtn;
   if BiDiMode = bdLeftToRight then
-    PlayBtn.Caption := RSPlayBtn + '   '  // Workaround for AutoSize bug of TSpeedButton ignoring right Margin
+    PlayBtn.Caption := RSPlayBtn + '   '  // Workaround for AutoSize bug of TSpeedButton ignoring right margin
   else
     PlayBtn.Caption := '   ' + RSPlayBtn;
   Label3.Caption := RSNothingToSelectFrom;